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Allen, die nur eine oder noch gar keine Soft¬ 
ware aus unserem Hause kennen, wollten 
wir schon immer einmal in Kürze unsere 
Produktpalette zeigen. Hier sei sie beschrie¬ 
ben: Wir haben drei Programmiersprachen 
veröffentlicht, Megamax-C (dazu die Edi¬ 
tor Toolbox), Megamax Modula-2 und 
schließlich Imagic, die Sprache, die Bilder 
schreibt. 

Bei Textanwendern hat sich inzwischen 
herumgesprochen, daß unsere Textverarbei¬ 
tung SignumlZwei allen Maßstäben ge¬ 
recht wird, die von unterschiedlichsten 


Bedürfnissen diktiert werden. Mehrspalten¬ 
satz, freie Formeldefinition, Grafikeinbin¬ 
dung, eigener Fonteditor, Fremdsprachen¬ 
zeichen sind da nur die allerwichtigsten 
Attribute, die wir hier nennen können. Dazu 
sind eine Reihe Zusatzprogramme (Sig- 
numlExtra) und mittlerweile über 200 ver¬ 
schiedene Zeichensätze (SignumIFonts, 
SiFoX) erhältlich. Bitte ausführliche Liste 
anfordern. 

Im Bereich der Grafikprogramme finden 
sich in unserer Palette zwei Schwarzweiß¬ 
programme: STAD, ein sehr schnelles und 


flexibles Zeichenprogramm mit komforta¬ 
blem 3-D-Teil und (in Ankündigung) Creator, 
über das wir noch nichts verraten. 

Für Creative User gibt es Hilfsprogramme, 
die wir unter dem Decknamen Utility Series 
anbieten. Zwei Programme sind bisher er¬ 
schienen: FlexDisk und Harddisk Utility. 

Bolo heißt das etwas andere Ball(er)- 
spiel, bei dem man mit etwas Geschick und 
über 50 Ebenen zum Mega-Ghost gelangt. 
Unser erstes Spiel der Games Series. 

Ausführliche Informationen senden wir 
auf Anfrage gerne zu. 


III 

APPLICATION 

SYSTEMS 

HEIDELBERG 


Sie finden uns auf der CeBIT Hannover, Halle 7, am Stand von Atari. 

APPLICATION SYSTEMS HEIDELBERG Englerstroße 3 Postfach 10 26 46 D 6900 Heidelberg Telefon (0 62 21) 30 00 02. 


Ja, Ja, Modula ist da. Wir sprechen noch darüber. 

Betrifft: Megamax Modula-2, eine Sprache mit Charakter. 


Wenn es gilt, Berge zu erklimmen, kann man sich 
einer breitereren Öffentlichkeit gewiß sein, als 
wenn es meinethalben darum geht, eine neue 
Programmiersprachefür Softwareentwickler vor¬ 
zustellen. Dennoch, so in unserem Falle, haben 
beide Ereignisse etwas gemeinsam, weil sie sich 
gegenseitig bedingen. 

Da wir den Berg Modula-2, den wir ankündig¬ 
ten besteigen zu wollen, nun auch noch versetzt 
haben, bitten wir dafür um eine breitere Öffent¬ 
lichkeit. Nun. 


Etwas Fachchinesisch zum Anfreunden bieten 
Ihnen die folgenden Sätze: Megamax Modula-2 
besitzt als komplettes Entwicklungssystem für 
Modula-2 einen schnellen Ein-Pass-Compiler. Edi¬ 
tor und Error-Scanner unter einer komfortablen 
GEM-Shell. Mit integriertem symbolischen As¬ 
sembler übersetzt er 6.000 Zeilen pro Minute in 
68.000-er Maschinencode. 

An weiteren Features erkennt der Fachmann das 
Resource Construction Program und die Möglich- 

Megamax Modula-2 kostet 398,- DM 

übrigens: komplett in Deutsch. 


keit des Zugriffs auf alle TOS-, VDI- und AES- 
Funktionen.Darüberhinaus:„LoadTimeLinking", 
d.h. es gibt keinen separaten Linker-Lauf wäh¬ 
rend der Programmentwicklung. Mitgeliefert 
werden überdies über 70 Bibliotheksmodule. 

Mehr wird verraten, 
wenn Sie ein ausführli¬ 
ches Produktinfo an¬ 
fordern, das wir Ihnen 
gerne und vor allem 
umgehend zuschicken. 
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APPLICATION SYSTEMS HEIDELBERG Englerstroße 3 Postfach 10 26 46 D-6900 Heidelberg Telefon (0 62 21) 30 00 02. 




















































EDITORIAL 


Das 

klassische 

Dilemma 


Liebe Leser! 

Aurea prima sata est. Sehr frei über¬ 
setzt: Früher ging’s uns noch gold. 
Jeder mochte jeden, keiner tat einem 
anderen ein Leid. Doch eines Tages 
begab es sich, daß ein paar Menschen 
zusammenfanden, die sich unsterb¬ 
lich verliebt hatten - in einen Compu¬ 
ter. Sie gründeten frohgemut eine 
Zeitschrift für diese neue machina 
arithmetica und nannten sich fürder¬ 
hin Redaktion. Und die Pinien stiegen 
herab von den Hügeln und Bergen 
und ließen sich zu Papier verarbeiten 
und mit Druckerschwärze veredeln, 
um geduldig das in die Welt hinaus¬ 
zutragen, was unsere Redakteure in 
selbige zu setzen trachteten. 

Man bemühte sich stets redlich, es 
jedem recht zu machen. Neue Soft- 
und Hardware wollte wohlwollend 
gewogen werden, zu dem Ende, daß 
sich die Leserschaft, wie sich die 
Menschen draußen im Lande jetzt 
nennen durften, davon ein Bild ma¬ 
chen könne. Worin die Kandidaten 
fehlten, sollte nicht beschönigt oder 
sogar verschwiegen werden, aber 
gleichzeitig sollte auch keine harsche 
Kritik da geübt werden, wo es nur an 
Kleinigkeiten hakte. Man wußte, 
wieviel Fleiß und Geduld Softwerker 
auf ihre Programme und Hardwerker 
auf Steckkarten und Peripheriegeräte 
verwenden mußten. Und man wußte, 
daß diese jetzt auf eine gute Presse 
bauten. 


Gewiß war man sich auch bewußt, 
daß ein loyaler Hofbericht einen 
königlichen Werbeauftrag bescheren 
konnte, der mit einem Beutel puren 
Goldes dotiert wäre, während ein 
Verriß allenthalben tiefen Gram säte, 
so daß man es beim König Werbekun¬ 
den selten noch über eine Anstellung 
als Hofnarr hinausbrächte. 

Diese moralisch-monetäre Zwick¬ 
mühle zerrte an den Drahtseilen unse¬ 
rer Redakteure, aber sie nahmen sich 
vor, die beschwerliche Route über 
den Grat zu nehmen, gleichwohl des¬ 
sen gewahr, daß es sich im Tal der 
Könige bequemer liefe. Ruhe und 
Geflissenheit setzten sie sich zum 
Ziel, alldieweil die stillsten Wasser 
stets am tiefsten gründen. 

Schon ging es ihnen nicht mehr gold! 
Kam ihnen ein Prüfling unter ihre 
unbestechlichen Augen, der nach 
Entfernen blendender Verpackung 
grobe Mängel offenbaren mußte, und 
entdeckten sie eingedenk ihres Wahl¬ 
spruchs seine Larve dem Publikum, 
so kam es oft, daß sich in der Folge die 
Gestirne verfinsterten und sich die 
Erde zu Füßen unserer Redakteure 
zumindest einen kleinen, kaum sicht¬ 
baren Spalt auftat, bereit, sie alle zu 
verschlingen. Telephonos, der Gott 
der Ferngespräche, zürnte. “Das ist 
doch alles nicht wahr”, “Ihr Tester 
kommt wohl vom Sonntagsblatt”, 
“Der hat keine Ahnung wovon er 


schreibt” oder anders schrien betrof¬ 
fene Werbekundenkönige wutschäu¬ 
mend und ohrenbetäubend in ihre 
magischen Muscheln - so laut, daß 
selbst der benannte Gott und der Post¬ 
minister aufschraken. 

Und dann, eines Morgens, geschah 
es, daß eine Botin mit einem auf rät¬ 
selhafte Weise hellenisch anmuten¬ 
dem Gesichtsausdruck in nicht ganz 
zeitgemäßer Gewandung seltsam fei¬ 
erlich in die Mitte einer in schauriger 
Andacht erstarrten Redaktion schritt 
und eine alte, verstaubte Büchse auf 
den Boden stellte, um schon im näch¬ 
sten Augenblick wieder vor aller 
Augen zu entschwinden. Naja, die 
Tür war offen. 

Als der Chefredakteur endlich mittels 
moderner Alchemie den Deckel ge¬ 
säubert hatte, traten ein paar griechi¬ 
sche Zeichen zum Vorschein, die ein 
Philologe in der entsetzten Runde 
endlich zu entschlüsseln vermochte. 
Was da in zierlicher Schrift stand, 
war: “Gruß und Kuß, Pandora!” 

Indes, seien Sie versichert, liebe Le¬ 
ser, daß Ihnen die ST-Redaktion wei¬ 
ter sachlich als Ratgeber zur Seite 
stehen wird. Jedenfalls solange, bis 
unser Philologe, der seit jenen myste¬ 
riösen Geschehnissen völlig verwirrt 
ist, diesen verflixten Büchsenöffner 
herausrückt! 

Ihr 


Meinhard Ullrich 
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10 Megahertz per Software 64 

Ansiterm 

- DFÜ und Multitasking 115 

Dynastien 

- Prospero Pascal und ST Pascal plus 99 

Editor Toolbox 118 

Jefferson Modula-2 

- Preisbrecher für Risikofreudige 45 

Relax 170 


HARDWARE 

EPSON LQ 500 42 

Selbstbau eines Computer-Scanners 50 

Zwischenlagerung 165 

GRUNDLAGEN 


Auf der Schwelle zum Licht Teil 4 

- Laufwerksverwaltung 33 

Algorithmen & Datenstrukturen Teil 6 

- Bayer-Bäume 83 

Bilderspiele Teil 5 105 

Extended VT52-Emulator 122 

HD-Pack 

- Ordnung auf der Festplatte 74 

Prospero Fortran im Detail 68 

Schönere Programme durch Zeichensätze 

- GEM-Fonts unter ST-Pascal plus 14 

ST Ecke 

- Appl_tplay und Appl_trecord 143 
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Schönere Programme 

durch GEM-Ze ichensätze nach Wahl 

GEM bietet einige sehr interessante Möglichkeiten, die auf dem 
ST leider noch gar nicht richtig ausgenutzt werden. Ein wichtiger 
Punkt dabei sind die Textdarstellungen. Da jeder Text im Grafik¬ 
modus ausgegeben wird, bietet GEM (VDI) die Möglichkeit, 
verschiedene Textattribute (fett usw.) einzustellen und die Text¬ 
größe zu wählen. Davon machen ja auch schon viele Programme 
(v.a. im Grafikbereich) reichlich Gebrauch. Die Entwickler von 
GEM sind aber noch einen sehr großen Schritt weitergegangen. 
Man kann außer den Systemzeichensätzen noch andere Fonts 
von Diskette laden (sollte man wenigstens können). Dabei tritt 
nur ein großes Problem auf: die Implementation auf dem ATARI 
ST. 

Seite 14 


Extended VT 52-Emulator 

Daß man den eingebauten VT 52-Emulator des ATARI ST noch 
deutlich verbessern kann, wollen wir Ihnen anhand einer Mini- 
Serie zeigen. Serie deswegen, weil wir niemand ca. 1800 Pro¬ 
grammzeilen in einer Ausgabe zumuten wollen. Doch das fertige 
Programm (nur 4,5 K lang) rentiert sich, da man Escape-Sequen- 
zen von A - Z und somit viele neue Features erhält (z.B. 2-6 mal 
schnellere Bildschirmausgabe, erstmalige Grafikfahigkeit für 
problemlose Übertragung bei DFÜ und vieles mehr). Natürlich 
bleibt das Programm (abwärts-) kompatibel zum VT 52-Stan- 
dard. 

Seite 122 
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ALT 


Programmierung relationaler 
Datenbanken & VIP Professional 

“Was nützen die Softwaretest und abgedruckten Listings, wenn 
man dem Anwender nicht bei der Nutzung der Programme unter 
die Arme greifen kann?” So kam uns die Idee, eine neue Rubrik 
in der ST-Computer einzurichten. Ihr Name lautet: Anwendun¬ 
gen. In dieser Ausgabe fangen deshalb zwei Kurse an, die dem 
Anwender die Arbeit mit seinen Programmen erleichtern sollen. 
Anfängen wollen wir mit der Programmierung relationaler 
Datenbanken (z.B. dBMAN oder STandard Base) und dem 
Einsatz der Tabellenkalkulation VIP Professional. Hierbei wer¬ 
den u.a. kleine Programme und Macros vorgestellt werden. 

Relationale Datenbanken Seite 28 
VIP Professional Seite 160 


ANWENDUNGEN 

Programmierung relationaler Datenbanken 
- Datennormalisierung 28 

VIP Professional-Kurs 160 

PROGRAMMIERPRAXIS 

Bug-Alert 132 

Disk schreibgeschützt ? 137 

Reise ins Chaos mit Fractals 139 



Ein Drucker-Scanner im Selbstbau 

Nicht jeder kann mit der Maus als Zeichenkünstler glänzen. 
Allerdings kann jeder mit Hilfe eines Druckers und ein bißchen 
Elektronik brauchbare Vorlagen in den ATARI ST einiesen bzw. 
scannen, um es auf neudeutsch zu sagen. Diese Bilder lassen sich 
dann leicht ein wenig mit einem passenden Zeichenprogramm 
nacharbeiten und schon erhält man erstaunliche Ergebnisse. Was 
Sie an elektronischen Bauteilen und als Software benötigen, 
finden Sie auf Seite 50 

Betr.: Vorschau aus dem letzten Heft 

Im letzten Heft wurde das Software-Paket ST Kontor angekün¬ 
digt. Der Test wurde auf die Mai-Ausgabe verschoben, da ein 
weiteres Modul fertiggestellt wurde und dieses auch mit in den 
Test miteinbezogen werden soll. 

Auch der Multisync-Selbstbau hat sich leider verzögert, da wir 
feststellen mußten, daß es bauliche Unterschiede zwischen den 
einzelnen ATARI SM 124-Monitoren gibt. Der Bericht wird aber 
sobald wie möglich nachgeholt. Doch es sei gleich vorweg zu 
sagen, daß sich der Umbau nur erfahrenen Elektronik-Bastlern 
empfiehlt. 


AKTUELLES 


Editorial 

3 

News 

6 

Buchbesprechungen 

177 
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186 
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184 
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HD plus - 

PREISREDUZIERUNG 


Neues 

MODULA-2 

Sprachsystem 


Die Firma Vortex mit einer Preis¬ 
reduzierung ihrer höherkapaziti- 
ven Hard Disks (30 bis 60 MByte) 
das Verkaufsübergewicht der 20 
MB-Version ausgleichen. So wer¬ 
den dem Kunden 10 MB Mehrka¬ 
pazität für einen Aufpreis von nur 
DM 200,- angeboten, so daß die 
HDPLUS 30 (30 MByte) DM 
1498,- gegenüber DM 1138,- für 
die HDPLUS 20 kostet. Die 



Gerüchteweise konnte man ja 
schon einiges über die neue Ver¬ 
sion des GFA-BAS1C hören, 
doch etwa Anfang Mai wird sie 
ausgeliefert werden. Zunächst 
wird wieder nur ein Interpreter 
verfügbar sein, dem aber schon 
ein halbes Jahr später der Compi¬ 
ler 3.0 folgen soll. 


HDPLUS 60 kostet sogar “nur 
noch” DM 2398,-, was einem 
Mehrpreis von DM 150,-/10 
Mbyte entspricht. Stichtag für die 
neuen Endverbraucherpreise ist 
der 14. März 1988. 

Vortex GmbH 
Falterstr. 51-53 
7101 Flein bei Heilbronn 
Tel.: 07131152061-63 


Das alte GFA-BASIC ist voll¬ 
kommen neu überarbeitet wor¬ 
den, so daß der neue Interpreter 
3.0 deutlich schneller sein wird. 
Er hat etwa den doppelten Be¬ 
fehlsumfang, was u.a. durch volle 
Einbindung der GEM-Routinen 
bewirkt wird. Ferner sind neue C- 
ähnliche Strukturen implemen¬ 
tiert und der Editor verbessert 
worden. Der Preis beträgt DM 
198,-. 

GFA Systemtechnik GmbH 
Heerdter Sandberg 30 
4000 Düsseldorf 11 
Tel.: 02111588011 


Unter dem Namen SPC-MODU- 
LA-2 ist ein neues Sprachsystem 
fürdie ATARI STs mit monochro¬ 
men Monitor auf den Markt ge¬ 
kommen. Das System ist mit allen 
seinen Teilen voll in GEM inte¬ 
griert. SPC-MODULA-2 basiert 
auf einem MODULA-2 Single- 
Pass-Compiler der ETH-Zürich 
und implementiert den neuen 
WIRTH’schen Standard. 

Das Sprachsystem enthält: 

- einen Compiler mit einer Über¬ 
setzungsleistung von bis zu 5000 
Zeilen pro Minute 

- einen Editor, in dem bis zu 8 
Dateien gleichzeitig ediert bzw. 
gesichtet werden können. 

- einen symbolischen Debugger, 
der bei einem Programmabsturz 
automatisch aufgerufen wird. Er 
macht nicht nur die fehlerhafte 
Stelle im Programmtext sichtbar, 
er zeigt auch alle im Moment 
aktiven Moduln und den Zustand 
der Variablen an. 

- eine Shell, die es je nach Spei¬ 
chergröße erlaubt, den Compiler 


und den Editor resident im Spei¬ 
cher zu halten. 

- ein deutsches Handbuch 

- eine Einführung in MODULA-2 
anhand von SPC-MODULA-2. 

- einen Update-Service mit zwei¬ 
monatig erscheinender Userzei¬ 
tung 

Im Zuge des Update-Service wer¬ 
den neuentwickelte Module zum 
Selbstkostenpreis abgegeben, z.B. 
eine generalisierte Window-Bi¬ 
bliothek, Blitter-Einbindung, 
68881 Arithmetik, usw. 

Eine Demodiskette wird für DM 
10,- angeboten. Sie enthält den 
Compiler mit Editor und Debug¬ 
ger, wobei der erzeugbare Code 
auf 5K beschränkt ist. Außerdem 
wird nur das Modul InOut unter¬ 
stützt. 


advanced applications Viczena 
GmbH 

Sperlingweg 19 
7500 Karlsruhe 31 
Tel.: 0721/700912 


GFA-BASIC 
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BARTH / 


WISSEN SIE, WAS IN IST? 


In ist ein Monitor, der zeigt, 
was der Computer kann. 


... einer mit zukunftssicherer 
MultiSync-Technologie. 


MÄRZ 19 8® 


MultiSync-Monitore 
wurden an folgenden 
PC’s getestet: 

Apple, Atari, Commodore, 
Compaq, Epson, Fujitsu, 
Hewlett Packard, IBM, 
Kaypro, Multitech, Nixdorf, 
Olivetti, Panasonic, 
Plantron, Sanyo, Schneider, 
Siemens, Tandon, Toshiba, 
Victor, Zenith. 


SEC 

NEC Deutschland GmbH 


In ist auch ein Monitor mit 
vielen Färb- und Grautönen für 
brillante Texte und Bilder. 


... der außerdem die Augen 
verwöhnt. 


Arbeiten mit MultiSync- 
Monitoren von NEC ist in. 


Und out ist der triste Bild¬ 
schirm-Alltag mit antiquierten 
Monitoren. Heute und erst recht 
in Zukunft. 


MUJiSYNC^ P/ 


r Text, Business Grafik, CAD/CAM und Desktop Publishing 


—jm 


MultiSyncll 
14" 800x560 
Color,TTL/ 
Analog 


MultiSync Plus 
15', 960x720 
Color,TTL/ 
Analog 


MultiSync GS 
14-, 900x700 
Monochrom, 
TTL/Analog 


MultiSync XL 
20", 1024x768 
Color,TTL/ 
Analog 


Klausenburger Straße 4 

8000 München 80 West Germany 

Tel.: 089/93006-0 

Telefax: 0 89 / 93 77 76/8 

Telex: 5218073 und 5218074 nec m 
























Thomas Kaschad Computer-Technik stellt ein neues 
Buchhaltungsprogramm für Freiberufler und Selbstän¬ 
dige vor. TKC-EINNAHME/ÜBERSCHUSS PLUS 
zeichnet sich laut Hersteller durch hohe Verarbeitungs¬ 
geschwindigkeit, Benutzerfreundlichkeit, hohe Ab¬ 
sturzsicherheit und günstiges Preis-/Leistungs-Verhält- 
nis aus und stellt somit wesentlich teurere Programme in 
den Schatten. Für den privaten ST-Anwender wird ab 
Mitte Februar die Version TKC-HAUSHALT PLUS für 
DM 129,- angeboten. 

TK Computer-Technik 
Bischhofsheimer Str. 1 7 
6097 Trebur-Astheim T 
ei: 06147/550 


Accessory für 
NEC-Drucker 


Neues von 

Tommy 

Software 


Den Benutzern der Drucker NEC 
P6, P7 und P2200 wird von der 
Buchhandlung Werner Finke 
Wuppertal ein Accessory zur Ein¬ 
stellung angeboten. Es ist voll auf 
die Fähigkeiten der NEC-Drucker 
abgestimmt und beinhaltet u.a. 
einen Spooler von 32 KBytes. Das 


GFA Systemtechnik hat bei der 
Firma S+S Datentechnik einige 
neue Symbolbibliotheken zum 
GFA Draft plus ST CAD-Pro- 
gramm gefunden. Die Bibliothe¬ 
ken gibt es für ELEKTROTECH¬ 
NIK (beinhaltet Starkstrom- und 
Elektrotechnik), MÖBEL und 
PNEUMATIK-HYDRAULIK. 
Eine Bibliothek für GFA Draft 
plus ST kostet DM 149,-. 

Seit 1.3.1988 ist von GFA das 
GFA-BASIC-Einsteigerset er- 


NEC P6 ACC ist für einen Preis 
von DM 29,90 erhältlich. 


Buchhandlung Werner Finke 
Postfach 131545 
5600 Wuppertal 1 
Tel.: 0202/454220 oder 454433 


hältlich. Es beinhaltet den GFA- 
BASIC-Interpreter, den GFA- 
BASIC-Compiler, das Programm 
GFA-VEKTOR und ein Compu¬ 
terlexikon. Das ganze Set ist in 
einem schwarzen Koffer für DM 
198,- zu erwerben und erscheint in 
limitierter Auflage. 


GFA Systemtechnik GmbH 
Postfach 190263 
4000 Düsseldorf 11 


Das erste neue Tommy Software- 
Produkt im Jahr 1988 ist LISP- 
Complete. Das Paket besteht aus 
zwei Teilen: einem Lisp-Interpre- 
ter mit GEM-Editor, POST-Mor- 
temfunktion und zahlreichen De- 
monstationsprogrammen und ei¬ 
nem Lisp-Lehrgang in Deutsch. 
Der Lehrgang erläutert ausführ¬ 
lich die Unterschiede und Ge¬ 
meinsamkeiten mit anderen Pro¬ 
grammiersprachen und enthält 
nach jedem Kapitel Übungsaufga¬ 
ben. 

Das zweite Produkt, das Tommy- 
Software vorstellt, ist der IST 
Freezer//, der wie sein Vorgänger, 
der 1 ST Freezer, ein Backup-Tool 
ist. Er ermöglicht als vorgeladenes 
Programm auf Tastendruck das 
Einfrieren bzw. Abspeichem ei¬ 
nes Programmes. Zusätzlich las¬ 
sen sich jetzt auch Programme auf 
doppelseitig formatierten Disket¬ 
ten “freezen”. Das Programm 
läuft auf Farbe und Monochrome 
und bietet eine etwa 85%-Kompa- 
tibilität zu bestehenden Program¬ 
men. Zusätzlich ermöglicht der 
Freezer durch seine Stop-and-Go- 
Option, Programme für Bild¬ 
schirmfotos anzuhalten. Der Ver¬ 
kaufspreis von IST Freezer // be¬ 
trägt DM 148,-. Es benötigt min¬ 
destens 1MB RAM und TOS in 
ROM. Es läuft auf allen TOS- 
Versionen. 

Das dritte neue Produkt ist 1ST- 
Speeder //, der Nachfolger von 
IST Speeder, einem Diskettenbe¬ 
schleuniger auf Cache-Basis. 
1 ST-Speeder wurde nochmals be¬ 
schleunigt und ist jetzt in der Lage, 
bis zu 3,7 MB RAM verwalten. 
Außerdem verfügt er über ein 
abschaltbares Autosetup und ist 
weiterhin gegen ein nicht funktio¬ 
nierendes Media-Change des Sy¬ 
stems gefeit. 1 ST-Speeder benö¬ 
tigt mindesten 512 KB RAM, ein 
Diskettenlaufwerk und läuft auf 
allen TOS-Versionen und allen 
Auflösungen. Der Verkaufspreis 
beträgt DM 118,-. 


Für die Programme IST-Freezer 
und 1 ST-Speeder bietet Tommy- 
Software auch einen Updateser¬ 
vice. Gegen Einsendung der Ori¬ 
ginaldiskette und DM 30,- erhält 
der Benutzer die neue Version. 

Auf der CeBIT ’88 wird Tommy- 
Software drei neue Produkte vor¬ 
stellen: 

1. MegaPaint 

Bei MegaPaint korrespondiert ein 
Bildschirmpixel mit einem 
Druckerpixel, so daß auch auf 
einem 9-Nadeldrucker die Quali¬ 
tät eines 24-Nadlers erreicht wird. 
Weiterhin enthält es proportionale 
Zeichensätze und einen eigenen 
Zeichensatzeditor, einen Ta¬ 
schenrechner, und es ermöglicht 
das Aufarbeiten gescannter Bilder 
in Druckerpixelgröße. MegaPaint 
ist DEGAS-kompatibel und er¬ 
laubt Textimport. MegaPaint ar¬ 
beitet mit dem FX-80, P6 und dem 
ATARI-Laserdrucker zusammen. 

2. MultiST 

Mit MultiST sind mehrere Appli¬ 
kationen gleichzeitig im Speicher 
verfügbar. In einem Test gelang 
es, zehn kleinere Programme in 
einem normalen 1040er zu starten. 
Der Verkaufspreis wird etwa DM 
100,- betragen. 

3. StarTrash 

Der Programmierer von Dizzy 
Wizzard hat wieder zugeschlagen. 
StarTrash ist so ästhetisch wie 
Dizzy Wizzard, so actiongeladen 
wie das berühmte Kugelspiel auf 
dem Amiga und so faszinierend 
wie die Sprüche des intergalakti¬ 
schen Langohrs. Auch dieses 
Game wird auf der CeBit 88 das 
erste Mal vorgestellt und weniger 
als DM 80,- kosten. 

Tommy Software 
Gutzkowstr. 35 
6000 Frankfurt 70 
Tel. : 069/614046 


Symbolbibliothe¬ 
ken für GFA Draft 
plus ST und GFA- 
BASIC- 
Einsteigerset 
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Computers and Communications 


nAS PRE |S ’ 


ru 0 MAMA«" RTpRE,S 


m MEC DRUCKER 



Die Computer-Anwender haben 
Grund zum Jubeln! 

Genial - endlich ein Drucker, der für 
Einsteiger, Aufsteiger und Semiprofis 
geeignet und vor allem erschwinglich ist. 
Denn NEC erschließt Ihnen jetzt die 


NEC ist mit seinen 24-Nadel-Druckern 
in Deutschland marktführend. 

Was den P 2200 als echten Profi 
auszeichnet, sind seine hohe 
Auflösung von 360x360 d pi, ein 
halbes Dutzend serienmäßiger 
Schriftarten und eine Reihe prakti- 


Endlich braucht niemand mehr auf die 
bewährte NEC Produkt- und Druckquali¬ 
tät zu verzichten. 


RAS ELEKTRISCHE FELD 


Dl« elektroatatUcbe Kr«ft twlechen 7W»I Körpern mH den Ladungen Q ( und Q } 
kann «Ja Fernwirkung «crgeitellt werden, die Irgendwie den AbaCand 7 w lachen 
den Körpern uberbrückt Fruchtbarer lat aber die Feldeoratellung: Die Ladung 
uuatand, der e MtrosUtlvches 


l e« r weck mäßig, die 


MEC Pinwriter 


Hervorragende Druckqualität durch 
bewährte 24-Nadel-Technologie. 




Eine breitgefächerte Gruppe - vom 
Schüler über den Heimanwender bis hin 

zum Freiberufler - findet im P2200 die 
ideale Drucklösung. Anwendern, die 
schon seit langem auf der Suche nach 
einem preisgünstigen Drucker für ihren 


technolo qie zu einem er¬ 
staunlich günstigen 
Preis. 


Vielseitige, durchdachte Papierzuführungen. 


modernste 24-Nadel-Druck- 


Schriftarten- 
issetten zu- 
itzlich erhält- 
h. 


Computer sind, eröffnet er die Möglich¬ 
keit, Druckergebnisse in bewährter NEC- 
Qualität zu erzielen. 

Damit ist der P 2200 die o ptimale wirt¬ 
schaftliche und technische Alternative für 
alle, die sich bei gleichem finanziellen 
Aufwand bisher nur mit antiquierten 
9-Nadel-Druckern begnügen mußten. 

Für Beratung und Service stehen Ihnen 
Ihr NEC Drucker-Fachhändler und sein 
Team zur Verfügung. 

NEC 

Weitere Informationen erhalten Sie von: 
NEC Deutschland GmbH 

Klausenburger Straße 4, 8000 München 80 
Tel.: 0 89/9 30 06-0, Telefax: 0 89/93 77 76/8 
Telex: 5 218 073 und 5 218 074 nec m 


NEC Pinwriter P 2200 
mit automatischer 
Einzelblattführung 


Erleben Sie eine neue Dimension: 
gestochen scharfen Korrespondenz¬ 
druck mit ungewöhnlich reicher Schriftar¬ 
tenauswahl, brillante Grafik-Darstellung, 
bequeme Druckersteuerung und inte¬ 
grierte Papierzuführun g en, 

Warum also tief in die Taschen greifen, 
wenn es schon für weni g Geld 24-Nadel- 
Technolo gie mit allen Raffinessen gibt? 


scher Papierzuführungen. Zum Beispiel 
können Sie zwischendurch einen Brief 
drucken, ohne daß das Endlospapier 
extra herausgenommen werden muß. 

Durch seine volle Kompatibilität mit 
den NEC Pinwritern der 24-Nadel-Serie 
harmoniert der P 2200 mit allen wichtigen 
Software-Paketen. 
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NEC PlNWRI TER 
undcad 


BUSINESS ©RAF 


12 Zeichen pro Zoll ii 
20 Zeichen pro Zoll in Kleindruck - 
17 Zeichen pro Zoll in Kleindri 
15 Zeichen pro Zoll in Sehr 
12 Zeichen pro Zoll ii 
10 Zeichen pro Zol 
20 Zeichen pro Zoll in Briefqoaliti' 
17 Zeichen pro Zoll in Briefqu; 
15 Zeichen pro Zoll in Brie 
12 Zeichen pro Zoll i: 
10 Zeichen pro Zol 
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Verschiedene Zeichen ... 


Höchste Druckpräzision,... 


Mit vielen Farben ... 


d r* e ifa, er ln 

chrift, unterstrichener 
wäre kann man aucl 

Pinwriter P5 XL, bi 
ett, Orange, Grüi 

KOMBINATIONEN geh 

m diesem B 

ist p ie 1 

... in vielen Kombinationen ... 



... kombiniert mit Farbe,... 



... in allen Schattierungen ... 


HIGHLIGHTS DES NEU1 

Gewährleis 

Vi eis ei t:i&e 

Fünf versi 
Arbeit um 

I\J a Fi e^ u iau 
Bei einem 


4 




München 
Stuttgart 
□ Frankfurt 
Köln 
f~| Berlin 
Düsseldorf 
Hannover 


... bilden perfekte Texte. 


... liefert korrekte Pläne. 


. .. gelingt jede Präsentation. 


Alle Abbildungen sind im Maßstab 1:1 unretuschiert dargestellt und wurden mit NEC Pinwritern ausgedruckt. 












































































































SSSSS- 


listendruck 




HDENKKN 


s auf dieser Welt, das 

H £>in w^nirr 
Exakte Schriften ... 




Mit Präzision ... 



Pinwriter P2200 (für s/w) 


Entwicklung 



1985 1986 1987 1988 1989 


Herr Meier 
Musterstraß« 

8000 Münchei 


Ingenieurbü] 
Herr Huber 
Waldstraße : 



... und brillante Grafiken ... 


... und Geschwindigkeit... 


Pinwriter P9 XL (für s/w und color) 


9m veriag, aer 
e ich mich für 
n. 

führung einer breiten 
rbekampagnen. Enge 
In der Lage, Arbeiten 
chungsautwand und 


weise: 

erausgegeben 
:hneten Werke 
rt Illustrationen 


... für Ihre Publikationen. 



8920 

Schongau 


8920 

Schongau 


8940 

Memmingen 


8940 

Memmingen 


8943 

Babenhausen 


8960 

Kempten 


8960 

Kempten 

Personen» Organis 

8960 

Keapten/Ailgäu 

in der Bundesrepi 

8990 

Lindau 

Freiberu 

8992 

Wasserburg 


... große Datenmengen 

bewältigen. 


Bitte besuchen Sie uns in 
Halle 6/Stand H32/H46 



Welt-Centrum Bure • Information -Telekommunikation 

16.-23. MÄRZ 1988 


Weitere Informationen erhalten Sie von Ihrem 
NEC Drucker-Fachhändler. 


NEC 

NEC Deutschland GmbH 

Klausenburger Straße 4, 8000 München 80 
Tel.: 0 89/9 30 06-0, Telefax: 0 89/93 77 76/ 8 
Telex: 5 218 073 und 5 218 074 nec m 




























































































MEGA work ST 



Aus Bottrop kommt ein Pro¬ 
gramm namens MEGAwork ST, 
das unter dem Motto “Software 
zum Arbeiten, Überflüssiges stört 
nicht” angeboten wird. Es ist als 
Arbeitsprogramm für Klein- und 
Mittelständische Betriebe sowie 
freiberufliche Computeranwen¬ 
der gedacht. 

Es enthält eine Kundenverwal¬ 
tung von bis zu 2500 Kunden, 
wobei Anschrift, Bestellung und 
Hinweistexte zu jedem Kunden 
möglich sind. Ebenso ist eine 
halbautomatische Abhandlung 
von Bestellungen und Rechnun¬ 
gen etc. integriert. Dazu lassen 
sich bis zu 1500 Artikel mit dem 
Programm erfassen. 

Ferner besteht die Möglichkeit, 
Serienbriefe über einen indivi¬ 
duellen ASCII-Editor einzuge¬ 


ben, wobei die Formulare beliebig 
aufgebaut werden können. Es sind 
sogar verschiedene Kalkulations¬ 
möglichkeiten gegeben. 

Natürlich lassen sich Kunden und 
Artikel nach beliebigen Kriterien 
suchen und Listen auf Drucker, 
Monitor oder Diskette ausgeben. 
Ebenfalls lassen sich Adressauf- 
kleber drucken u.v.m. 

Benötigt wird ein ATARI ST mit 
mindestens 1 MB RAM und TOS 
im ROM, ein Färb- oder Mono- 
chrom-Monitor, ein doppelseiti¬ 
ges Laufwerk und ein Drucker. 
Der Preis beträgt DM 198,-. 

Mega Team 
Kirchhellener Str. 262 
4250 Bottrop 
Tel.: 02041/94842 


Datenbank von 
COMPUTERWARE 


Auf der CeBIT ’88 wird die Firma 
COMPUTERWARE Gerd Sen¬ 
der die neuen Programmpakete 
Regent Base 2.0 (eine profesionel- 
le Datenbank mit SQL) und The 
Informer (eine flexible Datenbank 
unter GEM) erstmals der breiten 
Öffentlichkeit vorstellen. Die 
funktionelle Textverarbeitung 
Regent Word II, mit der Möglich¬ 
keit, Serienbriefe zu schreiben, 
wird in beiden Programmpaketen 
(ohne Aufpreis!) enthalten sein. 
Regent Base 2.0 soll DM 349,- 
und The Informer DM 249,- ko¬ 
sten. Außerdem sind ein SQL- 
Extender für GFA-BASIC, der 


einem die leistungsfähige Daten¬ 
banksprache SQL mit ihrem um¬ 
fangreichen und flexiblen “Wort¬ 
schatz” in GFA-BASIC zugäng¬ 
lich macht (Die erstellten Daten¬ 
banken sind kompatibel mit Re¬ 
gent Base 2.0), und ein Hard Disk- 
Repair-Programm von Becke¬ 
mayer Development Tools zur 
Erkennung und Behebung von 
Fehlern für die Harddisk am 
ATARI ST für dieses Frühjahr 
angekündigt worden. 

Computei’ware Gerd Sender 
Mosel str. 39 
5000 Köln 50 


Neuer Drucker von Star 


Der “Einstiegs-Drucker” NL-10 
von Star, von dem in den letzten 
zwei Jahren mehr als 300.000 
Stück verkauft wurden, wird 
durch den LC-10 abgelöst. Er 
zeichnet sich durch mehr Schrif¬ 
ten, mehr Bedienungskomfort und 
weniger Lärm aus. 



2 MByte RAM 
Upgrade 


Die Firma Weide Elektronik 
GmbH bietet eine RAM-Erweite- 
rung auf 2 MBytes für alle ATARI 
ST mit 1 MByte RAM an. Norma¬ 
lerweise wird dazu eine Speicher¬ 
bank mit 1 MBit-RAMs bestückt. 
Bei dieser Speichererweiterung 
werden 256 KBit-RAMs verwen¬ 
det, die auch schon im ATARI ST 
mit 1 MByte RAM vorhanden 
sind. Es wird keine zusätzliche 
Software benötigt, da der Speicher 
von der MMU mitverwaltet wird. 
Die Erweiterung Findet im Rech¬ 


ner Platz und erfordert nur 6 Löt¬ 
stellen. Eine Version, die keine 
Lötarbeiten mehr benötigt, ist 
bereits in Arbeit und soll voraus¬ 
sichtlich Mitte März lieferbar 
sein. 

Der Preis für die Speichererweite¬ 
rung beträgt DM 598,-. 


Weide Elektronik GmbH 
Regerstr. 34 
4010 Hilden 
Tel.: 02103/41226 


Neues von UVS 


Das Universal-Lernprogramm 
Lern ST wird in einer verbesserten 
Version für DM 59,- angeboten. 
Dazu gibt es erstmals zwei 
Sprachdisketten für Latein und 
Englisch zu einem Preis von 
je DM 20,-. 

Seit kurzem erscheint regelmäßig 
alle drei Monate die Public Do¬ 
main-Diskettenzeitschrift CIP ST. 
Man kann sie zu einem Preis von 
DM 30,- (4 Ausgaben) im Jahres- 
abo beziehen. 

Als Ergänzung zum GFA-BA- 
SlC-Compiler bietet UVS zum 
erstenmal einen Linker an. Link_it 
ermöglicht das beliebige Dazulin¬ 
ken von Assembler-Files und 
compiHerten Programmen, so daß 
das lästige Nach laden von Ma¬ 
schinenspracheroutinen entfällt. 
Link_it kostet DM 29,- inkl. Rou¬ 
tinenbibliothek. 

Ein anderes Zusatzprodukt zum 


GFA-BASIC heißt Ist BASIC- 
Tool und kostet DM 20,-. Das Ist 
BASIC-Tool enthält u.a. einen 
verbesserten Input-Befehl und 
eine neue Fileselector-Box. Die 
Routinen dürfen lizenzfrei in eige¬ 
ner Software verwendet werden. 
Zu den beiden Software-Paketen 
Adress ST/Check ST (Adreßver- 
waltung und Textkorrekturpro¬ 
gramm) und Label ST (Disketten¬ 
aufkleberbedruckprogamm und 
Disk-Copy-Programm) werden 
neuerdings die Quellcodes mitge¬ 
liefert, damit der Anwender aus 
den verwendeten Routinen noch 
lernen kann. Der Preis der beiden 
Programme liegt bei je DM 29,-. 

Ulrich Veigel Softwareservice 
(UVS) 

Mönchseestr. 83-85 
7100 Heilbronn 
Tel.: 07131/81781 
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Interface 
für Casio 
FX-850P 

Um den ATARI STmit dem Casio 
FX-850P zu koppeln, wird jetzt 
ein Interface angeboten. Es bietet 
eine bidirektionale Datenübertra¬ 
gung mit max. 1200 Baud. Erfreu¬ 
lich ist, daß kein externes Netzteil 
benötigt wird. Geliefert wird es 
komplett anschlußfertig und be¬ 
triebsbereit mit Software für den 
ST. Der Preis beträgt DM 99,-. 

Jochen Flimm / Markus Wolf 
Hardware / Software 
Bodelschwinghweg 15 
6300 Giessen 
Tel.: 0641/34232 


GFA-BASIC 

Linker 


Aus den Niederlanden wird ein 
Linker für GFA-BASIC angebo¬ 
ten. Er ermöglicht die Anlage von 
Modul-Bibliotheken (z.B. AES- 
und VDI-Routinen) und bindet die 
benötigten Module dann ins Pro¬ 
gramm ein. Ferner wird ein Pro¬ 
gramm zur Zeilennumerierung 
und zur Erstellung einer Cross- 
Reference-Liste mitgeliefert. Die 
Gebrauchsanleitung ist in 
deutsch. Der Preis beträgt DM 
25,-. 

Von der gleichen Firma wird ein 
Codierprogramm namens ST- 
Coder angeboten. Mit ihm läßt 
sich jede Art von Datei gegen 


Einsicht von Unbefugten schüt¬ 
zen. Es setzt die Daten in eine 
völlig unlesbare Form um. Der 
Schlüssel zum Decodieren ist frei¬ 
wählbar und wird nicht auf Dis¬ 
kette geschrieben. Die codierte 
Datei wird Byte für Byte über die 
ursprüngliche Datei abgespei¬ 
chert, so daß auch mit einem Dis- 
ketten-Monitor kein unbefugter 
Zugriff stattfinden kann. Der Preis 
beträgt ebenfalls DM 25,-. 


HiQ Systems 
Postfach 21766 
NL-3001 AT Rotterdam 


ST- 

BASIC- 

Compiler 

Der neue Jam Basic Compiler 
lehnt sich ans ST-Basic an. Er 
unterstützt ca. 60 Befehle sowie 
die Datentypen string und integer. 
Die compilierten Programme lau¬ 
fen bis zu 10 mal schneller als im 
Interpreter. Ferner ermöglichen 
die zu erweiternden Bibliotheken 
einen bequemen Umgang mit 
TOS und GEM. Der Compiler 
kostet DM 20,- und ist erhältlich 
bei: 

Christoph Jakfeld 
Alsfeldstr. 23 
4200 Oberhausen 11 


Neuer Scanner 


GEMplus- 

Accessory 



FS 2 

Ein neuer Flachbett-Scanner wird 
von Wilhelm Mikroelektronik an¬ 
geboten. Er ermöglicht ein mo¬ 
nochromes Digitalisieren durch 
einen CCD-Sensor. Der Scanner 
funktioniert ohne bewegten 
Schlitten, so daß auch sperrige 
Objekte verarbeitet werden kön¬ 
nen. Die Features des Scanners 
lauten: 

- Größtmöglicher Scan-Bereich : 
21,6 x 35,6 cm 

- Scan-Geschwindigkeit: 

10 s für DIN A4 bei 300 dpi 

- Auflösungen : 200, 300,400 
dpi - 16 Grauwerte 

- Pseudo-Graustufenerzeugung 
durch Graumuster (Raster) 

- Realtime-Verkleinerung wäh¬ 
rend des Scan-Vorgangs auf 
100, 150 und 200 dpi ohne 
Geschwindigkeitseinbußen. 


- Scanbereich voreinstellbar 

- Fotokopierfunktion auf dem 
ATARI Laserdrucker (1:1); 
dabei stufenlose Verkleine¬ 
rung oder Vergrößerung. 

- Vollständig durchgeschleifte 
gepufferte DMA-Schnittstelle 
nach ATARI-Norm 

Im Lieferumfang ist ein sehr um¬ 
fangreiches Malprogramm zur 
Bearbeitung der Grafiken enthal¬ 
ten. Zusätzlich ist zur Zeit ein 
Softwaremodul zur optischen Zei¬ 
chenerkennung (es werden ca. 200 
Schriften erkannt), eine Option für 
FAX-Empfang- und Sendevor¬ 
gänge und Entwicklerunterlagen 
zur Einbindung des Scanners in 
eigene Programme lieferbar bzw. 
in Vorbereitung. 

Wilhelm Mikroelektronik 
Süggelstr. 31 
4670 Lünen 
Tel.: 02306125299 


Ein Utility-Accessory für den 
ATARI ST bietet Schlegel Daten¬ 
technik an. Es beinhaltet eine er¬ 
weiterte Fileselektorbox, bei der 
bis zu acht Laufwerke auf Knopf¬ 
druck auswählbar sind. Ferner 
sind vier Extension-Wahlknöpfe, 
von denen einer frei definerbar ist, 
vorhanden. Sie besitzt ein 
Schnell-Schließfeld, mit dem man 
sofort in die oberste Directory- 
Ebene kommt usw. 

Als weiteren Menüpunkt kann 
man beim GEMplus-Accessory 
die Mausgeschwindigkeit einstel¬ 


len, optional auch dynamisch wie 
beim Apple Macintosh. 

Es lassen sich mit GEMplus auch 
Hardcopies (quer und normal) und 
Screendumps (Doodle-Format) 
erzeugen. Ferner wird der freie 
Speicherplatz ausgegeben. Zu 
guter letzt lassen sich alle einge¬ 
stellten Parameter abspeichem. 
Der Preis beträgt DM 59,-. 

Schlegel Datentechnik 
Schwarzachstr. 3 
7940 Riedlingen 
Tel.: 07371/2317 
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SCHÖNERE PROGRAMME 



GEM bietet einige sehr interes¬ 
sante Möglichkeiten, die auf dem 
ST leider noch gar nicht richtig 
ausgenutzt werden. Ein wichtiger 
Punkt dabei sind die Textdarstel¬ 
lungen. Da jeder Text im Gra¬ 
fikmodus ausgegeben wird, bietet 
GEM (VDI) die Möglichkeit, ver¬ 
schiedene Textattribute (fett usw.) 
einzustellen und die Textgröße zu 
wählen. Davon machen ja auch 
schon viele Program me (v .a. im 
Grafikbereich) 
reichlich Ge¬ 
brauch. Die 
Entwickler von 
GEM sind aber 
noch einen sehr | 
großen Schritt 
weitergegangen, i 
Man kann außer! 
den System 
zeichensätzen noch andere Fonts 
von Diskette laden (sollte man 
wenigstens können). Das Format 
dabei ist außerdem recht flexibel 
(Proportionalschrift usw.). Dabei 
tritt nur ein großes Problem auf: 
die Implementation auf dem Atari 
ST. Diese ist nämlich nicht 
ganz vollständig, 
bzw. fehlerfrei. 
Mit dem normalen, 
nicht erweiterten 
Betriebssystem ist es 
deshalb nicht möglich, 
diese Zeichensätze zu 
benutzen. 

Aus diesem Grund 
gibt es prinzipiell zwei 
Möglichkeiten, auf dem 
ST*Zeiehensätze zu laden. 

Die eine ist sozusagen 
die offizielle: Man packt 
das Programm GDOS.PRO 
(gehört nicht zum Liefer¬ 
umfang des ST) in den 
Autoordnerder Programm- 
Systemdiskette. muß alle 




bzw. 


einzelnen Fonterößen auf 





diese 
Diskette 

kopieren und die 

möglichen Fonts vorher in 
einer Datei namens ASSIGN.SYS 
festlegen. Dann, und nur dann, kann 
das eigentliche Programm die VDI- 
Funktionen vst_load_fontsund vst_ 
unload_fonts (1 19und 120)benutzen, 
da sie dann funktionieren. Dieses 
Verfahren kann man natürlich an- 
wenden, es hat aber im Vergleich zu 
dem folgenden sehr viele Nachteile: 
der Anwender muß neu booten (wer 
bootet schon immer mit GDOS.PRG 
und dem richtigen ASSIGN.SYS), 
die Zeichensätze sind vorher festge¬ 
legt (es kann nicht im Programm ge¬ 
wählt werden), und es schwirren 
sehr viele Dateien im Hauptdirectory 
(zwingend!) der 
Diskette rum, 
jede Größe eine. 

Deshalb sollte 
sich bei Interesse 
auf jeden Fall mi 
folgendem Ver¬ 
fahren näher 
beschäftigen: 

Die Zeichensatz 
dateien werden 
direkt in den 
Speicher geladen. 

Sie haben ja einen 
definierten Aufbau und auch die in¬ 
terne Organisation der Fonts ist 
dokumentiert. Dies ist gar nicht so 
schwierig, wie es zunächst er¬ 
scheinen mag, allerdings auch nicht 
ganz einfach. 

Im folgenden beschreibe ich eine 
Lösung für GEM-Programme unter 
ST-Pascal plus. Die Anwendung ist 
recht einfach, da es sich lediglich um 


Fonts unter 


hclude-Dateien handelt, 
pige Funktionen zur 
nsatzanwendung zur 
ung stellen. 

Prinzip zu ver - 
sollte man sich 
den Aufbau von 
-Dateien verdeutlichen. 
Zeichensatz besteht prinzipiell 
aus zwei Teilen, dem Font-Header 
und den eigentlichen Zeichensatz¬ 
daten und einer(oder zwei)Tabellen. 
Für die Lösung unseres Problems ist 
der Font-Header 
. Für Pascal 
r sich als Record 
pllen, wie es in 
ONTTYPE.PAS 
ting 1) geschehen 
ehr wichtig ist der 
jagNextFont, da 
geladenen Fonts 
Speicher über 
sen Zeiger ver¬ 
kettet sind. Die 
Einträge sind 
ichtig, allerdings 
verweise ich für genauere Informa- 
t unten angege¬ 

benen Publikationen, vor allem auf 
das zweite Sonderheft der ST-Com- 
puter. Außerdem sollten Sie sich 
einmal das Listing 1 ansehen. da ich 
im folgenden von Datentypen 
spreche, die dort definiert sind. 

Das Prinzip beim Laden eines Fonts 
besteht darin, vom Betriebssystem 
entsprechend Speicher anzuforden, 
die Datei dorthin zu laden, und die 
Zeiger entsprechend zu korrigieren 
(wie es so schön heißt, den Zeichen¬ 
satz in die Liste einzuhängen). Ganz 
so einfach ist es allerdings nicht, wie 
ich weiter unten zeigen werden. Doch 
wo, werden sich findige Leser jetzt 
fragen, soll ich den ersten Zeichen¬ 
satz denn “einhängen*'? Dazu muß 
man das eigentliche GEM verlassen 
und die Line-A-Routinen betrachten, 
die für die Ausgabe von Grafik (und 
auch Text) auf den Bildschirm 
zuständig sind. Die Funktion Line-A- 










ST-pascal plus. 


(erst Low-Byte, dann Hi-Byte). Im 
Speicher müssen sie aber richtig vor¬ 
liegen (der ST benutzt einen 
MC68000). Aus diesem Grund wer¬ 
den im größten Teil des Fontheaders 
und in den dann folgenden Tabellen 
die Worte “motorolatisiert". Die 
eigentlichen Zeichensatzdaten sind 
aber schon richtig vorhanden (wenn 
auf dem ST erstellt). Nach diesen 
ängen werden die Offsets noch 
rt und der Zei- 
in die 
ste “einge¬ 
hängt". 
InstallFont 
gibt dann 
den Zeiger 
auf den 
Zeichensatz 
als FontPtr 
zurück. Die 
entgegenge¬ 
setzte Funktion zu 
LoadFont ist UnloadFont. Der Zei¬ 
chensatz wird aus der Liste “aus¬ 
gehängt" und der belegte Speicher 
w ieder freigegeben. 

Mit diesen beiden Funktionen können 
Sie schon mehr machen als mit den 
Original-Funktionen. Wenn Sie 
einen Zeichensatz laden wollen, 
müssen Sie folgendermaßen Vorge¬ 
hen: Sie fügen in GEM-Programmen 
(und nur dort) hinter |$1GEMTYPE| 
bzw. (SIGEMSUBS1 (SIFONT- 
TYPE | und | SIFONTSUBS) ein und 
deklarieren dann eine Variable vom 
Typ Font. Um dann einen Zeichen¬ 
satz zu laden, machen Sie folgendes 
(Ihre Variable heißt z.B. Zeichens): 


Zeichens: = I.»adFont ("DATEI NAM.FNT\2): 


‘DATEI NAM.FNT* 
steht dabei für 
den Namen der 
Fontdatei, die 2 für 
die Nummer, unter 
der der Font an 
sprochen werden 
soll. Wenn Zeichei 
lNIL ist, ist 
jler auf 
licht v 
|nig Speie 


Init (SA000) gibt drei Adressen 
zurück, wovon eine auf eine Tabelle 
zeigt, die wiederum die Adressen der 
Systemfont-Header enthält (Kom¬ 
men Sie noch mit?). Aus dieser Tat¬ 
sache ergibt sich auch die Aufgabe 
einer Prozedur in meinen Routinen, 
nämlich von FirstFontPtr. Diese 
Funktion liefert einen Zeiger auf den 
Header des ersten GE 
(Datentyp 
oder auch Fo 
Wie oben sc 
erwähnt, ist 
allerdings etw 
Assembler not¬ 
wendig. Der Ein¬ 
fachheit halber 
habe ich diese 
kurze Routine in 
ein Feld gepackt 
und zum Aufruf 
die XBios-Routin 
SupExec (38) be¬ 
nutzt. Der Aufruf 
Supervisormodus, 
keine Betriebs Systemfunktionen 
benutzen, aber das stört hier nicht 
(dieses Verfahren bietet sich sowieso 
bei kleinen Routinen an, wenn man 
nicht gleich eine extra Objekt-Datei 
benutzen will.) Nach Aufruf dieser 
Funktion steht in Routine. Poin 
die Adresse des ersten GEM- 
(gleich als richtiger Typ). Für I 
teressierte: Der Quelltext der Ro 
tine steht in FONTINIT.AS 
(Listing 2b). LastFontPtr benu 
FirstFontPtr un d “han gelt" sich 

die Liste ent 


lang, um 
letzen 
zu besti 
men. Dort 
werden 
neue Fonts 
| angehängt. 


erfolgt zwar im 
und man darf 




- 


einen 

Zeichensatz zu laden 

-Datei), wird die Funktio 
LoadFont benutzt. Diese 
öffnet die Datei und ruft 
dann InstallFont auf. 
InstallFont erledigt die 
eigentliche Arbeit. Ich 
möchte das eigentliche 
Funktionsprinzip nur 
kurz beschreiben,sehen 
Sie sich das Listing an, oder 
benutzen Sie die angegebene 
Literatur. 

Zuerst wird entsprechend 
der Dateilänge vom Be¬ 
triebssystem Speicher ange¬ 
fordert. Aus diesem Grund muß bei 
Benutzung von FONTSUBS folgen 
des auf jedem Fall gewährleistet 
sein: Das Betriebssystem muß ge¬ 
nügend Speicher haben! Also am 
besten die U-Option des Compilers 
benutzen; {$U 100} wird wohl rei¬ 
chen. Nachdem 
also hoffentlich 
Speicher reser¬ 
viert werden 
konnte, wird 
die Datei an 
diese Stelle 
mit Hilfe von 
FRead 
(Gemdos) 
eingelesen. 
Nun folgen aber 
noch einige Operationen, die vor¬ 
allem folgenden Sinn haben:DaGEM 
auch auf PCs zu finden ist, sind 
im Fontheader und in den Tabellen 
Worte im Intel- 
Format abge 
speichert 
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Wenn Sie nun diese Schrift benöti¬ 
gen, kommt Text_Face zum Einsatz: 
Text_Face(2); wählt den Font mit der 
Nummer zwei. Alle Grafik-Text- 
Ausgaben benutzen dann diesen Font 
bis Sie mit Text_ Face( 1); wieder den 
Systemfont einschalten. So einfach 
kann die Anwendung von Zeichen¬ 
sätzen sein (oder ist das etwa nicht 
einfach ?!). Vor Programmende müs¬ 
sen Sie dann nur noch Unload 
Font(Zeichens); aufrufen, um den 
Speicher wieder ordnungsgemäß 
freizugeben. 

Bis hierhin ist es ja schon ganz schön 
und ich war auch ganz erfreut, daß ich 
nach einigen Mühen und leider auch 
Abstürzen zum ersten Mal Propor¬ 
tionalschrift auf dem “Pascal-Bild¬ 
schirm” sah. Es bleibt nur noch ein 
Problem: die vielen Dateien auf den 
Disketten. Eine eigene Datei für jede 
Größe jedes Zeichensatzes ist nun 
wirklich nicht nötig. Es sieht nicht nur 
unübersichtlich aus, sondern benötigt 
effektiv auch mehr Platz auf der Dis¬ 
kette und mehr Ladezeit. Deshalb 
habe ich mir ein Format ausgedacht, 
um mehrere Dateien sinnvoll zusam¬ 
menzufassen. Es ist zugegebenerma¬ 
ßen nicht sehr aufwendig, aber dafür 
extrem nützlich. Hier nun eine Be¬ 
schreibung dieses Formats: 

Die ersten zwölf Bytes stellen eine 
Kennung da, um die Datei zu identi¬ 
fizieren. Sie müssen “ZSA-GEM- 
FONT” enthalten, da ich solch eine 
Datei ZSA-Datei nenne (von Zei¬ 
chensatz, klar?). 

Das nächste Wort gibt nun die Anzahl 
der verschiedenen Fontarten (Faces) 
an. Für jedes Face wiederholen sich 
die folgenden Daten: 

1 Wort: Anzahl der Zeichensatzgrö¬ 
ßen für jedes Face. 

Für diese einzelnen Größen wieder¬ 
holen sich nun wiederum die näch¬ 
sten Daten: 

/ Wort: Länge der eigentlichen Zei¬ 
chensatzdatei (FNT). 

danach: Die Daten dieser FNT-Datei 
ohne jede Änderung. 

Wenn man eine so aufgebaute Datei 
laden will, kommen andere Funktio¬ 
nen zum Einsatz. Sie brauchen keine 
Variable des Types Font mehr, son¬ 
dern dafür eine vom Typ FontList. 
Der Funktion LoadZsaFonts überge¬ 
ben Sie folgende Parameter: 


Zuerst wieder den Dateinamen 
(*.ZSA), dann die Face-Nummer; 
diese Face-Nummer gilt für den er¬ 
sten geladenen Face. Alle weiteren 
Faces werden fortlaufend numeriert. 
Der letze Parameter ist die eben er¬ 
wähnte “Font-Liste”. Die Funktion 
LoadZsaFonts lädt alle Fonts in den 
Speicher. Das genaue Vorgehen ent¬ 
nehmen Sie bitte dem Listing. Es wird 
auch InstallFont benutzt, die Haupt¬ 
sache funktioniert also genauso wie 
bei LoadFont. LoadZsaFonts gibt die 
Anzahl der korrekt geladenden Faces 
zurück. Bei Auftreten eines Fehlers 
ist der Funktionswert Null. 

Die nachgeladenen Fonts können Sie 
dann mit Text_Face(2,3,4 usw.) an¬ 
sprechen. Wenn das Programm mit 
seiner Arbeit fertig ist, muß es nicht 
UnloadFont sondern UnloadFonts 
(das kleine s ist wichtig!) aufrufen. 
UnloadFonts verlangt genau wie 
UnloadFont einen Parameter, aber 
nicht vom Typ Font, sondern vom 
Typ FontList. Es werden alle Zei¬ 
chensätze freigegeben, und es kann 
auf sie nicht mehr zugegriffen wer¬ 
den. 

Mehrere Zeichensätze 
in einer Datei 

Meiner Meinung nach sind diese 
zusammengefaßten Zeichensätze in 
den meisten Fällen eine große Er¬ 
leichterung. Um nun auch das Erstel¬ 
len einer solchen Datei zu erleichtern, 
habe ich ein kleines GFA-Basic-Pro- 
gramm geschrieben (Listing 4). Es ist 
zwar nicht sehr komfortabel, aber 
trotzdem ist die Bedienung recht ein¬ 
fach, so daß ich hier nicht weiter dar¬ 
auf eingehe. 

Das Anwenden von GEM-Fonts re¬ 
duziert sich durch diese Routine auf 
folgende Schritte: Include-Files an 
den richtigen Stellen definieren. 
LoadFont oder LoadZsaFonts mit den 
entsprechenden Variablen aufrufen. 
Bei Bedarf mit Text_Face die ge¬ 
wünschte Schriftart bestimmen und 
am Ende UnloadFont oder Unload¬ 
Fonts aufrufen. 

Einen Hinweis muß ich allerdings 
noch anbringen: In dieser Form lau¬ 
fen die Routinen nur mit der neuesten 


Version von Pascal plus. Ich benutze 
z.B. manchmal Long_Integers als 
Schleifenvariablen, und außerdem 
sind in älteren Versionen einige 
GEM-Funktionen nicht vordefiniert. 
Ein Umschreiben müßte möglich 
sein, doch empfehle ich sowieso auf 
jeden Fall, sich die neueste Version zu 
besorgen (Das Update ist gar nicht so 
teuer, es lohnt sich.). 

Ab jetzt steht also der Verschönerung 
von GEM-Programmen durch ver¬ 
schiedene Zeichensätze nichts mehr 
im Wege. (Außer daß Sie keine Zei¬ 
chensätze haben?! Da kann ich Ihnen 
auch nicht helfen. Aber trösten Sie 
sich, ich habe da auch meine Proble¬ 
me. Man bekommt wirklich fast kei¬ 
ne. Aber vielleicht ändert sich das 
jetzt; als Anregung: Wer schreibt 
einen guten Font-Editor?) 

Konvertierung der 
Zeichensätze 

Es gibt allerdings eine Lösung für 
dieses Problem der fehlenden GEM- 
Zeichensätze: Die Konvertierung von 
anderen Formaten. Sicherlich gibt es 
einige Leser, die STAD- oder Font- 
loader-Fonts haben. Solche gibt es 
teilweise auch schon auf Public- 
Domain-Disketten. Nun habe ich ein 
kleines GFA-Basic-Programm ge¬ 
schrieben, das diese Konvertierung 
vomimmt. Ein Nachteil ist, daß sol¬ 
che Zeichensätze nicht proportional 
und nur in der Standardgröße vorhan¬ 
den sind. Trotzdem lohnt es sich, sie 
zu benutzen. Es ist immerhin etwas. 
Zur Anwendung des Programms 
(Listing 4) ist folgendes zu sagen: 

In einer Alert-Box wählen Sie die Art 
des zu konvertierenden Fonts, dann 
den Namen. Danach wird er in den 
Speicher geladen und Sie werden 
aufgefordert, den Namen einzuge¬ 
ben, der in den Font-Header eingetra¬ 
gen wird. Danach geben Sie den Da¬ 
teinamen des GEM-Fonts ein und er 
wird auf Diskette geschrieben. Dazu 
noch eine Anmerkung: Lassen Sie 
sich ein System einfallen, um GEM- 
Fonls von anderen Fonts zu unter¬ 
scheiden, da alle die Extension 
“FNT” haben. 

geht weiter... 
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Nun noch einige Hinweise zu dem 
beigefügten Beispielprogramm (Li- 
sting 3): Es macht nicht besonders 
viel: Sie können eine FNT- oder ZS A- 
Datei wählen und dann Face, Attribu¬ 
te und Größe einstellen. Nach diesen 
Parametern wird dann ein kleiner 
Text ausgegeben. Vertiefen Sie sich 
mal in das Listing, da das Programm 
sonst keinen praktischen Wert hat. 
Noch viel Spaß beim Programmieren, 
vorallem mit dem ausgezeichneten 
Pascal plus, und vielleicht erstellt ja 
jemand mal Zeichensätze. Ich würde 
mich darüber freuen. 

Lutz Preßler 

Weitere Informationen finden Sie in: 
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1) GFA-Basic-Buch (GFA) vor allem im 
Kapitel Fonts (dort ist eine ähnliche 
Lösung für GFA-Basic beschrieben). 

2) Atari ST - GEM (Data Becken 

3) Atari ST Intern (Data Becker) 

4) ST-Computer-Sonderheft 2 (Heim- 
Verlag) 

außerdem natürlich auch noch 
in anderen Büchern über GEM. 


1 

2 

: { Listing 1: ) 



3 

4 

: { FONTTYPE.PAS - 

Typendefinitionen für FONTSUBS.PAS 

5 


GEM-Fonts unter ST- 

■Pascal plus 



laden. LPSoft 

1987 ) 

6 

7 

FontPtr 

= A FontHeader; 


8 

FontHeader 

= Record 


9 


FontId 

: Integer; 

10 


FontSize 

: Integer; 

11 


FaceName 

: Packed Array 



[1. .32] of Char; 

12 


LowADE 

: Integer; 

13 


HighADE 

: Integer; 

14 


TopLine 

: Integer; 

15 


AscentLine 

: Integer; 

16 


HalfLine 

: Integer; 

17 


DescentLine 

: Integer; 

18 


ButtomLine 

: Integer; 

19 


CharWidth 

: Integer; 

20 


CellWidth 

: Integer; 

21 


LeftOffset 

: Integer; 

22 


RightOffset 

: Integer; 

23 


Thickening 

: Integer; 

24 


UnderLineSize 

: Integer; 

25 


LightMask 

: Integer; 

26 


SkewMask 

: Integer; 

27 


Flags 

: Integer; 

28 


HorOffsetTable 

: Long_Integer; 

29 


CharOffsetTable 

: Long_Integer; 

30 


FontData 

: Long_Integer; 

31 


FormWidth 

: Integer; 

32 


FormHeight 

: Integer; 

33 


NextFont 

: FontPtr; 

34 


End; 


35 

Font 

= FontPtr; 


36 

FontListPtr 

= A FontListEle; 


37 

FontListEle 

“ Record 


38 


Pointer : 

FontPtr; 

39 


Next : 

FontListPtr; 

40 


End; 


41 

FontList 

= FontListPtr; 


42 




43 

{ END OF FONTTYPE.PAS ) 



1: { Listing 2: } 

2: { ========== } 

3: 

4: { FONTSUBS.PAS - 'GEM-Fonts' unter ST-Pascal plus 

5: laden und benutzen. 1987 by LPSoft Lutz Preßler, 

6: 2904 Hatten 23.11.87 } 

7 ; { ************* VORHANDENE FUNKTIONEN **************** 

8: Function LoadFont(<Name:String>,<FaceNo:Integer>): 

<FontPtr>; 

9: -> Eine Zeichensatzdatei laden (<Name>:*.FNT) und als 

Face <FaceNo> 

10: installieren. Rückgabewert (FontPtr): Zeiger auf 

11: Zeichensatz oder NIL bei Fehler. 

12: Function LoadZsaFonts(<Name:String>,<FaceNo:Integer>, 

13: <List:FontList>) : <Integer> 

14: -> Mehrere Zeichensätze im ZSA-Format laden und die 

darin enthalten Faces ab Nummer <FaceNo> 

15: installieren. <Name>:*.ZSA, <List>: Liste von 

16: Font-Pointern (für späteren Zugriff und Löschen; 

muß nicht leer sein). 

17: Rückgabewert (Integer): Anzahl der geladenen Faces 

oder 0 bei Fehler. 

18: Procedure UnloadFont(<Ptr:FontPtr>) 

19: -> Einen Zeichensatz (Ptr) löschen. Er kann danach 

20: nicht mehr benutzt werden, der belegte Speicher 

wird freigegeben. 

21: Procedure UnloadFonts(<List:FontList>) 

22: -> Mehrere Zeichensätze löschen (Liste der Zeichens.: 

23: List). Siehe UnloadFont. Die Liste ist danach leer 

(NIL). 

24: Procedure Text_Face(<FaceNo:Integer>) 

25: -> Textface auswählen. Bei nicht vorhandenem Face 

26: wird der Systemfont benutzt. 

27: Die anderen Funktionen werden eigentlich nur intern 

benötigt. 

28: Anm.: Der Datentyp Font entspricht FontPtr. 

29 ; ************************************************ } 

30: 

31: Function FontAdress(Ptr:FontPtr): Long_Integer; 

32: Var X: Record Case Integer Of 

33: 0: (Adr: Long_Integer); 1: (Ptr: FontPtr); End; 

34: Begin {$P-} X.Ptr:=Ptr; FontAdress:=X.Adr; 

($P=) End (of FontAdress); 

35: Function FontPointer(Adr:Long_Integer): FontPtr; 

36: Var X: Record Case Integer Of 

37: 0: (Adr: Long_Integer); 1: (Ptr: FontPtr); End; 

38: Begin ($P-) X.Adr:=Adr; FontPointer:=X.Ptr; 

($P=) End (of FontPointer); 

39: Function FirstFontPtr: FontPtr; 

40: Type Rout Type = Record 

41: Code: Array[1..7] of Long_Integer; 

42: Pointer: FontPtr; 

43: End; 

44: Var Routine: RoutType; 

geht weiter... 
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45: 

Procedure CallSup(Var Code : RoutType) ; XBios(38); 


116 

Test : String[8]; 

46: 

Begin 


117 

TChar : Char; 

47: 

Routine.Code[1]:=$48E780E0; 


118 

FaceAnz,Fa, 


Routine.Code[2]:=$A0002269; 


119 

GrAnz,Gr : Integer; 

48: 

Routine.Code[3]:=$00042269; 


120 

Ptr : FontPtr; 


Routine.Code[4] : =$00544 IFA; 


121 

LPtr : FontList; 

49: 

Routine.Code[5]:=$000C2089; 


122 

Function IO_State: Boolean; External; 


Routine.Code[6]:=$4CDF0701; 


123 

Function Fseek(Offs:Long_Integer; H,M:Integer) : 

50 

Routine.Code[7]:=$4E754E71; 



Long_Integer; Gemdos($42); 

51 

CallSup(Routine) ; 


124 

Function Readlnt : Long_Integer; 

52 

FirstFontPtr : =Routine . Pointer; 


125 

Type IntegerPtr = A Integer; 

53 

End {of FirstFontPtr}; 


126 

Var I: IntegerPtr; 

54 

Function LastFontPtr: FontPtr; 


127 

Procedure Fread(H:Integer; C:Long_Integer; 

55 

Var P: FontPtr; 



C,Buf : IntegerPtr) ; Gemdos($3F) ; 

56 

Begin 


128 

Begin 

57 

{$P-} P:=FirstFontPtr; 


129 

I:=NIL; New(I); 


While P A .NextFontONIL do P :=P A .NextFont; 


130 

FRead(FHandle,2,1) ; 

58: 

LastFontPtr:=P; {$P=} 


131 

Readlnt:=(I A &$FFFF) ; 

59: 

End {of LastFontPtr}; 


132 

Dispose(I) ; 

60 

Function InstallFont(FaceNo,FHandle:Integer; 


133 

End; 


Flang:Long Integer) : FontPtr; 


134 

Begin 

61 

Var Adr , Anz/I : Long Integer; 


135 

IOStat:=IO_State; IO_Check(False) ; 

62 

Ptr,PrPtr : FontPtr; 


136 

Reset(Dat,Name) ; 

63 

Function SwapWord(X:Integer) : Integer; 


137 

If IO ResultoO then LoadZsaFonts :=0 eise begin 

64 

Begin SwapWord:=Shl((X&$FF) , 8)+(Shr(X,8)&$FF) ; End; 


138 

Test :=''; 

65 

Function Malloc(Amount:Long Integer): Long Integer; 


139 

For I :=1 to 4 do Read(Dat,TChar) ; 


Gemdos($48) ; 


140 

For I:=l to 8 do begin Read (Dat, TChar) ; 

66 

Procedure Fread(H:Integer; C,Buf:Long Integer); 



Test[I]:=TChar; End; 


Gemdos($3F) ; 


141 

Test[0]:=Chr(8) ; 

67 

Function PeekWord(Adr:Long Integer) : Integer; 


142 

If Test =/ GEM-FONT' then begin 

68 

Var X: Record Case Integer Of 


143 

FHandle:=Handle(Dat) ; Lang:=FSeek(12,FHandle,0) ; 

69 

0: (Adr: Long Integer); 1: (Ptr: A Integer) ; 


144 

FaceAn z : =ReadInt ; 


End; 


145 

Fehler:=False; 

70 

Begin {$P-} X.Adr:=Adr; PeekWord:=X.Ptr A ; {$P=} End; 


146 

For Fa:=FaceNo To FaceNo+FaceAnz-1 do begin 

71 

Procedure PokeWord(Adr : Long Integer; Wert : Integer) ; 


147 

G rAn z : =ReadInt ; 

72 

Var X: Record Case Integer Of 


148 

For Gr:=l to GrAnz do begin 

73 

0: (Adr: Long Integer); 1: (Ptr: A Integer) ; 


149 

If not Fehler then begin 


End; 


150 

Lang:=ReadInt; 

74 

Begin {$P-} X.Adr:=Adr; X.Ptr A :=Wert; {$P=} End; 


151 

Ptr:=InstallFont(Fa,FHandle,Lang) ; 

75 



152 

If Ptr=NIL then begin 

76 

Adr:=Malloc(Flang) ; 


153 

Fehler:=True; FaceAnz:=Fa-FaceNo; end 

77 

If Adr<=0 then InstallFont:=NIL eise begin 


154 

eise begin 

78 

Fread(FHandle, Flang,Adr) ; 


155 

New(LPtr) ; 

79 

Ptr:=FontPointer(Adr) ; 


156 

LPtr A .Pointer:=Ptr; 

80 

{$P-} 


157 

LPtr A .Next:=List; 

81 

Anz:=SwapWord(Int(Shr(Ptr A .FontData,16))) ; 


158 

List:=LPtr; 

82 

Ptr A .FontId:=SwapWord(Ptr A .Fontld) ; 


159 

End; 


Ptr A .FontSize:=SwapWord(Ptr A .FontSize) ; 


160 

End; 

83 

For I:=18 to (Anz-1) div 2 do 


161 

End; 

84 

PokeWord(Adr+I*2,SwapWord(PeekWord(Adr+I*2))) ; 


162 

End; 

85 

Ptr A .HorOffsetTable:=Adr+Int(Shr 


163 

LoadZsaFonts : =FaceAnz ; 


(Ptr A .HorOffsetTable,16)) ; 


164 

End eise LoadZsaFonts:=0; 

86 

: Ptr A .CharOffsetTable:=Adr+Int(Shr 


165 

End; 


(Ptr A .CharOffsetTable,16)); 


166 

IO_Check(IOStat) ; 

87 

Ptr A .FontData:=Adr+Int(Shr(Ptr A .FontData,16)) ; 


167 

End {of LoadZsaFonts}; 

88 

PrPtr:=LastFontPtr; PrPtr A .NextFont:=Ptr; 


168 

Procedure UnloadFont(Ptr : FontPtr) ; 

. 89 

InstallFont:=Ptr; Ptr A .FontId:=FaceNo; 


169 

Var P: FontPtr; 


Ptr A . NextFont : =NIL; 


170 

Procedure FMfree(Adr:FontPtr) ; Gemdos($49); 

90 

{$P=} 


171 

Begin 

91 

End; 


172 

{$P-} P:=FirstFontPtr; 

92 

End {of InstallFont}; 



While P A .NextFontoPtr do P :=P A .NextFont ; 

93 

Function LoadFont(Name : String; 


173 

P A .NextFont:=Ptr A .NextFont; {$P=} 


FaceNo:Integer) : FontPtr; 


174 

FMfree(Ptr) ; 

94 

Var Dat : Text; 


175 

End {of UnloadFont}; 

95 

FHandle : Integer; 


176 

Procedure UnloadFonts(Var List:FontList) ; 

96 

Flang,I : Long_Integer; 


177 

Var P: FontList; 

97 

IOStat : Boolean; 


178 

Begin 

98 

Function Fseek(Offs:Long_Integer; H, M: Integer) : 


179 

P:=List; 


Long_Integer; Gemdos($42) ; 


180 

While PONIL do begin 

99 

Function IO State: Boolean; External; 


181 

UnloadFont(P A .Pointer) ; 

100 

Begin 


182 

List:=P; 

101 

IOStat:=IO_State; IO_Check(False) ; 


183 

P:=P A .Next; 

102 

Reset(Dat,Name) ; 


184 

Dispose(List) ; 

103 

If IO_Result<>0 then LoadFont:=NIL eise begin 


185 

End; 

104 

FHandle:=Handle(Dat) ; 


186 

List:=NIL; 

105 

Flang:=Fseek(0,FHandle, 2) ; I :=Fseek(0,FHandle, 0) ; 


187 

End {of UnloadFonts}; 

106 

LoadFont:=InstallFont(FaceNo,FHandle,Flang) ; 


188 

Procedure Text_Face(FaceNo : Integer) ; 

107 

End; 


189 

Var Control : Ctrl_Parms; 

108 

IO_Check(IOStat) ; 


190 

Int in : Int_In_Parms; Int_out : Int_Out_Parms; 

109 

End {of LoadFont}; 


191 

Pts_in : Pts_In_Parms ; Pts_out : Pts_Out_Parms; 

110 

Function LoadZsaFonts(Name:String; FaceNo:Integer; 


192 

Begin 


Var List:FontList) : Integer; 


193 

lnt_in[0]:=FaceNo; 

111: 

: Var Dat : Text; 


194 

VDI_Call(21,0,1,0,Control,Int_in,Int_out , Pts_in, 

112: 

: FHandle,I : Integer; 



Pts_out,False) ; 

113: 

: Lang : Long_Integer; 


195 

: End {of Text_Face}; 

114: 

: IOStat, 


196 


115: 

: Fehler : Boolean; 


197 

: { END OF FONTSUBS.PAS } 


18 /l 4/88 























STARKE 

SOFTWARE 


ST ARCHIVAR 

DIE ÜBERZEUGENDE 
DATEIVERWALTUNG 


wissei 

eher Texte 

Verwaltet und bearbeitet Zitate u. Lil 
turangaben und Ausgabe als Text 
- Komfortable Nutzung für Video- u. Adres- 


erweiterbar 

- Veränderung der Dateimasken 

- Speicherung der Daten als DIF oder SDF 
Datei, damit Übernahme in Datenb 


sendateien 



iltung mit Dateien von bis zu 
n (38 in Vorbereitung und 


i nachladbar u. aus¬ 
zuführen ohne ARCHIVAR zu verlas 
(z. B ist Word) 

mit allen Textprogrammen kompatil 
die ASCII einiesen 
Ausdruck von Karten 
(z. B. Bibliothekskarten) 

Listen-Ausdruck auf Knopfdruck 
Etiketten-Ausdruck 
Einfache Druckerprogrammierung 
Einfach bedienbar mit der Maus 
•ARCHIVAR enthalt zahlreiche Hilfsprogramme 
Bibliotheks-Suchfunktion (ganze Disket¬ 
ten durchsuchen lassen) 

Info-Datei über alle ARCHIVAR-Dateien 


Kopierprogramm 
Sortierprogramm 
Erzeugt RAM-DISK G bis 1750 KB 
Automatisches Kopieren in die I 


nipi/ r* L«tr*»«^4 

ui oft o D©im bian 

und das alles für 


DM 89, 


ST PRINT I 

4 NÜTZLI CHE PROGRAMME | 

iummt 

- Größe einstellbar von 32 - 4000 KB 
kann auf Laufwerk C bis P gelegt 
arbeitet problemlos mit einer 

- sehr schnell, da in Maschinen: 
programmiert 
DRUCKERSPOOLER, 

- Größe einstellbar von 2 - 510 KB 

- Arbeitet mit TOS- u. GEM-Programmen 
Hohe Geschwindigkeit beim Ausdruck 
ORUCKERVOREINSTELLUNG 

mit der Maus. Knopfdruck statt Handbuch 
viele Emstellmöglichkeiten 
Einstellung des Druckers vom Desktop u. 
aus jedem GEM-Programm (VIP Prof., 

HARDCOPYROUTINE 

- nutzt die Fähigkeiten von 9-, 18 
24-Nadeldruckem 
versch. Auflösungen, Schnelldruck bis 
Qualitätsdruck 

Umsetzung der Farben in Grauwerte 
gespoolte Hardcopy etc. 


DM 59, 


ST PLOT 

KURVENDISKUSSIONS- U. 
FUNKTIONSPLOTTER-PRG. 


- zeichnet die Schaubilder von bis zu 3 
Funktionen u deren örste u 
tung gleichzeitig auf einen Bildschirm. 
Danach können Ausschnitte der Funktio¬ 
nen 
ist 

Die Bedienung ist somit sehr einfach, 
brauchen nur 

alle anderen Berechnungen erledigt 


ist ein Programm, das mehr kann, als ein¬ 

fach nur Funktionen zeichnen. 
stimmt die richtigen Ableitungen u. damit 
werden Null-, Extrem- und Wendestellen 
berechnet, es stellt den 
reich u. die Periode fest und 


läuft sowohl in mittlerer wie auch in fi 
Auflösung. 

ist nicht nur für Professoren, Stu 
u. Schüler interessant. Es kann überal 
dort angewendet werden, wo man : 
mit Funktionen beschäftigt 
Umfangreiche Eingabemöglichkeiten, z. E 
1l. Funktionen eines wis: 
von 10 versch. Zahlen- 

Komfortable Zeichnung, z. B. autom 
Zeichnung u. Beschriftung der Achsen 
und deren Skalierung. Fehlerroutinen, 
damit keine unnötigen * 
zeichnet werden, beliebig viele Funktio- 

bar ermöglicht Funktionenvergleich 
Ablesung der Schnittpunkte etc. 

Beste Berechnung der Fui 
z. B. Hohe Rechengeschwindigkei 
Rechengenauigkeit 


ST AKTIE 

AKTIENVERWALTUNG 



Sämtl großen deutschen Standardwerte 
(55 St.) bis Okt 87 fortgeführt 
- Kto.-Führung für alle Orders u andere 
Buchungen 

Kompakt, übersichtlich, Menü-orientiert. 
einfache Bedienung durch Maus, u. Ifd. 

Graph. Darstellung 
generiert selbständig 


DM 69 , 


ST DIGITAL 
LOGIKSIMULATOR 
ÜR DEN ATARI ST 


Analysieren von Logikschaltungen für Aus¬ 
bildung und Hobby-Elektronik. 

Komfortable GEM-Umgebung 
Bauteile lassen sich per Maus plazieren 

i 

> Bauteile-Set (Grundgatter, 
, Flip-Flops, etc.) 

durch 


DM 59, 



Makros können in Libraries gespeichert 


- Interaktive Simulation mit Darstellung der 

Schaltern’ mft_därMaus 

Reaktion der 

- Erzeugen von li 

- Hardcopy-Funktion 
Hardwarevoraussetzung: 

ü 



SKYPLOT plus 

IN ASTRONOMIEPROGRAMM 
ÜR STERNENFREUNDE 


1053 Nebel. Sternhaufen u. Galaxien 
- acht Planeten, Sonne. Mond u. drei Ko- 


ahnelemente möglich 


Darstellung des Himmels als rechteckige 


- maßstäbliche Darstellung von Nebeln u 
Planeten als Scheiben, letztere als Phra¬ 
sen - etc. dadurch Darstellung von Fin¬ 
sternissen. Durchgängen. Bedeckungen 

automat. Suche nach Konjunktionen 
Bewegungsbahnen von Planeten mit max 
32000 Punkten, speicherabh. 
einstellbarer Datumsbereich 
1.1 1583 - 31.12.3000 
Gradnetz auf Wunsch einblendbar 
für Hardcopy Bild invertierbar 
Darstellung dreidimensional oder von 
Planeten anderer Sterne aus 
Stellarstatistik; Sichtbarkeitsdiagramn 
Sternkarten können mit allen Objekten 

Simulation eines Films im Speicher, da¬ 
durch Bewegungsabläufe sichtbar 
Handbuchfunktion verweist bei jed 
Menüpunkt auf Handbuchseite 
und vieles andere mehr 
Hardware-Voraussetzung: 

ATARI ST mit mind. 1 MByte. 

DM 198, 
Update DM 8( 


ST-LEARN 

DER VOKABELTRAINER 
FÜR DEN ST _ 

programmiert v. D. Owerfeldt, 

Gewinner der GOLDENEN DISKETTE 87 

ür das beste Lernprogramm 

- Läuft vollständig unter GEM 

- „Intelligente“ Auswertung der Benutzer¬ 
eingaben 

- Fehlerhäufigkeit einer Vokabel wird be¬ 
rücksichtigt 

- Berücksichtigung mehrerer Bedeutungen 
eines Wortes 

- Vielfältige Möglichkeiten des Lernens und 
der Abfrage 

- Integriertes Lernspiel „HANGMAN“ 

- Spezielle Auswertung für unregelmäßige 
Verben (bei Eingabe von „to go“ werden 
die anderen 2 Formen nachgefragt) 

- Bei offensichtlicher Ähnlichkeit der Wör¬ 
ter wird wahlweise ein 2. Versuch zuge¬ 
lassen 

- Trotz Einordnung der Vokabeln nach Lek¬ 
tionen oder Wissensgebieten ständig 
schneller Zugriff auf alle Vokabeln (nur 
durch Größe des Speichermediums be¬ 
grenzt) 

- Voller europäischer Zeichensatz (Zugriff 
durch die Maus unter GEM) 

- Auch für Farbmonitor in mittlerer Auf¬ 
lösung 

- Wörterbuchfunktion durchsucht alle Files 
eines Speichermediums nach einer Über¬ 
setzung ab 

- Verbessertes Eingabeformular 

DM 59, 


ST STRUKTUR-PAINTER 

DAS SUPER-PROGRAMM zum kreativen Erstellen von Graphiken 
aller Art - ohne Malkenntnisse 


- Einfache Bedienung, ansprechende 
Menüs 

- Automatischer Malmodus. Muster in Mil¬ 
lionen Variationen erstellt 

- 2 Füllroutinen, 2 Blockspeicher 

- WYSIWYG 

- Ausschneiden u. Einkopieren von beliebi 
gen Formen 

Freihand. Verschiedene Pinsel, Füll¬ 
muster als Pinsel. Malen mit Bildaus¬ 
schnitten 

ohne Editor; eine 


über 200 Füll¬ 
muster gleichzeitig verfügbar 
Vergrößern. Verkleinern; 3 Endprodukte 
zur Auswahl 
Spiegeln. Drehen 
(dreht in 2 Rieht, gleichzeit.) 

Stauchen 

Rahmen (1) Erzeugen von Rahmen e 
allen Graphiken 
Rahmen (2): Automatische Rahmenbe¬ 
rechnung 


Schatten: Automatische Schattenberech 
nuna (3-D-Effekt) 

- TetJmuster, Font's (23 Größen, 21 Arten, 
4 Verknüpfungen 
Lineal. Einblendbare Einteilung 
Radierer u. Sprühdose beliebig einstell- 

Druckertreiber für alle Epson- u. IBM- 
kompat. Drucker sowie Laserdrucker im- 
■ptemeritfert ' . | 

Schnelle Lupe mit: Punkt, Rechteck. Li¬ 
me, Invertieren. Löschen 
Invertieren auf Knopfdruck während ge- 


Voll Mausgesteuert 
Keine Kompatibilitätsprobl. mit Bildern 
anderer Programme H 

STruktur-Painter Bilder auch mit Signum 
2 verarbeitbar. 

und viele weitere Möglichkeiten 



DM89, 


* alle Preise sind unverbindlich 
empfohlene Verkaufspreise 


Bitte besuchen Sie uns in 


Halle 7 / Stand E 46 



Wett-C«ntrum Huro* Information .Telekommunikation 

16. - 23. MÄRZ 1988 

Heim Verlag 

Heidelberger Landstraße 194 
6100 Darmstadt-Eberstadt 
Telefon 06151-5 6057 


BESTELL-COUPON 


an Heim-Verlag 
Heidelberger Landstraße 194 
6100 Darmstadt-Eberstadt 


Bitte senden Sie mir: 


zzgl. DM 5,- Versandkosten (unabhängig von bestellter Stückzahl) 

□ per Nachnahme □ Verrechnungsscheck liegt bei 

Name, Vorname_ 

Straße, Hausnr._ PLZ, Ort_ 

Benutzen Sie auch die in ST COMPUTER vorhandene Bestellkarte. 


































































SOFTWARE 


1 

2 

; Listing 2b: 


4 

Start 


5 

movera.l d0/a0-a2, - (al) 

; Register retten 

6 

dc.w $a000 

; Line-A-Init 

7 

movea.l 4(al),al 

; Adresse des ersten 

8 

movea.l 84(al),al 

; GEM-Fonts bestimmen 

9 

lea Reg(Pc),aO 

; dort soll diese Adresse 
hin. .. 

10: 

move.l al,(aO) 

; also machen wir das 

11: 

movem.l (a7)+,d0/a0-a2 

; Register restaurieren 

12: 

rts 

; und zurück zum Pascal... 

13: 

nop 


14: 

Reg ds . 1 1 


15: 

End 



64 

65 

: Begin If Init_Gem>=0 then begin 

66 

<: Bildschirm_loeschen; 

67 

: Set_Clip(0,0, 640, 400) ; 

68 

: WriteLn('Letzter Font HEX: 

69 

FontAdress(LastFontPtr):8:h) ; 

: Repeat 

70 

': Al:=Do_Alert('[1][LPSoft-Pascal-GEM-Font-DemoI 

71 

Welche Zeichensatz-Art?][FNT|ZSAIENDE] ', 1) ; 

Ok:=(Al<>3) ; 

72 

If Ok then begin 

73 

Zsa:=(Al=2) ; 

74 

If Zsa then Pfad:='\* . ZSA' eise Pfad:='\*.FNT' ; 

75 

ZeichsName:=' '; 

76 

Ok:=Get_In_File(Pfad,ZeichsName) ; 

77 

If Ok then begin 

78 

Bildschirm_loeschen; 

79 

If Zsa then begin 

80 

ZListe:=NIL; 

81 

Anzahl:=LoadZsaFonts(ZeichsName,2,ZListe) ; 

82 

If Anzahl=0 then WriteLn('FEHLER! ' ) eise begin 

83 

WriteLn('Geladene Faces :' ) ; 

84 

* For I:=2 to Anzahl+1 do begin 

85 

FaceName(I,FaceNa) ; 

86 

WriteLn(1:2, ': ', FaceNa); 

87 

End; 

88 

Taste; Bildschirm_loeschen; 

89 

WriteLn('Letzter Font HEX: ', 

90 

FontAdress(LastFontPtr):8:h) ; 

Repeat 

91 

IO_Check(False) ; 

92 

Write('Face (von 1 bis ', Anzahl+1, ', 

93 

Ende=0) : '); ReadLn(Face) ; 

If IO_Result<>0 then Face:=0; 

94 

If Face>0 then begin 

95 

TestAusgabe(Face) ; 

96 

IO_Check(True) ; 

97 

Taste; 

98 

End; 

99 

Bildschirm_loeschen; 

100 

üntil Face=0; 

101 

UnloadFonts(ZListe) ; 

102 

WriteLn('Letzter Font HEX: ', 

103 

FontAdress(LastFontPtr):8:h); 

End 

104 

End eise begin 

105 

Zeichensatz:=LoadFont(ZeichsName,2) ; 

106 

If Zeichensatz=NIL then WriteLn('FEHLER ! ' ) 

107: 

eise begin 

FaceName(2,FaceNa) ; 

108: 

WriteLn('Face-Name: ', FaceNa); 

109: 

WriteLn('Letzter Font HEX: ', 

110: 

FontAdress(LastFontPtr) :8:h); 

IO_Check(False) ; 

111: 

TestAusgabe(2) ; 

112: 

IO_Check(True) ; 

113: 

UnloadFont(Zeichensatz) ; 

114: 

WriteLn('Letzter Font HEX: ', 

115: 

FontAdress(LastFontPtr):8:h); 

Taste; 

116: 

End; 

117: 

End; 

118: 

End; 

119: 

End; 

120: 

Until Ok=False; 

121: 

Exit_Gem; End; End. 




1 

2 

: { Listing 3: } 

. { ========i== } 


3 

4 

: {$U100} 


5 

: Program Font Test; { 1987 by LPSoft Lutz Preßler 

g 

24.11.1987 } 


7 

8 

9 

: Const {$IGEMCONST} 


: Type {$IGEMTYPE} 


10 

: {$1FONTTYPE} 


11 



12 

: Var Zeichensatz : Font; 


13 

: Pfad,ZeichsName,FaceNa : String; 


14 

: Thoch,Attribute : Integer; 


15 

: Ok,Zsa : Boolean; 


16: Al,Anzahl, Face, I : Integer; 


17 

ZListe : FontList; 


18 



19 

: {$IGEMSUBS} 


20 

: {$IFONTSUBS} 


21 



22 

: Procedure Taste; Gemdos(7); 


23 



24 

: ( Procedure Text_Heigth(Height : Integer) ; External; 

25 

: bei mir in GEMSUBS.PAS deklariert. 

} 

26: Procedure DefText(Color,Style,Rotation,Height, 



Face:Integer) ; 


27 

Begin 


28 

If Face>0 then Text_Face(Face) ; 


29 

If Color>=0 then Text Color(Color) ; 


30 

If Style>=0 then Text_Style(Style) ; 


31 

If Rotation>=0 then Text Rotation(Rotation) ; 


32 

If Height>0 then Text Heigth(Height) ; 


33 

End; 


34 



35 

Procedure FaceName(Faceld:Integer; 

Var FaceName : String) ; 


36 

Var Control : Ctrl_Parms; 


37 

Int_in : Int_In_Parms; Int out : Int Out 

_Parms; 

38 

Pts_in : Pts_In_Parms; Pts_out : Pts_Out 

_Parms; 

39 

I : Integer; 


40 

Begin 


41 

lnt_in[0]:=FaceId; 


42 

VDI_Call(130,0,1,0,Control,Int in,Int out,Pts in, 


Pts_out,False) ; 


43 

I : = 1 ; 


44 

Repeat 


45 

FaceName[I]:=Chr(Int_out[I]) ; I:=I+1; 


46 

üntil (1=35) or (FaceName[1-1]=Chr(0) ) ; 


47 

FaceName[0]:=Chr(1-2) ; 


48 

End; 


49 



50 

Procedure TestAusgabe(F:Integer) ; 


51 

Begin 


52 

Write('Texthöhe (Pixel) : '); ReadLn(Thoch) ; 


53 

If IO_Result<>0 then Thoch:=13; 


54 

Write('Textattribute : '); ReadLn(Attribute) ; 

55 

If IO_Result<>0 then Attribute:=0; 


56 

DefText(-1,Attribute,-1,Thoch,F) ; 


57 

Hide_mouse; 


58 

Draw_String(10,200,'Dies ist ein 



GEM-Zeichensatz-Test . Lutz Pre 1er'); 


59 

Show_mouse; 


60 

DefText(-1,0,-1,13,1) ; 


61 

End; 


62 

Procedure Bildschirm_loeschen; 


63 

Begin Hide_mouse; Clear_Screen; Write(Chr(27) ,' 

H'); 


Show_mouse; End; 



1: 

' Listing 4: 



2: 

3: 




4: 

' Mehrere GEM (*.FNT) - Fonts zu 

einer 

Datei (*.ZSA) 


zusammenfassen . 



5: 

6: 

7: 

' 1987 LPSoft, Lutz Preßler 

\ 



Print " GEM-Fonts zu einer *.ZSA- 

-Datei 

zusammenfassen." 

8: 

Print " ";StringS(46,"-") 



9: 

Print " Erzeuge Datei ... 



10: 

Fileselect "\* . ZSA",Ausgabef$ 



11: 

Print Ausgabef$ 



12: 

Open "0",#1,Ausgabef$ 



13: 

Print #1,"ZSA-GEM-FONT"; 



14: 

Input " Wieviele Faces ? 

", Faces% 

15: 

Print #l,Mki$(Faces%) ; 



16: 

For F%=1 To Faces% 


geht weiter.. 


20 ff 4/88 



































720 KB 3.5 Zoll 
NEC FD 1037a 
Laufwerk an-«* 
schlußfertig Lief 

Superflaches Diskettenlaufwerk (25.4 mm hoch) elegantes, 
sehr kratzfestes Stahlblechgehäuse 

Wichtig: Computertyp angeben! 



Floppygehäuse Stahlbl. Atari grau 

Für die Laufwerkstypen NEC 1036a, NEC 1037a, aq 
F d 55 FR., kompl. mit Zugentlastung und Füßchen 


5.25 Laufwerk 720 KB 

359 


1 


anschlußfertig m. 40/80 Tr. Umsch. 

beige Frontblende ohne Aufpreis 

Verwendung von sehr hochwertigen 
TEAC FD 55 FR Laufwerken 

Einbau 2. Floppybuchse + 27,90 
Umschaltung Drive A/B + 20,- 

nur in Verbindung mTT 2. Floppybuchse erhältlich. Ermög¬ 
licht das wahlweise Booten von Laufwerk A oder Laufwerk B 

NEC FD 1037a 
Teac FD 55 FR 259,- modif. 


197,- 

269,- 

Switchbox ab 29,90 

Umschalter SW/Farbe 



Switchbox mit Moni¬ 
torkabel 50 cm lang, 
Audioausgang o. AbB. 

Bausatz 29,90 

Fertiggerät 

f. Mega ST 39,90 

Switchbox direkt an 
den Rechner an- 
stöpseibar (daher 
kein Kabelsalat 
mehr ) 

siehe Abb. 49,90 


Floppyswitchbox 89,- 

Ermöglicht den Anschluß von 3 Laufwerken am ST 
Das Umschalten erfolgt ohne Reset. Die Switchbox 
ist mit Treiber und Original Buchsen ausgestattet. 


Druckerswitchbox 

1 Drucker an 2 Computer oder 

2 Computer an einen Drucker 

Tastaturgehäuse 

Lieferung komplett mit Spiralkabel 
Resettaster und Joystickbuchsen eingebaut 

Blitter TOS o. Rom TOS 

mit oder ohne Fast Load 


Scart kabel 

Länge 2 m 

Druckerkabel 

Länge 2 m 


Fast ROM o. Blittertos -Fastrom 
o. Fast Load Ch. Hertz 

Speichererweiterung 

steckbar (CSF) oder lötbar 

Uhrmodul (extern) 


89,- 
124,- 

109,- 

39.90 

29.90 

24.90 
219,- 

89,- 


Eprom-Bank 128 KB 49,- 

Stecker und Buchsen, Kabel 

Monitorstecker 6,40 Monitorbuchse 8,90 

Floppystecker 8,90 Floppybuchse 10,90 

Floppykabel Atari — 3.5 Zoll (Shugart) 27,90 

Audiokabel Switchbox ST ca. 2.5 m 7,90 


Neuheiten ST Software 


Automon 

Softwaremäßige Umschaltung 
zwischen SW- u. Farbmonitor. 
Umschaltung erfolgt ohne Reset. 



AT Tastatur am ST 


Adapterbox zum An¬ 
schluß einer AT Tas¬ 
tatur am ST 
Einbautyp/Fertiggerät 


189,-/289,- 


Signum II Preis auf Anfrage 
STAD Preis auf Anfrage 
Omikron. Basic 159,- 
Omikron. Comp. 159,- 
PC Ditto 197,- 


Public- 

domain 

(alle ST Disketten) 

iocl. Diskette 
eins, format. 

DM 6,40 

Liste gegen DM 2,- in 
Briefmarken 


1 Paket — 5 Disk, 
doppels. format. nur 



P.1 Die besten Spielprogr. 

z. B. Solitaire, Metropol, Mac Pan. 

P.2 Die besten Utilitieprogr. 

z. B. Fcopy, Diskchecker, Ramdisk. 


P.3 Die besten Mal- u. Soundp. 

z. B. E-Plan, Soundcomputer, Andromeda. 


P.4 Die besten diversen Prg. 

z. B. Etikettdat.. Aktien. ST-Calc. 


Hard- u. Soft A. Herberg, Bahnhofstr. 289, 4620 Castrop-Rauxel, Tel. (02305) 74258 -Händleranfragen erwünscht- 



Unverb. Preisempfehlung: 
Cashflow DM 298,-; 
Handbuch DM 30.-*; 

Demo 10.-; 

*wird bei Direktkauf angerechnet. 


C.A.$.H. GmbH 

Robert-Bosch-Straße 20 a 
8900 Augsburg 
Telefon 0821/703856 


DISKETTENLAUFWERKE 

vollkompatibel, anschlußfertig, inkl. Kabel, Netzteil, Me¬ 
tallgehäuse, 2x80 Tracks, 1 MB unform., 3 ms Steprate, 
Test in 68000er 8/87 


♦ 25,4 mm High Tech ♦ 

3,5” Qualitätslaufwerke, 25,4 mm flach, modernste Technik, an¬ 
schlußfertig und vollkompatibel. Netzteile mit VDE und SEV. 


NEC 1037 oder 
TEAC FD 135 



Diskettenlaufwerke: 


3,5” Doppelstation 549.- 


NEC FD 1037 199.- 

TEAC FD 55 FR 229.- 
TEAC FD 135 FN 209.- 


2 MB (unformatiert) 
bestückt mit NEC 1037 
oder TEAC FD 135 


TEAC 5.25” * 


icyi . anoumuijici uy 

349 ,- 


Millionenfach 
m W bewährt: 

FD 55 FR, 1 MB, 2x80 Tracks, integr. Netzteil, anschlußfertig 
und vollkompatibel 
incl. 40/80 Tracks 
unterstützt MSDOS Emula¬ 
toren wie z.B. PCDitto 


Y-Adapter zum Anschluß von 2 FSE Laufwerken, Jj 
Drive Select schaltbar ■" 


Disketten: 


3,5” MF 2 DD, 135 tpi 

ab 10 St. 2,50, ab 100 St. 2,30 


Frank Strauß Elektronik 

St. Marienplatz 7 6750 Kaiserslautern Tel. 0631/16258 


4/S0 tT “ 21 


































SOFTWARE 


17 

Print " Face ";F%;" : Wieviele Größen ? 








59 

: Name$="STAD-Font" 

18 

Input "",Groessen% 


60 

j Endif 

19 

Print #l,Mki$(Groessen%); 


61 

: Print "Fontname: "; 

20 

For G%=1 To Groessen% 


62 

: Form Input 31 As Name$ 

21 

22 

Print " Grö_e ";G%;" ... 

Fileselect "\*.FNT", Name$ 


63 

64 

t: Name$=Left$(Name$+String$(32,0),32) 

23 

Print Name$ 


65 

i: Head$=Mki$(0)+Mki$(&HA00)+Name$ 

24 

Open "I",#2,Name$ 


66 

1: Head$=Head$+Chr$(Lowade%)+Chr$ (0) 

25 

Laenge%=Lof(#2) 


67 

1 : Head$=Head$+Chr$(Highade%)+Chr$(0) 

26 

Print #l,Mki$(Laenge%) ; 


68 

: Restore Header.data 

27 

While Laenge%>32000 


69 

: For 1=1 To 18 

28 

Print #1,Input$(32000,#2) ; 


70 

: Read Za$ 

29 

Sub Laenge%,32000 


71 

: Head$=Head$+Mki$(Val("&H"+Za$)) 

30 

Wend 


HO 


31 

Print #1,Input$(Laenge%,#2); 


IZ 

73 

: wexu i i 

1: Head$=Head$+Chr$((88+2*(Chars%+1) ) 

32 

Close #2 



Mod 256)+Chr$((88+2*(Chars%+1))\256)+Mki$(0) 

33 

Next G% 


74: Head$=Head$+Chr$(Chars% Mod 256)+Chr$ (Chars%\256) + 

34 

Next F% 



Mki$ (&H1000)+Mkl$(0) 

35 

Close #1 


75 

: For 1=0 To Chars% 

36 

Print " Ok." 


76 

i: Head$=Head$+Chr$ ( (1*8) Mod 256)+Chr$ ( (1*8)\256) 

37 

Void Inp(2) 


77 

: Next I 

38 

Edit 


78 





79 

: Header.data: 





8C 

): Data 0D00,0B00,0800,0200,0200,0700,0800,0100,0700, 

1 

2 


' Listing 4: 


81 

82 

0100,0100,5555,5555,0800,0000,0000,5800, 0000 

3 




:: Fileselect "\* .FNT", "", A$ 

4 


' *** Font-Konvertierung von STAD- oder 


83 

l: If A$<>"" And Right$(A$)<>"\" 



Fontloader-Format zu GEM-Font *** 


84 

: Open "0",#2,A$ 

5 


' *** 1987 by LPSoft Lutz Pre_ler, Sandkrug, 


85 

,: Bput #2,Varptr(Head$) , 88+2*(Chars%+1) 



Ahornweg 11, 2904 Hatten *** 


86 

1: Bput #2,Varptr(Dat$) , Len(Dat$) 

6 




87 

: Endif 

7 


Repeat 


88 

: Close 

8 


Cls 


89 

i: Print "Ok." 

9 


Alert 1, "Font-Konvertierung , LPSoftI STAD- oder 


90 

i: Endif 



Fontloader-FontsI in GEM-Fonts umwandeln.",1, 


9] 

L: Alert 2,"Noch einen Font umwandeln?",1,"JAINEIN",Res 



"STAD | FONTLOAD | ENDE",Res 


92 

! : Until Res=2 

10 


If Res=3 


93 

1: Edit 

11 

12 


Edit 

Endif 



13 



1 

. *** FONTLOADER - STAD-Font als neuen Systemfont *** 

14 


Fileselect "\* .FNT", "", A$ 


2 

; *** (sowohl GEM als auch TOS) installieren. *** 

15 


If A$="" Or Right $ (A$) ="\" 


3 

; *** auch für AUTO-Ordner(ohne Param.=SYSFONT . FNT) *** 

16 


Edit 


4 

; *** 10.12.1987 by LPSoft,Lutz Pre_ler,2904 Hatten *** 

17 


Endif 


5 

* 

18 


If Exist(A$) 


6 

; Konstantendefinitionen 

19 


Open " I " , # 1,A$ 


7 

GemDos equ 1 

20 


Chars%=(Lof(#1)/16*Res)+32*(Res=2) 


8 

Keep equ $31 

21 


If Chars%>256 Or Chars%=0 Or (Res=2 And Chars%<65) 


9 

FOpen equ $3D 

22 


Print "Falsches Datei-Format!" 


10 

FClose equ $3E 

23 


Void Inp(2) 


11 

FRead equ $3F 

24 


Edit 


12 

FSeek equ $42 

25 


Endif 


13 

FSetDTA equ $1A 

26 


If Res=2 And Chars%>96 


14 

FSFirst equ $4E 

27 


Chars%=96 


15 

Bios equ 13 

28 


Endif 


16 

Xbios equ 14 

29 


Dat$=Space$(Lof(#1)*Res+256*(Res=2) ) 


17 

GetRez equ 4 

30 


' 


18 

SupExe equ 38 

31 


If Res=l 


19 

; 

32 


For 1=0 To Chars%-1 


20 

; Programmlänge berechnen 

33 


For B=0 To 15 


21 

move.l 4(a7),a0 

34 


Poke Varptr(Dat$)+I+B*Chars%,Inp(#l) 


22 

move . 1 #Text , d6 

35 


Next B 


23 

sub.l a0,d6 ; d6 = zu reserv. Bereich 

36 


Next I 


24 

J 

37 


Lowade%=0 


25 

adda.l #129,aO 

38 


Else 


26 

movea.l a0,a6 ; Adresse der Commandline 

39 


For 1=0 To Chars%+31 


27 

clr.l dO ; Null-Byte ans Ende setzen 

40 


If I>64 And I<=96 


28 

move.b -I(a0),d0 

41 


For B=0 To 7 


29 

clr.b (a0,d0.b) 

42 


vOlu mp (¥17 


30 

; Auflösung überprüfen 

43 


Next B 


31 

move #GetRez, - (a7) 

44 


Else 


32 

trap #XBios 

45 


J=I+32*(I>96) 


33 

addq.l #2,-(a7) 

46 


For B=0 To 7 


34 

lea WrongRes,a0 

47 


Poke Varptr(Dat$)+J+B*2*Chars%, Inp(#1) 


35 

cmpi #2,d0 

48 


Poke Varptr(Dat$)+J+(B*2+l)*Chars%, 


36 

bne Error ; Fehlermeldung 



Peek(Varptr(Dat$)+J+B*2*Chars%) 


37 


49 


Next B 


38 

move.l #Ok,Text ; Default-Text nach Installation 

50 


Endif 


39 

; 

51 


Next I 


40 

; Programm schon resident? 

52 


Lowade%=32 


41 

move.l #GetTrap, - (a7) 

53 


Endif 


42 

move #SupExe, - (a7) 

54 


' 


43 

trap #XBios 

55 


Highade%=Lowade%+Chars%-l 


44 

addq.l #6,a7 

56 


If Res=2 


45 

; movea.l OldTrap,a0 

57 


Name$="Fontloader-Font" 


46 

clr.b d2 

58 


Else 



seht weiter... 
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47 

movea.l #FontData,a4 

; Adresse des Fontbereichs 

48 

cmpi.l #"Lutz",-4(aO) 


49 

bne.s NichtRes 


50 

move.b #$ff,d2 

; Flag für "resident" setzen 

51 

movea.l -12(a0),a4 

; jetzt vorhandene Fontadresse 

52 

move.l -8(aO),01dFont 

; Adresse des Original-Fonts 

53 

move.l -16 (aO) , GemDosTrap 

54 

move.l -20 (aO),01dTrap 


55 

; Commandline "#" oder v 


56 

move.b (a6),d0 


57 

cmpi.b #"~",d0 


58 

beq . s RAend 


59 

move.b (a6),d0 


60 

cmpi.b #"#",d0 


61 

bne.s RWeiter 


62 

RAend 


63 

move.l #Sys,Text 

; ja: Ausgabetext ändern 

64 

; 


65 

bra.s RWeiter 


66 

NichtRes 

; Programm noch nicht resident: 

67 

movea.l #Info,a0 

; Info anzeigen 

68 

bsr Message 


69 

move.b (a6),d0 

; Commandline 

70 

cmpi.b #"~",d0 


71 

beq.s RFehler 

; oder 

72 

move.b (a6),d0 


73 

cmpi.b #"#",d0 

; Commandline "#" 

74 

bne.s RWeiter 


75 

RFehler 


76 

movea.l #Exit,a0 

; ja: geht nicht -> Hinweise 

77 

bsr Message 

; zur Anwendung anzeigen 

78 

bsr Key 

; Auf Tastendruck warten 

79 

bra FResi 

; Programm normal beenden 

80 

RWeiter 


81 

move.b d2,Flag 

; "resident"-Flag abspeichern 

82 

; 


83 

bsr FontLaden 

; —>Fontdatei(4096 Bytes)laden 

84 

; Font installieren 


85 

; Font-Adressen bestimmen 

86 

dc.w $A000 


87 

movea.l 4 (al),a3 


88 

movea.l 84(a3),a3 


89 

move.l a3,FontBase 


90 

move.l 76(a3),d0 


91 

tst.l dO 


92 

beq FAuto 


93 

move.1 dO , OldFont 


94 

move.l a4,76(a3) 

; Adresse eintragen 

95 

FAuto 


96 

move.l a4,FontAdr 


97 

; Font anmelden (direkt 

zugreifen) 

98 

dc.w $A000 


99 

move.l 84,-22(30) 


100 

; Text ausgeben 


101 

movea.l Text,a0 


102 

bsr Message 


103 

; Commandline 


104 

move.b (a6),d0 


105 

cmpi.b #"~",d0 


106 

bne.s TextEnde 


107 

movea.l INichtResiT,aO 


108 

bsr Message 


109 

TextEnde 


110 

tst.b Flag 

; schon resident ? 

111 

bne FResiX 


112 

; nicht resident, dann: 


113 

; Autoordner-Start? 


114 

move.l #AutoTest,-(a7) 


115 

move #SupExe,-(a7) 


116 

trap #XBios 


117 

addq.l #6,a7 


118 

tst.b Auto 


119 

beq Normal 


120 

movea.l #AText,a0 


121 

jsr Message 


122 

move.l #SetDOS, - (a7) 


123 

move # SupExe , -(a7) 


124 

trap #XBios 


125 

addq.l #6,a7 


126 

bra . s ResEnd 


127 

Normal 


128 

; Neuen GEM-Trap und GemDos installieren 

129 

move.l #SetTraps,-(a7) 


130 

move #SupExe,-(a7) 


131 

trap #XBios 


132 

addq.l #6,a7 


133 

jsr Key 



134 

ResEnd 

135 

; Programm resident lassen 

136 

clr.w -(a7) 

137 

move.l d6,-(a7) 

138 

move.w #Keep,-(a7) 

139 

trap #GemDos 

140 

; 

141 

FResiX ; war schon resident: 

142 

jsr Key 

143 

; Commandline 

144 

move.b (a6),d0 

145 

cmpi.b #"~",d0 

146 

bne FResi 

147 

; Traps zurücksetzen 

148 

move.l #ResetTraps,-(a7) 

149 

move #SupExe,-(a7) 

150 

. trap #XBios 

151 

addq.l #6,a7 

152 

FResi ; normal beenden 

153 

clr -(a7) 

154 

trap #GemDos 

155 

; 

156 

SetDOS 

157 

move.l 136,01dTrap 

158 

bra. s SetDOS2 

159 

SetTraps 

160 

move.l 136,01dTrap 

161 

move.l #GemTrap2,136 

162 

SetDOS2 

163 

move.l 132,GemDosTrap 

164 

move.l #Trapl,132 

165 

rts 

166 

ResetTraps 

167 

move.l 01dTrap,136 

168 

move . 1 GemDosTrap, 132 

169 

rts 

170 

GetTrap 

171 

move.l 136,aO 

172 

rts 

173 

AutoTest 

174 

movem.l d0/d2/a0,-(a7) 

175 

clr.b d2 

176 

movea.l FontBase,a0 

177 

move.l 76(aO) , dO 

178 

tst.l dO 

179 

bne.s ExAuto 

180 

move.b #$ff,d2 

181 

ExAuto 

182 

move.b d2,Auto 

183 

movem.l (a7)+,d0/d2/a0 

184 

rts 

185 

; 

186 

FontLaden 

187 

; Commandline "#" oder "- // ? 

188 

move.b (a6),d0 

189 

cmpi.b #"~",d0 

190 

beq.s SysAdresse 

191 

move.b (a6),d0 

192 

cmpi.b #"#",d0 

193 

bne.s Laden 

194 

SysAdresse 

195 

; ja: Systemfontadresse in a4 

196 

; und Laden beenden 

197 

movea . 1 OldFont , a 4 

198 

bra LEnde 

199 

Laden 

200 

move.b (a6),d0 

201 

cmpi.b #"-",d0 ; - am Anfang 

202 

bne.s DiskDa 

203 

; ja: Warten und Disk prüfen 

204 

lea InsertDisk,a0 

205 

bsr Message' 

206 

bsr Key 

207 

addq.l #l,a6 

208 

move.l #FontData,-(a7) 

209 

move #FSetDTA,-(a7) 

210 

trap #GemDos 

211 

addq.l #6,a7 

212 

move #31,-(a7) 

213 

move.l #Dummy,-(a7) 

214 

move IFSFirst,-(a7) 

215 

trap IGemDos 

216 

adda.l #8,a7 

217 

; 

218 

DiskDa 

219 

; Commandline leer —> Default-Datei "SYSFONT.FNT" 

geht weiter... 
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Für Wissenschaftler, Lehrer, 

JPKKjP^3|JrTechniker, Studenten, Sammler etc. m 
und alle, die Texte, Literatur, Quellen, m 
Dias, Briefmarken, Informationen etc. m 
besitzen und wiederfinden wollen! m 

Sie suchen Informationen, Material, Unterlagen zu einem Thema? 
M SCHLAGWÖRTEReingeben (beliebige Kombination + Reihenfolge) 
und »voilä« — die Informationen sind da, sortiert und perfekt präsentiert! 


SS/^ YS////SS//sjW4 

, l n. n. ’^irr’-rw k«uii» 

fanra _ m • ^ 



»\)oila« 


Datenbank für Geographen auf Anfrage 


Programmdiskette incl. Dokumentation 148.— DM 
Demodiskette incl. Dokumentation 20.— DM 


Versand: + NN + Porto (oder Vorausscheck) 
Ausland: Vorausscheck 



STarke SOFTWARE for STarre COMPUTER 


TKC-EINNAHME/ÜBERSCHUSS PLUS (Buchführung) DM149,- 

Automatische Führung von MWSt.-Konten. Ausgabe von Saldenliste. Bilanz. Journal, USt.- 
Voranmeldung. Bis zu 5 verschiedene MWSt.-Sätze, Abschlußzeitraum Monat, Quartal oder 
Jahr, universelle Druckeranpassung, ausführliches deutsches Handbuch! 

TKC-HAUSHALT PLUS (Haushaltsbuchführung) DM 129, — 

Überwachung aller Einnahmen und Ausgaben im Privathaushalt mit max. 250 Konten. 
Monats- und Jahresabschlüsse, Bilanzen und Journal, Saldenlisten mit Teilsummen für wähl¬ 
bare Kontengruppen, Daueraufträge mit beliebiger Frequenz, universelle Druckeranpassung, 
ausführliches deutsches Handbuch! 

TKC-TERMIN/ADRESS (Terminplaner + Adressdatei) DM 149, - 

Terminplaner mit Adressverwaltung. umfangreiche Suchfunktionen. Serienbriefe in Verbin¬ 
dung mit Ist Word, Terminfrequenz bei jedem Termin wählbar, Ausgabe von Termin- und 
Adressaten, ausführliches deutsches Handbuch! 

TKC-VIDEO (Videofilmverwaltung) DM 79, — 

Verwaltet Ihre Videofilme unter GEM, umfangreiche Sortier- und Suchfunktionen, Listen- und 
Etikettendruck, Handbuch. 

TKC-MUSICBOX (Musiktitelverwaltung) DM 79,— 

Verwaltet bis zu 1500 LPs, CDs oder MCs, Titel-Suchfunktion, Listen- und Etikettendruck, 
Sortierung automatisch nach LP-Titeln! Druckeranpassung! 

ST-MATHETRAINER (Trainingsprogramm für Grundschüler) DM 59, — 

1x1, Grundrechnen, Umrechnung v. Gewichten und Längenmaßen. Benotung! 

ST-RECHTSCHREIBEN (Trainingsprogramm für Grundschüler) DM 59, — 

Singular & Plural, Interpunktion, u. a. Schwerpunktdatei für falsche Antworten! 

ST-KEYMASTER (Tastaturbelegungskit) DM 49,- 

Tastaturbelegung in den Modi normal, shift und caps (nur S/W)! 

ST-VOKABELTRAINER (Lernprogramm) DM 49,- 

Sonderdatei für falsche Antworten, Druckerausgabe. %-Auswertung. 

ST-GIRO (Utility für bargeldlosen Zahlungsverkehr) DM39,— 

Bedruckt Überweisungsträger, Formularinhalte speicherbar, ACC. 


TK COMPUTER-TECHNIK THOMAS KASCHAOT 

BISCHOFSHEIMER STRASSE 17 • 6097 TREBUR ASTHEIM • TELEFON (06147) 550 


—Btx-Manager— 


Atari ST / Mega ST + Btx 

Die intelligente Komplettlösung... CeBit ’88: ATARI-Stand 



- 610 OOO Btx Seiten 

- 250 Großrechner erreichbar 

- Telex- / Mitteilungsdienst 

- Kontostand + Überweisung 

- Börsenkurse u.v.m 


Btx-Manager V2.1 

Softwaredecoder 

anschlußfertig DM 428 


Saba BTX-Decoder DM 298 
dataphon s21-23d DM 325 


Drews EDV + BtX 6900 Heidelberg 

Tel. 0 6221-29900 o. 163323 Bergheimer Str. 134b 


Btx ★drews# Atari ST / Mega ST sind eingetr. Waronz der Atari Corp 



MSM GmbH • Bayenthalgürtel 45-5000 Köln 51 Tel. 02 21/38 20 20 



KFC 


stör 


der ComputerDrucker 


Ein Superdrucker für den ST 
Star NB 24-10 

IBM 

Zeichensatz 

Epson 
Zeichensatz 

NEC 
Graphik¬ 
kompatibel 

360 x 360 
Bildpunkte bei Signum 

Kompatibel zu NEC/Epson Hardcopy 

Graphiktreiber 

incl. Schiebendem 0 

Bidir. Traktor — U1V1 


KFC COMPUTER • Wiesenstr. 18■ 6240 Königslein • Tel. (06174)3033 


n fZiAiäl 
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SOFTWARE 


306 

TrapOk 

307 

movem.l (a7)+,dO/dl/aO 

308 

move.l GemdosTrap,a0 

309 

jmp(aO) 

310 

; 

311 

Autoinst 

312 

move.l 136,01dTrap 

313 

move . 1 #GemTrap2 / 136 

314 

clr.b Auto 

315 

movea . 1 FontBase , aO 

316 

move.l 76 (aO) , OldFont 

317 

move.l FontAdr,76<a0) ; Adresse eintragen 

318 

rts 

319 

; 

320 

OldTrap 

321 

de. 1 0 

322 

GemDosTrap 

323 

de. 1 0 

324 

FontAdr 

325 

de. 1 0 

326 

OldFont 

327 

de. 1 0 

328 

dc.b "Lutz" 

329 

GemTrap2 ; neuer GEM-Trap 

330 

cmpi.b #$73,dO ; VDI ? 

331 

bne . s JumpGEM 

332 

movem.l d0-d2/a0-a5, -(a7) 

333 

movea.1 dl,a4 ; a4 zeigt auf VDIPB 

334 

movea.1 (a4),a5 ; a5 zeigt auf Contrl-Feld 

335 

cmpi.w #5, (a5) ; Escape-Funktion ? 

336 

bne.s ContGEM 

337 

cmpi.w #102,10(a5) ; Font anmelden ? 

338 

bne.s ContGEM 

339 

movea.1 4(a4),a5 ; a5 zeigt jetzt" auf Intin-Array 

340 

; Font-Adressen bestimmen 

341 

dc.w $A000 

342 

move.l 8(al),d2 ; -> TOS-Font 

343 

movea.1 4(al),a3 

344 

movea.1 84(a3),a3 ; —> GEM-Font 

345 

cmp.l d2,(a5) ; TOS-Font anmelden ? 

346 

bne.s ContGEM 

347 

move.l a3, (a5) ; ... dann GEM-Font anmelden. 

348 

ContGEM 

349 

movem.l (a7)+,d0-d2/a0-a5 

350 

JumpGEM 

351 

move.l OldTrap,aO 

352 

jmp(aO) 

353 

; 

354 

; String ausgeben 

355 

Message 

356 

move.l a0,-(a7) 

357 

move #9,-(a7) 

358 

trap #GemDos 

359 

addq.l #6,a7 

360 

rts 

361 

; Auf Tastendruck warten 

362 

Key 

363 

move #7,-(a7) 

364 

trap #GemDos 

365 

addq.l #2,a7 

366 

rts 

367 

; Fehlerbehandlung... 

368 

ClError 

369 

movea.1 a0,a6 

370 

; Datei schlie_en 

371 

move dl,-(a7) 

372 

move #FClose, « (a7) 

373 

trap #GemDos 

374 

addq.l #4,a7 

375 

movea.1 a6,a0 

376 

Error 

377 

bsr.s Message 

378 

bsr.s Key 

379 

; Programm normal beenden 

380 

clr -(a7) 

381 

trap #GemDos 

382 

End 

383 

.data 

384 

Ok dc.b "Neuer Zeichensatz installiert. (LPSoft, 

1987)",7,13,10,0 

385: 

Sys dc.b "Original Systemzeichensatz wieder 
angemeldet .", 7,13,10,0 

386: 

NoFile dc.b "Fontdatei nicht vorhanden !!!", 7,13,10,0 

387: 

WrongSize dc.b "Datei hat nicht das richtige 

Fontformat" 

388: 

: dc.b " (falsche Länge) ! ! !", 7,13,10,0 


220 

move.b -I(a6),d0 

221 

tst.b dO 

222 

bne . s NameOk 

223 

move.l #Default,a6 

224 

NameOk 

225 

; Datei öffnen 

226 

move.w #0,-(a7) 

227 

move.l a6,-(a7) 

228 

move.w #FOpen,-(a7) 

229 

trap #GemDos 

230 

addq.l #8,a7 

231 

move.l d0,dl 

232 

lea NoFile,aO 

233 

tst dO 

234 

bmi Error 

235 

; Länge bestimmen 

236 

move #2,-(a7) 

237 

move dl->-(a7) 

238 

clr.l -(a7) 

239 

move #FSeek,-(a7) 

240 

trap #GemDos 

241 

adda.l #10,a7 

242 

lea WrongSize,aO 

243 

cmpi.l #4096,dO 

244 

bne ClError 

245 

move #0,-(a7) 

246 

move dl,-(a7) 

247 

clr.l - (a7) 

248 

move #FSeek,-(a7) 

249 

trap #GemDos 

250 

adda.l #10,a7 

251 

; 

252 

; Datei etwas "verdreht" einladen 

253 

clr.l d2 

254 

Zeichen 

255 

clr.w d3 

256 

Bits 

257 

clr.l d4 

258 

movea.1 a4,a5 

259 

move.w d3,d4 

260 

asl.w #8,d4 

261 

add.l d2,d4 

262 

adda.l d4,a5 

263 

move.l a5,-(a7) 

264 

move.l #1,-(a7) 

265 

move.w dl,-(a7) 

266 

move.w #FRead,-(a7) 

267 

trap #GemDos 

268 

adda.l #12,a7 

269 

add.w #1,d3 

270 

cmpi.w #16,d3 

271 

bne.s Bits 

272 

add.l #1,d2 

273 

cmpi.l #256,d2 

274 

bne.s Zeichen 

275 

; Datei schlie_en 

276 

move.w dl,-(a7) 

277 

move.w #FClose,-(a7) 

278 

trap #GemDos 

279 

addq.l #4,a7 

280 

LEnde 

281 

rts 

282 

; 

283 

Trapl ; neuer GemDos-Trap 

284 

movem.l dO/dl/aO,-(a7) 

285 

tst.b Auto 

286 

beq TNormal 

287 

move.l FontBase,aO 

288 

move.l 76(a0),d0 

289 

tst . 1 dO 

290 

beq TrapOk 

291 

bsr Autoinst 

292 

bra TrapOk 

293 

TNormal 

294 

move.l 136,dO 

295 

cmpi.l #$FC0000,dO 

296 

bgt. s ChngTrap 

297 

move.l $4f2,dl 

298 

emp .1 dl , dO 

299 

blt.s TrapOk 

300 

move.l $4fa,dl 

301 

emp .1 dl , dO 

302 

bgt . s TrapOk 

303 

ChngTrap 

304 

; GEM-Trap im TOS -> ändern 

305 

move.l #GemTrap2,136 
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389: WrongRes dc.b "Programm läuft nur in hoher 

Auflösung ! ! !", 7,13,10,0 

390: InsertDisk dc.b "Bitte Diskette einlegen.",7,13,10,0 

391: Info dc.b "STAD-Font als neuen 8x16 GEM- und 

TOS-Systemzeichensatz" 

392: dc.b" installieren.", 13,10 

393: dc.b " (c) 1987 by LPSoft, Lutz Pre_ler, Ahornweg 11," 

394: dc.b" 2904 Hatten",13,10,0 

395: Exit dc.b 13,10,"ANWENDUNG: FONTINST.TTP 

DATEINAM.FNT " 

396: dc.b "DATEINAM.FNT installieren .", 13,10 

397: dc.b " oder FONTINST.TTP # Originalzeichensatz" 

398: dc.b " wieder anmelden. ", 13,10,7,0 

399: NichtResiT dc.b "Programm nicht mehr resident .", 13,10,0 

400: Dummy dc.b "\*.*",0 

401: Default dc.b "SYSFONT.FNT",0 

402: AText dc.b "Aus AUTO-Ordner gestartet .", 13,10 

403: .even 

404: .bss 

405: ; 

406: Font Base ds.l 1 

407: TAuto ds.l 1 

408: Auto ds.w 1 

409: FontData ds.b 4096 ; Datenbereich für Font 

410: ; bis hier hin resident 

411: Text ds.l 1 ; Textadresse (Ok oder Sys) 

412: Flag ds.w 1 ; "resident"-Flag 

413: ; 

414: PrgEnd 


Sic ixt ^eti^ , aie 
«xxoai^tio^ I>ATEr\HA.\K 
> THEMADAT < 

Nachdem wir mit T H E M A D AT unerwartete 
Verkaufserfolge erreicht haben, wurde in 
intensiver Zusammenarbeit mit Anwendern , 
THEMADATzum7>4MS erweitert! 
Testberichte der Version 1.5 (Mai87) im ST-Magazin 
19/87 und ST Computer 12/87. Zitat : Der Autor hätte 
das Programm auch gut für 14-9 oder 249 DM 
verkaufen können. Wahrscheinlich hätte sich das auf 
den Absatz sogar positiv ausgewirkt. Es macht 
einfach Spaß mit THEMADAT zu arbeiten, auch wenn 
man eigentlich gar keine Datenbank braucht! 
Berichte über THEMADAT folgen! 

Hier einige Informationen (Version 2.11 ) vorab: 
noch schneller, komfortabler, mit Druckertreiber, mit 
Rechenfunktion (Saldierung), erweiteter Rapportfunktion, 
Zugriff auf ASCII-Dateien für mehr Textinformationen. 
Bildmontagemenue zur Erstellung von Bilddateien. 
Ausgabe von BILD DATEIEN, wenn zu einem Eintrag 
Bildinformationen vorliegen, Sortiermenue und..!! 
KOMPLETTPREIS : 79.00 DM plus 5.oo DM Versand, 
zahlbar mit V-Scheck oder Postanweisung. Hardware: 

1 Mbyte,2seitige Disk oder Harddisk, SW + Color 
Händleranfragen erwünscht. Die Auslieferung erfolqt auf 
doppelseitiger Disk mit Demodatensatz (Photo). Ein 
Umtausch der PD-VERSION in pLus Ist nicht möglich ! 
Besitzer der pko-Version 2.0 bis 2.10 bitte Sonderinfo 
anfordern, der Versionen < 2.0 erhalten für 28.ooDM 
ein plus Update. Bieten Sie THEMADAT-DATE NB ANKEN 
und MASKEN von allgemeinem Interesse, für den 
SERVICEPOOL an. Fordern Sie unsere Softwareliste mit 
preiswerten Try Soft Programmen an ( Freiumschlag ). 

Try Soft Ingeborg von Tryller , 3200 Hildesheim, 
Steinbergstraße 6 *3 05121 22882 

Mitglied im ATARI Anwenderclub Hannover/Hildesheim 


GEM plus 

Das neue Accessory, welches das Betriebs¬ 
system des ST um viele Funktionen ergänzt und 
verbessert: 

• Erweiterte Datei-Auswahlbox für alle Pro¬ 
gramme. 

• Dynamischer Maustreiber einstellbar von 
25—200% (wie beim Macintosh). 

• Hardcopy-Funktion auf Diskette (z.B. für 
SIGNUM2). 

• und viele weitere Funktionen. 

DM 59,— zuzüglich DM 5— Versandkosten 

Handy Scanner ST 

der leistungsfähige und preiswerte Scanner jetzt 
endlich auch für den ST. Auflösung 200 dpi, 16 
Graustufen, inkl. Software 

DM 798— zuzüglich DM 5,— Versandkosten 

SCHLEGEL DATENTECHNIK 

Schwarzachstr. 3 • 7940 Riedlingen • Tel. (07371) 2317 


OmegaSoft-Pascal, 

das Pascal für Anspruchsvolle! 

dm 445,— 

Bericht siehe ST Dezember ’87. 

OS9 auf dem ST, 

das Multiuser-, Multitasking- 
System. 

Fragen Sie unseren Preis! 
OS9-Software verschiedener Art. 
Information anfordern. 



BYTE STUDIO BORKEN 

Butenwall 14 ■ 4280 Borken Tel. (02861) 2147 


NEC FD 
1037A: 
195,- DM 

MICHAEL FISCHER 

Computersysteme 
Goethestraße 7 
6101 Fränkisch-Crumbach 
Telefon (06164) 4601 


Ohst - S 


r hst - woftware 
Versand 

Jutta Ohst 
Nelkenstr. 2 
4053 Jüchen 2 


Spiele z. b. 


COLONIAL CONQUEST . . 

. . . 59,- DM 

EAGLES NEST. 

. . . 39,- DM 

KAISER . 

. . 119,- DM 

CATCH 23. 

. . . 79,- DM 

RINGS OF ZILFIN. 

. . . 89,- DM 

ULTIMA III. 

. . . 69,- DM 

BARD’S TALE 1 . 

. 89, - DM 

TURBO ST. 

. . . 29,- DM 

MARBLE MADNESS . 

. . . 89,- DM 

GAUNTLET . 

. . . 69.- DM 

SINDBAD. 

. . . 69,- DM 

FOOTBALL MANAGER. . . 

. . . 39,- DM 

JUMP JET. 

49,- DM 

SKULL-DIGGERY. 

. . 69, - DM 

STRIP POKER II. 

. . 29, - DM 

VIELE WEITERE SPIELE AUF ANFRAGE 


Public Domain Service 8,- DM 

Siehe P.D.-Service dieser Ausgabe. Preis incl. Markendisk und Ver¬ 
packung. Ab 6 Stück versandfrei. 

Auf Wunsch können Sie die neueste P.D. jetzt auch abonnieren. 
Versand dann auf Rechnung. 

Bis RD. It. Ausgabe 03/88 erfolgt die Auslieferung innerhalb von 
48 Stunden. 


Anwendungen 

PRO SOUND DESIGNER. 189,- DM 

Abtasten von Ton in hoher Qualität. 

Mit Digitizer-Hardwarezusatz. 

FLASH CACHE & FLASH BAK. 159,- DM 

Harddisk-Utility. 

SIGNUMIZWEI. AUF ANFRAGE 

STAD. 159,- DM 

K-GRAPH 2. 148,- DM 

PRO PASCAL. 428.- DM 

MEGAMAX C. 388,-DM 

GFA-BASIC V 2.0. 88,- DM 

GFA-BASIC-COMPILER. 88,- DM 

GFA-BASIC V 3.0. AUF ANFRAGE 

GFA-PUBLISHER. 378,- DM 


das Superspiel: Impossible Mission II: 79, - DM 

GFA-ARTIST. 140,- DM 

LATTICE C . 288,- DM 

ST-BASE . 698.- DM 

600 Seiten starkes deutsches Handbuch. 

MINISTAUBSAUGER. NUR 19,-DM 

Zur optimalen Reinigung Ihres Computers 
und Druckers 

STUFF. 89,- DM 

22 interessante Utilities 

BACKUP. 89,- DM 


Telefonische Bestellung 
Tel.: 0 2164/78 98 

Preisliste anfordern 
























































OMIKRON.BASIC 
Das Buch zum Handbuch 

Aus dem Inhalt dieses Buches: 

Für den absoluten Neuling: 

Kurze Einführung in die BASIC-Programmierung 
Über das Handbuch hinausgehende Beschreibung vieler Befehle, Besonder¬ 
heiten, Tricks und Kniffe 

d EN Verwendung selbstdefinierter Prozeduren 

w: .. und Funktionen 

Viele Beispiele, Aufgaben mit Lösungen 

Für den Aufsteiger, aber auch für den 
geneigten Anfänger: 

OMIKRON.Sprites - Tücken, Vorteile, 
Anwendung 

Overlay-Technik (Auslagern langer 
Programmteile und Laden bei Gebrauch) 
Grundlagen der strukturierten Programmierung 
Schreiben eigener und Verwenden fremder 
Libraries (Bibliotheks-Funktionen) 

Aufrufe und Nutzung von TOS und GEM im 
BASIC (GEMLib); endlich die Wahrheit über die 
GEM-Aufrufe! Dabei wird auch das GEM- 
Zusatzprogramm GDOS berücksichtigt 
Sound und Grafik-Programmierung. Grafische 
Effekte (z.B. die Verwendung mehrerer 
Grafik-Bildschirme und Zeichnen in nicht sichtbare Bildschirme 
Aufbau und Verwenden der Menü-Leisten in GEM-Accessories in 
OMIKRON. BASIC 

Verwendung der BASIC-intemen Multitasking-Befehle 

Einige Libraries (Turtle-Grafik, Erweiterungen und Korrekturen zur GEMLib, 
usw.) 

Die Feinheiten des neuen Compilers V 2.0 

Umarbeiten von Programmen in GFA-BASIC auf OMIKRON.BASIC 
Mit einem Vorwort von Artur Södler, dem Schöpfer von OMIKRON.BASIC 
Natürlich befinden sich alle Programme und Beispiele auf Diskette! 
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HIERMIT BESTELLE ICH_EXEMPLARE 

VON •OMIKRON.BASIC”. 

MIT DISKETTE FÜR DM 49.- 
ANRUF GENÜGT: 06196/48181 1. 
MO-FR9-13 UND 14-17 UHR 
SCHRIFTLICHE BESTELLUNG NUR GEGEN 


VORKASSE ODER NACHNAHME ( VERSANDKOSTEN 
DM 5.50: BEI NACHNAHME ZUZÜGLICH DM 4.70 ) 

NAME:_ 

VORNAME:_ 

STRASSE:_ 

ORT:_ 

UNTERSCHR. :_ 



MERLIN COMPUTER GMBH 
INDUSTRIESTRAßE 26 
6236 ESCHBORN 
TEL. 06196/481811 








ANWENDUNGEN 


Vom Papier zur 
Datenbank 

1. Teil Datennormalisierung 


Die Informationsvervvaltung ist 
die klassischste aller Computeran¬ 
wendungen. Eine Datenbank, sei es 
nun eine für Großrechner, in Form 
eines Telefonbuches oder eine für 
Personal-Computer, ist nichts an¬ 
deres als eine sinnvoll organisierte 
Informationssammlung. 

Für die Computer der ATARI ST- 
Serie sind mittlerweise eine Vielzahl 
von Datenbanken auf dem Markt. Sie 
sind alle hervorragend zum Verarbei¬ 
ten von Massendaten geeignet, wie 
z.B. im kaufmännischen Bereich (La¬ 
gerverwaltung, Personaldaten, Buch¬ 
führungen), wo bekanntlich Unmen¬ 
gen von verschiedenartigen Informa¬ 
tionen anfallen. 

Eine Grundregel: Müssen mehr als 50 
Daten ständig im Zugriff sein, lohnt 
es sich, über den Einsatz eines Daten¬ 
banksystems nachzudenken. Der 
Hauptvorteil liegt im schnellen Zu¬ 
griff auf einzelne Datensätze und im 
freien Sortieren nach bestimmten 
Feldern innerhalb eines Datensatzes. 
Mein Kurs befaßt sich ausschließlich 
mit den relationalen Datenbanken, da 
ihre Bedeutung bereits heute beacht¬ 
lich ist und in Zukunft noch steigen 
wird (Beispiel: PROLOG). 

Um den Laien, wie aber auch allen 
anderen Interessierten, die Vorge¬ 
hensweise beim Design einer Daten¬ 
bank zu zeigen, ist dieser erste Teil 
des Kurses verfaßt. In weiteren ge¬ 
planten Folgen werde ich ausgiebig 
auf die Datenmanipulationssprache 
sowie die Programmiersprache zum 
Erstellen lauffähiger Programme ein- 
gehen. 


Ich werde heute den allgemeinen und 
prinzipiellen Aufbau relationaler 
Systeme erklären, die drei wichtig¬ 
sten Regeln des Datenbankdesigns 
nennen und an anschaulichen Bei¬ 
spielen verdeutlichen. 

Die folgenden Teile des Program- 
mier-Kurses befassen sich dann mit 
speziellen Systemen, die auf dem 
ATARI verfügbar sind. Ich gehe be¬ 
sonders auf dBMAN Version 3.0 und 
STandard Base ein, weil sie sich am 
besten zum Schreiben professioneller 
Anwendungen eignen. 

Außerdem bieten beide Programme 
eine Programmiersprache, die über 
die reine Datenmanipulation hinaus¬ 
geht. Mit den zusätzlich implemen¬ 
tierten Sprachelementen lassen sich 
leistungsfähige Anwendungssyste¬ 
me schreiben, z.b. Buchführungen, 
Adreßverwaltungen oder Schallplat¬ 
tenarchive, die sehr einfach zu erstel¬ 
len und zu erweitern sind und den¬ 
noch ein Höchstmaß an Benutzer¬ 
freundlichkeit aufweisen, obwohl die 
GEM-Oberfläche nicht genutzt wird. 
Die Programmiersprache “erzwingt” 
regelrecht, strukturierte Programme 
zu schreiben (keine Sprunganweisun¬ 
gen, ein Befehl pro Zeile usw.). 

Die mächtigen Befehle ermöglichen 
eine schnelle Programmierung von 
Plausibilitätskontrollen (um Falsch¬ 
eingaben zu unterbinden), so daß 
spezielle Tools (z.B. Resource Con- 
struction Set) nicht benötigt werden. 
Ich meine auch, bei der Verarbeitung 
und Erfassung von Massendaten stört 
das GEM. Das ständige Wechseln 
von der Maus zur Tastatur verhindert 
einen “flüssigen” Arbeitsablauf. 


Der grundsätzliche 
Aufbau relationaler 
Systeme 

In einer Relation werden die Daten 
in Tabellenform gespeichert. Die 
Zeilen der Tabelle sind die Datensät¬ 
ze, die (mit Namen versehenen) Spal¬ 
ten der Tabelle sind die Felder. Es 
ergibt sich eine “flache“ zweidimen¬ 
sionale Datei. 

Zur einfachen und eindeutigen Identi¬ 
fikation eines Satzes (zum Wieder¬ 
auffinden) dienen ein oder mehrere 
zusammengesetzte Felder, welche als 
Schlüssel (Key) deklariert werden, 
weil sie für jeden Satz einen bestimm¬ 
ten, sonst nicht vorkommenden Inhalt 
haben (Eindeutigkeit). Bei einem 
zusammengesetzten Key spricht man 
von einem Kombinationsschlüssel. 
Mehrere Tabellen sind also über 
gemeinsame Datenfelder miteinan¬ 
der verbunden. Diese Beziehungen 
werden auch Relationen genannt, 
daher auch die Titulierung “relatio¬ 
nal”. Die Gesamtheit aller Relationen 
bezeichnet man als Datenbank. 

Die Charakteristik 

einer relationalen 
Datenbank: 

Speicherorganisation für große Da¬ 
tenbestände mit einem System für 
deren effektive Wiederauffindung, 
bei der die Daten in sogenannten 
Relationen vorliegen. Auf die Tabel¬ 
len können Mengenoperationen 
(Vereinigung, Durchschnitt, Diffe¬ 
renz) sowie Relationenoperationen 
(Entfernung von Spalten, Auswahl 
von Zeilen, Verbinden von Tabellen) 
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Abbildung 1: 

Eine typische Relation 


(Tabellenname) (Schlüssel, Key) 

(Feldname) 

TABELLE 

Personal-Nr 

Mitarbeiter 


I 9900100 | 

Egon Meier 


1 9900107 | 

Willi Würfel 


1 9900114 | 

Max Müller 

Tupel --> 

1 9900121 | 

\ —■- +-/ 

Hans Hansen 


1 

Domäne 

1 

Feldinhalt 


Abbildung l:Eine typische Relation 

angewandt werden, mit deren Hilfe 
Datenauswahl und Datenmanipula¬ 
tion möglich sind. Der Zugriff auf die 
Daten erfolgt über die Werte der ge¬ 
speicherten Daten, so daß für den 
Benutzer keine sichtbaren Zeiger und 
Verkettungen existieren. 

Abbildung 1 zeigt eine typische Rela¬ 
tion. 

Jede Zeile mit gleichem Schlüssel 
wird als Tupel bezeichnet und ist in 
etwa mit einem Datensatz einer Datei 
vergleichbar (ein Tupel kann mehrere 
Sätze umfassen). Die Gesamtheit der 
verschiedenen Feldwerte eines Da¬ 
tenfeldes (das entspricht einer Spalte) 
heißt Domäne. 

Das Schlüsselfeld sollte zur besseren 
Kenntlichkeit das erste Feld einer 
Tabelle sein (In meinen Beispielen ist 
der Key doppelt (======) unterstri¬ 
chen). 

DDL und DML 

Für jedes Datenbanksystem gibt es 
eine spezielle Daten-Definitions- 
Sprache (Data Definition Language, 
DDL), mit deren Hilfe die Datenbank 
beim Anlegen in ihrem zukünftigen 
Aufbau beschrieben wird. Nachträg¬ 
liche Änderungen (Hinzufügen von 
Feldern, Erweitern von Feldlängen 
usw.) sind problemlos möglich. 

Mit der Data Manipulation Language 
(was heißt das wohl in deutsch?), 
DML, werden die Daten eingegeben, 
abgerufen und gepflegt. 

Die Sprache der relationalen Systeme 
unterscheidet sich aber erheblich von 
denen, die die Daten hierarchisch 
oder nach dem Netzwerkmodell 
orientiert speichern. 

Mit dem JOIN-Befehl (Vereinigung) 
kann aus zwei bestehenden Relatio¬ 
nen eine neue, dritte Relation gebildet 
werden. 


Unter Selektion versteht man das 
Ausblenden von bestimmten Zeilen 
einer Tabelle, mit Hilfe von Projek¬ 
tionen können Spalten aus der Sicht 
entfernt werden. 

Mit diesen Befehlen verkleinert man 
die Datenbank auf die Spalten und 
Felder, die das jeweilige Anwen¬ 
dungsprogramm benötigt. Sie wird 
dadurch nicht physisch gelöscht; es 
erfolgt nur eine Eingrenzung der 
Betrachtung. Der vorherige Zustand 
ist jederzeit wiederherstellbar. 

Diese Möglichkeiten zeigen den 
Vorteil relationaler Datenbanken: 
alle Operationen finden auf der Basis 
von Relationen statt. Das Ziel einer 
Operation ist dabei stets eine neue 
Relation, mit der weitergearbeitet 
werden kann. 

Die Einfachheit der Datenmanipula¬ 
tionssprache ermöglicht endlich dem 
Endanwender den Zugang zu Daten¬ 
banken. Er braucht sich nicht wie ein 
Profi mit verschiedenen Satzarten, 
hierarchisch organisierten Zugriffs¬ 
pfaden und anderen schwer verständ¬ 
lichen Details zu befassen. Das Kon¬ 
zept einer Tabelle ist jedem zugäng¬ 
lich und hat im Grunde im mit elektro¬ 
nischer Datenverarbeitung nichts zu 
tun. 

Der Anwender muß nur noch ange¬ 
ben, welche Daten er wünscht. Die 
Angabe, wie und wo die Daten zu 
finden sind, braucht er nicht zu ma¬ 
chen. Dieses erledigt das Datenbank¬ 


system, als Schnittstelle zwischen 
Mensch und Betriebssystem: 

Anwendungprogramm <-> Daten¬ 
banksystem <-> Betriebssystem <-> 
DB (DB=Datenbank) 

In der Realität kann der richtige Ent¬ 
wurf von Relationen durchaus ein 
schwieriger Prozeß sein, da es gilt, die 
Daten sinnvoll (auch im Hinblick auf 
die Zukunft) anzuordnen. 

Eine große Weitsichtigkeit wird vom 
Programmierer verlangt, damit nicht 
ein unsauberes Design später zu kata¬ 
strophalen Konsequenzen führt. 

Die folgenden Schritte erläutern den 
richtigen Aufbau. 

Die drei wichtigen 
Regeln des Daten¬ 
bankentwurfs 

Ich werde die drei Regeln an einem 
Beispiel beschreiben, da sie im ei¬ 
gentlichen Wortlaut nicht verständ¬ 
lich genug sind. 

Ich wähle ein Beispiel aus der Praxis: 
das Verwalten von Disketten und 
Programmen. 

In Abb. 2 zeige ich eine völlig un¬ 
strukturierte Tabelle, die in keiner 
Form normalisiert ist. Die Nachteile 
dieser "Relation” sind schnell aufge¬ 
zählt: 

a) es können nur maximal drei 
Programme pro Diskette 
gespeichert werden 

b) die Suche nach einem bestimm¬ 
ten Programm dauert zu lange, 
da alle Felder durchforstet 
werden müssen 

c) sind weniger als drei Programme 
auf einer Disk gespeichert, 

{ bleiben Felder unbelegt (Platz¬ 
verschwendung) 

d) Löschen einzelner Program¬ 
me kann Schwierigkeiten 
bereiten 


Abbildung 2: Beispiel einer nicht-normalisierten Relation 


DISK Disk-Nr 

frei 

belegt 

Programml 

Programm2 

Programm3 

1 

100 

700 

GFA-Basic 

GFA-Compiler 

GFA Draft 

2 

300 

500 

STAD 

Campus 


3 

50 

750 

Signum! 

Megamax C 



Abbildung 2: Beispiel einer nicht-normalisierten Relation 


4/88 


29 












ANWENDUNGEN 


Um die Fehler zu beheben, entfernen 
wir die Mehrfachfelder (Programm 1, 
Programm2, Programm3), deren 
Länge und Typ gleich sind, und 
schreiben sie untereinander weg. 
Damit führen wir die Relation in die 1. 
Normalform über (siehe Abbildung 
3). 


Abbildung 3: Entfernen von Wiederholungsgruppen 


Die 1. Regel: 

Alle Sätze eines Satztypes müssen 
dieselbe Anzahl von Feldern haben, 
d.h. Gruppen und multiple Felder 
sind verboten. 

Demnach darf jedes Feld im Daten¬ 
satz nur einmal und nicht mehrfach 
Vorkommen. 

Die Vorteile sind schnell erkannt: es 
können beliebig viele Programme pro 
Disketten-Nummer erfaßt werden. 
Alle vorher aufgezählten Nachteile 
scheinen beseitigt. 

Leider sind nach der Umgestaltung 
einige Einträge mehrfach vorhanden. 
Die Informationen über die Disket¬ 
tenkapazität werden mit jedem Pro¬ 
gramm erfaßt, was eigentlich gar- 
nicht notwendig wäre. Es entsteht 
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eine Datenredundanz (mehrfaches 
Speichern gleicher Daten) und daraus 
resultierend eine Verarbeitungsre¬ 
dundanz, da diese Information z.B. 
beim Löschen eines Programmes in 
mehreren Sätzen geändert werden 
muß. 


Man erkennt, daß die Felder FREI 
und BELEGT zwar von der Disket¬ 
ten-Nummer, aber nicht vom Pro¬ 
gramm-Namen, d.h. nur von einem 
Teilschlüssel, abhängig sind (der Key 


setzt sich hier wegen der Eindeutig¬ 
keit aus Disk-Nr. und Programmna¬ 
me zusammen). 

Dazu werden alle Felder, die nur 
durch einen Teilschlüssel identifi¬ 
ziert werden, ausgelagert (in eine 
zweite Relation, siehe Abb. 4) 

Die 2. Regel: 

In Relationen mit einem Kombina¬ 
tionsschlüssel muß jedes nicht dazu¬ 
gehörige Feld vom gesamten Kombi¬ 
nationsschlüssel abhängen. Felder, 
die nur von einem Teil des Keys 
abhängen, werden mit diesem Feld 
als Schlüssel separat gespeichert 
(Entkopplung). 

Die Datenbank liegt dann in der zwei¬ 
ten Normalform vor, wenn sie beide 
Regeln erfüllt (was hier gegeben ist). 
Um noch die dritte Regel zu beschrei¬ 
ben, füge ich in die Tabelle PRO¬ 
GRAMM das Feld DISTRIBUTOR 
ein. Man erkennt schnell die entste¬ 
hende Redundanz. Der Distributor 
wird mehrfach gespeichert. Damit 
auch die dritte Normalform erfüllt 
wird, entkoppeln wir nochmals in 
eine weitere Relation, DIST. 

Zum Wiederauffinden vergeben wir 
eine interne Nummer. Sie wird als 
Fremdschlüssel bezeichnet, da sie 
nach außen hin nicht sichtbar wird. 

Die 3. Regel: 

Felder, die nicht Teil des Schlüssels 
sind, dürfen nicht untereinander ab¬ 
hängig sein. Ist das der Fall, werden 
auch diese voneinander abhängigen 
Felder in getrennten Relationen ge¬ 
speichert. 

Zum Erfüllen der dritten Normalform 
müssen alle drei Regeln eingehalten 
werden. 


PROGRAMM 

Disk-Nr 

Programm 

Distributor-Nr 



1 

GFA-Basic 

990091 




1 

GFA-Compiler 

990091 




1 

GFA Draft 

990091 




2 

STAD 

595555 




2 

Campus 

400000 




3 

Signum! 

595555 




3 

Megamax C 

595555 



DIST 

Distrubutor- 

Nr Name 


Anschrift 



400000 

digital 

Workshop 

Bochum, Kornhapener Str 


595555 

Application System 

Heidelberg, 

Brückenstr. 


990091 

GFA Systemtechnik 

Düsseldorf, 

Heerdter Str 


Abbildung 5: Entkopplung aller Felder , die von einem Nicht-Schlüssel abhängen 


Disk-Nr 

frei 

belegt 

Programm 

1 

100 

700 

GFA-Basic 

1 

100 

700 

GFA-Compiler 

1 

100 

700 

GFA-Draft 

2 

300 

500 

STAD 

2 

300 

500 

Campus 

3 

50 

750 

Signum! 

3 

50 

750 

Megaiiax C 


DISK Disk 

-Nr frei 

belegt 


1 

100 

700 


2 

300 

500 


3 

50 

750 


PROGRAMM 

Disk-Nr 

Programm 

Distributor 


1 

GFA Basic 

GFA Systemtechnik, Düsseldorf 


1 

GFA Compiler 

GFA Systemtechnik, Düsseldorf 


1 

GFA Draft 

GFA Systemtechnik, Düsseldorf 


2 

STAD 

Application System, Heidelberg 


2 

Campus 

digital Workshop, Bochum 


3 

Signum! 

Application System, Heidelberg 


3 

Megamax C 

Application System, Heidelberg 


Abbildung 4: Auslagerung der Felder , die nur durch einen Teilschlüssel definiert werden 
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Der Vollständigkeit halber erwähne 
ich noch die vierte Regel (jawohl, die 
gibt’s auch). Ein Beispiel hierzu müßt 
Ihr Euch aber selbst ausdenken. Sie 
kommt in der Praxis eh selten (wenn 
überhaupt!) vor. 

Die 4. Regel: 

Die vierte Normalform verbietet jede 
Abhängigkeit zwischen Nicht-Pri- 
märschlüssel-Attributen. (???) 
Vielleicht existieren weitere Regeln, 
bitte schreibt mir, falls sie einer kennt 
oder selbst formuliert hat. 

Damit wären wir mit der Datennor¬ 
malisierung fertig. Die Vorteile der 
getrennten Relationen sind klar er¬ 
kennbar; alle Nachteile sind beseitigt. 


- Pro Diskette können beliebig 
viele Programme erfaßt 
werden; das Löschen eines 
Programms ist nach Angabe 
von Disk-Nr. und Namen 
möglich. 

- Für jedes Programm ist die 
Erfassung individueller Infor¬ 
mationen möglich (z.B. 
Bedienung, Monitor, Preis 
usw.). 

- Die Adresse des zuständigen 
Distributors ist sofort verfüg¬ 
bar. 

- Die Gesamtsumme aller Pro¬ 
gramme ist gleich der Anzahl 
der Tupel in der Tabelle 
PROGRAMM. 

- Die Ermittlung des insgesamt 
freien oder belegten Disk- 
Platzes geschieht über die 
Summe der entsprechenden 
Domäne in der Tabelle DISK. 


ENDE 


Wie geht’s weiter? 

Bis zur nächsten Ausgabe werdet Ihr 
wohl die Schritte in der Entwicklung 
normalisierter Tabellen verstanden 
haben (mal ehrlich: so schwer ist es 
doch gar nicht!). 

Ich werde im zweiten Teil meines 
Kurses endlich mit der praxisnahen 
Programmierung beginnen, und die 
Befehle zum Anlegen und Ändern 
einer Datenbank beschreiben. Bis da¬ 
hin: 

fröhliches Datennormalisieren !! 

Paul Fischer 


Hendrik Haase Computersysteme 

präsentiert die Super-Hits_ 

für Atari: / 

l ab 72 ' y 

Hardware: Zubehör: 


Atari 520STM incl. Maus . 569,— DM 

Atari 520STM+SF314+Maus+SM 124 .. 1199,- DM 

SM124 Monochrommonitor. 439,- DM 

Vortex-Festplatte (neue Version)_ 1198,- DM 

NEC Diskettenlaufwerk 1036 
— komplett anschlußfertig (720 kB) 

—' incl. Netzteil & Gehäuse. 348, - DM 

NEC 1036A Diskettenlaufwerk solo. 228,— DM 

NEC Multisync Monitor. 1350,- DM 


NEC P6 Drucker. 1100,- DM 

Citizen 120 D. 420,— DM 

Signum-Textverarbeitung. 368,— DM 

Megamax C-Compiler . 349, - DM 

dt. Anleitung für Megamax 

3. Auflage (erheblich verbessert). 49,— DM 

Lattice C-Compiler. 298,— DM 

Aladin Mac-Emulator. 390,- DM 

Mac-Roms dafür. 190,- DM 


Speicherkarte 1 MByte für ST 199,— DM 


Hendrik Haase Computersysteme, Wiedfeldtstr. 77 
D-4300 Essen 1, Tel.: 02 01/42 2575 
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FESTPLATTEN 

FÜR DEN ST! 



. 

-Mit speziell entwickelter Steuersoftware ^ EiCklTISnTI EX 40 


- ^ 


-Abschaltbare Autobootmöglichkeit. 

-Bei jedem Start Auswählbare Bootpartition. 
-Superleise 

-Testbericht in ST 12/87 

Folgende Software ist im Lieferumfang enthalten: 

- 'HD-Cache' von Eickmann Computer. 

Cach Memory ermöglicht einen um das Doppelte 
beschleunigten Zugriff, immer dann sinnvoll 
eingesetzt, wenn die Harddisk stark beansprucht 
wird 

- Harddisk-Utility' von Application Systems/ 
Heidelberg 


40 Megabytes 

DM 2.298,- 
Eickmann EX 60 

60 Megabytes 

DM 2.898,- 

fckmann 
Computer 

In der Römerstadt 249 6 Frankfurt/90 Tel.: 069/ 763409 



Preise von morgen für Software von heute 


Z.B. SPIELE: 

Arkanoid .37,— DM 

Backlash.59,— DM 

Bard’Tale.88 — DM 

Blue War.59,— DM 

Defender of the Crown.66,— DM 

Dunchip.69,— DM 

Dungenmaster.69,— DM 

Epyxset.79,— DM 

Flight Simulator II (M + F).129,— DM 

Hotball.69,— DM 

Jagd nach Roter Oktober.59,— DM 

Kasiser.119,— DM 

Outrun.auf Anfrage 

Sapiens.59,— DM 

Star Track.55,— DM 

Star Wars.55,— DM 

Tanglewood.49,— DM 

Terror Pods.65,— DM 

Tsionjazz.65,— DM 

Ultima IV.75,— DM 


Gerald Köhler 

Soft- und Hardware 
für Atari ST 

Mühlgasse 6 
6991 Igersheim 

Telefon (07931) 44661 
(24h-Service) 

Natürlich führen wir noch weitaus 
mehr Produkte für den Atari ST. 
Fordern Sie deshalb unseren 
Katalog (auf Diskette gegen 2mal 
0,80 DM in Briefmarken) an, es 
lohnt sich! 


Z.B. ANWENDERPROGRAMME: 


BS-Fibu.auf Anfrage 

BS-Handel.auf Anfrage 

Degas Elite.129,— DM 

Flex Disk.59,— DM 

GfA-Basic Interpreter.79,— DM 

GfA-Basic Compiler.79,— DM 

Pro Sound Designer.169,— DM 

Signum!.auf Anfrage 

STAD. 155,— DM 

T.I.M. Buchhaltung 1.1 . 259,— DM 


ODER PD-SOFTWARE: 

— Riesenauswahl aus 300 (!) Disks mit mehr als 
1000 Programmen. 

— außerdem alle ,ST-Computer‘-Disks 
sofort lieferbar. 

— einseitige und doppelseitige Kopien. 

— Einzelprogramm-Service. 

— Paket- und Staffel preise. 

— .Sound Sampler'-Service. 

— Katalog (mit div. PD-Software) anfordern. 

Sie werden staunen! 
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GRUNDLAGEN 


AUF DER 
SCHWELLE 
ZUM UCHT 

Laufwerksverwaltung 


Diesmal widmen wir uns der Ver¬ 
waltung der Laufwerke unter 
GEMDOS. Dabei wird, wie ver¬ 
sprochen, der Drive-Media-De- 
scriptor erklärt. Außerdem ist das 
Thema “Cluster- und Sektornume¬ 
rierung” vom letzten Mal auch 
noch nicht ausgeschöpft. 

Nachtrag 

Doch zuerst noch ein kleiner Nach¬ 
trag zur FAT-Verwaltung. Es ist viel¬ 
leicht noch ganz interessant, den Al¬ 
gorithmus zu kennen, mit dem ein 
freier Sektor in der FAT ausgewählt 
wird, wenn eine Datei verlängert 
wird. 

Die Strategie ist eigentlich sehr ein¬ 
fach. Beim letzten Cluster der Datei 
beginnend, wird einfach der erste 
freie Cluster gesucht. Wenn dabei der 
letzte Cluster (nach Meinung des 
GEMDOS der letzte, eigentlich der 
drittletzte) erreicht wird, setzt man 
die Suche beim ersten Cluster (der 
Nummer 2) fort. Wenn ‘numcl’- Ein¬ 
träge erfolglos untersucht wurden, ist 
das Speichermedium voll, und die 
Funktion bricht ab. 

Nach dem Kreieren einer Datei be¬ 
ginnt die Suche für den ersten Cluster 
von vome. 


Anmeldung von Lauf¬ 
werken 

Damit GEMDOS mit den verschie¬ 
denen Massenspeicher-Laufwerken 
Zusammenarbeiten kann, müssen die¬ 
se bei ihm “angemeldet” sein. Dies 
geschieht aber nicht explizit dadurch, 
daß ein Treiberprogramm eine spe¬ 
zielle Funktion aufruft oder irgend¬ 
welche Systemvariablen manipuliert, 
sondern wird von GEMDOS automa¬ 
tisch durchgeführt, wenn das Lauf¬ 
werk zum ersten Mal mittels einer 
GEMDOS-Funktion angesprochen 
wird. 

GEMDOS führt Buch darüber, wel¬ 
che Laufwerke ihm schon bekannt 
sind. Dazu dient eine Bit-Maske 
(‘drvmap’), wobei ein gesetztes Bit 
bedeutet, daß das Laufwerk angemel¬ 
det ist. Bit 0 ist dabei Laufwerk A: 
zugeordnet, Bit 1 gehört zu Laufwerk 
B:, usw. 

Bei jeder GEMDOS-Funktion, die 
auf ein Laufwerk zugreifen muß 
(insbesondere also die Datei- und 
Disk-Funktionen F... bzw. D...), wird 
von einer Routine überprüft, ob der 
Zugriff auf das gewünschte Laufwerk 
möglich ist. Diese Routine wird im 
folgenden ‘d_chkdrv’ genannt. 

Wenn das Laufwerk schon bekannt 
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ist, also das zugehörige Bit in 
‘drvmap’ gesetzt ist, geht man davon 
aus, daß es auch ansprechbar ist. Man 
überprüft nur noch, ob für das Lauf¬ 
werk schon ein Standardpfad exi¬ 
stiert. Ist dies nicht der Fall, wird das 
Root Directory als aktuelles Directo¬ 
ry festgelegt (dazu kommen wir noch 
einmal in einer späteren Folge). Ist 
das Laufwerk dagegen GEMDOS 
noch unbekannt, wird das BIOS mit 
‘Getbpb’ um Hilfe gefragt. Wenn hier 
ein Fehler zurückgeliefert wird, ist 
entweder kein Treiber für das Lauf¬ 
werk installiert oder es kann nicht an- 
, gesprochen werden (z.B. wenn der 
Boot-Sektor der Diskette einen Lese¬ 
fehler hat). 

Im Normalfall gibt ‘Getbpb’ die 
Adresse des “BlOS-Parameter- 
Blocks” (BPB) zurück, an dessen 
Aufbau Sie sich vielleicht noch aus 
der letzten Folge erinnern. Der BPB 
wird nun ausgewertet und der “Drive 
Media Descriptor” aufgebaut (siehe 
nächsten Abschnitt). 

Anschließend definiert wie oben be¬ 
schrieben, das Root-Directory als 
aktueller Pfad. 

Interessant ist in diesem Zusammen¬ 
hang noch, daß ‘d_chkdrv’, wenn 
alles geklappt hat, die Laufwerksken¬ 
nung an den Aufrufer zurückgibt. 
ERROR (-1L) zeigt einen eventuellen 
Fehler an. Wenn die aufrufenden 
Routinen diese Kennung und nicht 
die, die sie ‘d_chkdrv’ übergeben 
haben, für die eigentlichen Operatio¬ 
nen benutzen würden, könnten in 
‘d_chkdrv’ Laufwerke auf andere 
umgeleitet werden, bzw. es könnten 
“virtuelle Laufwerke” verwaltet wer¬ 
den. 

An der Verwendung des Konjunktivs 
merken Sie schon, daß dies ein 
Wunschtraum bleibt, denn die Rück¬ 
gabe von ‘d_chkdrv’ wird nicht wei¬ 
ter beachtet (außer daß die Fehlermel¬ 
dung abgefragt wird). 

Dieser in ‘d_chkdrv’ auftretende in¬ 
terne Fehler, nämlich daß ein Lauf¬ 
werk nicht angesprochen werden 
kann, ist die in der Januar-Folge als 
“Laufwerk unbekannt” bezeichnete 
Ursache von GEMDOS-Fehlermel- 
dungen (am besten nochmal nachle- 
sen). 


Der “Drive Media 
Descriptor” 

Jeder eifrige Leser von Original 
ATARI-Dokumentationen ist schon 
über die Bezeichnung “Drive Media 
Descriptor” gestolpert: Bei der Anga¬ 
be (von Dokumentation kann man 
hier wohl kaum sprechen) des “Buffer 
Control Blocks” (BCB) taucht dieser 
Begriff auf, ohne daß ein weiteres 
Wort über ihn verloren wird. Hier soll 
nun sein Geheimnis, das eigentlich 
gar keins ist, gelüftet werden. 

Sein Aufbau ist in Abb. 1 dargestellt. 
Die Komponenten lassen sich am 
besten erläutern, indem man die Ini¬ 
tialisierung des DMD bei der Anmel¬ 
dung eines Laufwerks betrachtet. 


Wie der Name schon sagt, beschreibt 
der DMD ein Laufwerk bzw. das 
damit verbundene Speichermedium. 
Er erlaubt GEMDOS, die Kommuni¬ 
kation mit den unterschiedlichsten 
Laufwerken und Medien, da er recht 
flexibel ist. Wie letzten Monat schon 
deutlich wurde, ist dies aber alles nur 
graue Theorie, da hier so manches 
nicht funktioniert. 

‘d_drive’ enthält, wie man sich beina¬ 
he denken kann, die Kennung des 
Laufwerks, das der DMD beschreibt. 
Einige Werte im DMD werden direkt 
aus dem BPB übernommen, was 
durch die ähnliche Namensgebung 
angedeutet werden soll. So ist 
‘d_clsiz’ die Cluster-Größe in Sekto¬ 
ren (wie ‘b_clsiz’), ‘d_clsizb’ gibt die 
Cluster-Größe in Bytes an (wie 
‘b_clsizb’), ‘d_recsiz’ ist die Sektor- 


Größe in Bytes (wie *b_recsiz‘), 
‘d_fsiz’ ist die FAT-Größe in Sekto¬ 
ren (wie ‘b_fsiz’) und ‘d_numcl’ ist 
die Anzahl der Daten-Cluster (wie 
‘b_numcl’). ‘d_flag’ enthält eine 
Kopie des Bit 0 von ‘b_flags[0]\ gibt 
also Auskunft, ob eine 12-oder 16- 
Bit-FAT vorliegt. Die anderen Bits 
von ‘d_flag’ sind immer Null, unab¬ 
hängig von ‘b_flags[ 0 ]\ 

Bei der Berechnung von Datei-Posi¬ 
tionen, Sektor-Nummern, usw. rech¬ 
net GEMDOS fleißig mit diesen 
Werten herum. Dabei ist es oft not¬ 
wendig, durch sie zu dividieren bzw. 
bestimmte Bits auszublenden. Dies 
wird mit Shift-Operationen und Lo- 
gisch-AND-Befehlen erreicht. Damit 
man die hierbei benötigten Shift- 


Operanden (Zweierlogarithmen) und 
Bit-Masken nicht jedesmal neu be¬ 
rechnen muß, merkt sich GEMDOS 
einige davon im DMD. 

In ‘d_lclsiz’ wird der Zweierlogarith¬ 
mus von ‘d_clsiz’ gespeichert, 
‘d_mclsiz’ ist eine Bit-Maske zum 
Ausblenden niederwertiger Bits 
(Tab. 1). Die entsprechenden Werte 
für ‘d_recsiz’ sind in ‘djrecsiz’ und 
‘djmrecsiz’ abgelegt (wer hätte das 


*clsiz' 

'lclsiz' 

’mclsiz' 

bzw. 

bzw. 

bzw. 

'recsiz * 

*lrecsiz' 

'mrecsiz * 

1 

0 

$0000 

2 

1 

$0001 

4 

2 

$0003 

512 

9 

$01FF 

1024 

10 

$03FF 


Tab. 1 : Shift- und Maskier-Werte 


typedef struct 



{ int d_roff[3]; 

/* Sektornurnmer-Offsets für FAT,DIR,DATA 

*/ 

int d_drive; 

/* Laufwerkskennung 0..15 

*/ 

int d_fsiz; 

/* FAT-Größe in Sektoren 

*/ 

int d_clsiz; 

/* Cluster-Größe in Sektoren 

*/ 

int d_clsizb; 

/* Cluster-Größe in Bytes 

*/ 

int d_recsiz; 

/* Sektor-Größe in Bytes 

*/ 

int d_numcl; 

/* Zahl der Datencluster 

*/ 

int d_lclsiz; 

/* 2er-Logarithmus von clsiz 

*/ 

int d_mclsiz; 

/* Bit-Maske für clsiz 

*/ 

int d_lrecsiz; 

/* 2er-Logarithmus von recsiz 

*/ 

int d_mrecsiz; 

/* Bit-Maske für recsiz 

*/ 

int d_lclsizb; 

/* 2er-Logarithmus von clsizb 

*/ 

FD *d_fatfd; 

/* Zeiger auf FD der FAT 

*/ 

long d_dummy; 

/* unbenutzt 

*/ 

DD *d_rdd; 

/* Zeiger auf DD des Root Directorys 

*/ 

int d_flag; 

/* FAT-Typ: 0: 12-Bit, 1: 16-Bit 

*/ 

} DMD; 




Abb. 1 : Drive Media Descriptor (DMD) 
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Das Tuning-Programm fOr 

Ihren Atari ST 






Erfolgreiches Hanl- und Software¬ 
tuning der ATARI ST 260/520/1040 
und Weiterentwicklungen 

• Musterprogramme für fextverartoeitung 
durch fechnik und Grafik 

• Tips. Tricks. Utilities ßetnebssvstemwtssen • iainrngsprogramme für GfA-Bosrc. 

• detailliertes Hardware- Assembler und C 

• interessante Hordworeerwerterungen 


Dieses neue Nachschlagewerk bietet 
Ihnen 

■ ausführliche Beschreibungen 
des äußeren und internen Auf¬ 
baus der Atari ST-Reihe: Sie lernen 
die einzelnen Bausteine wie 68000er- 
Prozessor, DMA-Controller oder 
Glue-Baustein im Detail kennen und 
erfahren, wie diese Komponenten 
Zusammenarbeiten; 

■ das Know-how zur Systempro¬ 
grammierung: Anhand von Beispie¬ 
len werden Sie mit GEM und den TOS- 
Komponenten GEM-DOS, BIOS und 
XBIOS vertraut. Sie lernen Systemrou¬ 
tinen, z. B. für die Mausprogrammie¬ 
rung oder Fenstermanagement, zu 
nutzen. Den detaillierten Betriebs¬ 
systemübersichten entnehmen Sie 

u. a. die Speicheradressen der ver¬ 
schiedenen TOS-Versionen oder den 
Befehlsvorrat an GEM-, AES- und GEM- 
VDI-Routinen; 

■ Kurse für erfolgreiches Soft¬ 
wareengineering: Mit Beispielen 
aus zentralen Anwendungen wie Grafik 
oder Dateiverwaltung verfügen Sie 
gleichzeitig über sofort einsetzbare 
Lösungen; 

■ Programmiersprachkurse für 

C, 68000er-Assembler, GFA-Basic; 

■ Systemtuning durch Hardware¬ 
erweiterungen und Bausteinpro¬ 
grammierung: Präzise Anleitungen 


zeigen Ihnen detailliert, wie Sie bei 
Ihrem Atari eine RAM-Erweiterung 
oder eine ROM-TOS-Aufrüstung vor¬ 
nehmen. Bauanleitungen mit Platinen¬ 
layouts auf Folie, zusammen mit 
der erforderlichen Betriebssoftware, 
ermöglichen Ihnen den kostengün¬ 
stigen Selbstbau eines hochleistungs¬ 


|n ,eressi^ an 

68 O ra $ 

P f0g lhler und c? 

Blätter Sie ^ 


fähigen Festplattenlaufwerks, eines 
EPROMers sowie eines universellen 
Erweiterungsports. 

■ praxiserprobte Musterlösun¬ 
gen für Technik/Mathematik (Logik¬ 
entwicklungssimulator zur Entwick¬ 
lung von digitalen Schaltungen, 
Fouriertransformationen, Matrizen¬ 


multiplikation u. a.), Planung (z. B. 
Netzplantechnik), Grafik (z. B. Berech¬ 
nung von Zentral- und Parallelprojek¬ 
tionen, 3D-Grafik, Bilder in 512 Farben 
bei gleichzeitigem Maus- und Tastatur¬ 
handling), Sound (Sound-Sampler 
u.a.) Add-On-Programme zur 
Standardsoftware, Desktop- 
Publishing; 

■ Tips, Tricks und Utilities: Sie 
erhalten Hardwaretips (z. B. für den 
Einsatz eines b l A”- Laufwerks), 
Floppyroutinen u.a. Datenüber¬ 
nahme von MS-DOS-Disketten), 
Druckerutilities (Ausdruck des 
Directory), Systemutilities (RAM- 
Disk, EPROM-Programmierung, Auto¬ 
boot mit integriertem Monitorschutz), 
Konvertierutilities (zum problem¬ 
losen Datenaustausch zwischen 
Atari ST und Amiga); Komprimier¬ 
routinen für Programme; 

■ den preisgünstigen Disketten¬ 
service 

■ regelmäßige Ergänzungsaus¬ 
gaben zum Grundwerk mit aktuel¬ 
len Informationen rund um den Atari 
wie z. B. neuentwickelte Hard- und 
Software, neue Betriebssystemver¬ 
sionen. 


Fordern Sie noch heute mit 
nebenstehender Bestellkarte an: 


Erfolgreiches Hard- 
und Softwaretuning der 
Atari ST 260/520/1040 
und Weiterentwicklungen 


Stabiler Ringbuchordner. 

Format DIN A4. 

Grundwerk ca. 400 Seiten, 
Bestell-Nr. 3700, Preis: DM 92.- 


Alle 2-3 Monate erhalten Sie 
Erganzungsausgaben zum 
Grundwerk mit je ca. 120 Seiten 
zum Seitenpreis von 38 Pfennig 
(Abbestellung jederzeit möglich). 


Industriestraße 21 
D-8901 Kissing 
I 0«2 33/21 01-0 




INTEREST-VERLA 


Fachverlag 
für anspruchsvollJ 

Frei/eiteestaltun# 

































68000er-Systeme 

PERFEKT PROGRAMMIEREN 

in Assembler und C 


taufen 

ent P^'.Sd-es« Sie 

rfiss** 



Nutzen Sie die Stärken Ihres Atari! 

Jetzt hilft Ihnen dieses neue Nachschlage¬ 
werk, 

■ effiziente Problemlösungen auf 
Betriebssystemebene zu realisieren 

■ anspruchsvolle Anwenderpro¬ 
gramme zu entwickeln 

■ mit ausgefeilter Bausteinprogram¬ 
mierung eine neue Atari-Dimension zu 
erschließen. 


Die wichtigsten Themen auf einen 
Blick: 

■ detaillierte Hardware-Beschreibun¬ 
gen der Prozessorfamilie 68000 
und ihrer 8-, 16-, 32-Bit-Peripheriebau- 


steine mit technischen Kennwerten, Pin¬ 
belegung, internen Architekturen, Befehls¬ 
beschreibungen; 

■ Betriebssysteme: Sie lernen die Struk¬ 
turen der 68000er-Betriebssysteme (wie 
GEM-TOS. OS-9 und Unix) kennen und 
erfahren, wie Sie die Systemroutinen zur 
Optimierung Ihrer Assembler- und C-Pro- 
gramme nutzen; 

■ Softwareengineering: die optimale 
Vorgehensweise von der Problemanalyse 
über die Codierung bis hin zur abschlie¬ 
ßenden Dokumentation; 

■ Programmierkurse für effiziente 
Anwender-, System- und Bausteinpro¬ 
grammierung in Assembler und C. 


Damit verfügen Sie zugleich über sofort 
einsetzbare Routinen, z. B. zur Drucker¬ 
und Bildschirmansteuerung; 

■ die C-Compiler-Werkstatt: Schritt 
für Schritt programmieren Sie selbst 
einen C-Compiler inkl. Funktionsbiblio¬ 
theken; 

■ Assembler-Makrobibliotheken, 
Anwender- und Funktionsbibliotheken 
in C; 

■ Tips und Utilities wie Schnittstellen- 
und Backup-Routinen, Fensterverwal¬ 
tung; 

■ bewährte Musterlösungen wie zu 
Rechnerkopplung und Multitasking; 

■ Anleitung für raffiniertes System- 


Bitte abtrennen 


Meine Anschrift: 


Name 


Vorname 


Straße. Haus-Nr. 


PLZ/Ort 


Nutzen Sie unseren kostenlosen 
Informations-Service: 


□ Grafik und CAD 

□ Desktop-Publishing 

□ dBase-Programmierung 

□ Messen, Steuern, Regeln mit 


dem Atari ST 
□ Aktuelles IC-Datenbuch 


Postkarte/Antwort 



INTEREST-VERLAG 


Fachverlag für anspruchsvolle 
Freizeitgestaltung 
Herrn Michel 
Industriestraße 21 


D-8901 Kissing 


tuning, z. B. durch Einsatz schnellerer 
Peripheriebausteine/Höhertakten der 
CPU; 

■ Praxiswissen zu speziellen Einsatz¬ 
bereichen wie Messen, Steuern, Regeln; 


Dieses Werk veraltet nie 

Unsere 68000er-Fachredaktion versorgt 
Sie regelmäßig und zuverlässig mit aktuel¬ 
len Informationen über Hardware- und 
Betriebssystem-Weiterentwicklungen, 
weiteren Utilities und Musterlösungen 
sowie Bibliothekserweiterungen in 
Assembler und C. 


Fordern Sie noch heute mit 
nebenstehender Bestellkarte an: 


Erfolgreiches 
Programmieren von 
68000er-Systemen 
in Assembler und C 


stabiler Ringbuchordner, 

Format DIN A4. 

Grundwerk ca. 400 Seiten. 
Bestell-Nr. 3400. Preis: DM 92- 


Alle 2-3 Monate erhalten Sie 
Ergänzungsausgaben zum 
Grundwerk mit je ca. 120 Seiten 
zum Seitenpreis von 38 Pfennig 
(Abbestellung jederzeit möglich). 


Industriestraße 21 
D-8901 Kissing 
fei. 08233/2101-0 




INTEREST-VERL 


Fachverlag 
für anspruchsvo 
Freizeitgestaltur 



















GRUNDLAGEN 



I Standard-| 

| Diskette | 

fiktiv 

1 fiktiv 

1 

1 

1 

CLSIZ 

1 2 

1 

1 

1 4 


1 

datrec 

1 18 

1 

11 

1 50 


1 

fatrec 

1 6 

1 

3 

1 21 


1 

d_roff[2] 

1 14 

1 

9 

1 42 


1 

RDLEN 

1 7 

1 

1 

1 

5 

1 

1 9 


1 

1 

RDCL 

1 4 

1 

5 

1 3 


1 

RD-Clusternr. 

1 -5. 

. -2 I 

-6.. -2 

1 -4. 

. -2 

1 

RD-Sektornr. 

1 -10. 

. -4 | 

-6.. -2 | 

1 -16. 

. -6 

1 

d_roff[1] 

1 21 

1 

i 

12 | 

1 57 


1 

FSIZ 

1 5 

1 

1 

1 

3 I 

1 

1 20 


1 

1 

FCL 

1 3 

1 

3 1 

1 5 


1 

FAT-Clusternr. 

1 -8. 

. -6 | 

-9.. -7 | 

1 -9. 

. -5 

1 

FAT-Sektornr. 

I -16. 

.-12 | 

-9.. -7 | 

-36.. 

.-17 

1 

d_roff[0] 

I 22 

1 

12 | 

1 57 


1 


Tab. 2 : Beispiele zur GEMDOS-Sektor-Zählang 


gedacht?). Die Bit-Masken sind zwar 
gerade die um eins verminderten 
Werte selbst, aber GEMDOS holt sie 
sich extra aus einer Tabelle 
(‘f_masks\ s.u.)! 

Zur Verwaltung von Dateien 
(einschl. Directories und FAT) gibt es 
weitere Strukturen (“File Descripto- 
ren” und “Directory Descriptoren”), 
um die wir uns ein andermal küm¬ 
mern. Hier sei nur erwähnt, daß sie 
zusammen mit dem DMD ein kompli¬ 
ziertes Netz bilden, welches vom 
DMD aus gut “aufgerollt” werden 
kann. 

Beim Einrichten des DMD werden 
die File Descriptoren für das Root 
Directory und die FAT sowie der 
Directory Descriptor des Root Direc¬ 
tories ebenfalls initialisiert. 

Übrig bleiben nun noch die 
‘d_roff[0..2]’-Werte. Dabei handelt 
es sich um die letzten Monat erwähn¬ 
ten Sektomummer-Offsets für FAT-, 
DIR- und DATA-Sektoren. Die 
GEMDOS-Sektomummer plus ent¬ 
sprechendem Offset ergibt die BIOS- 
Sektomummer. 

In der letzten Folge waren die beiden 
Zählweisen einander gegenüberge¬ 
stellt, wobei auffiel, daß die GEM- 
DOS-Sektomummem nicht durchge¬ 
hend waren, sondern daß es merkwür¬ 
dige Lücken in der Numerierung gab. 
Heute soll der Algorithmus erklärt 
werden, mit dem diese Zählweise 
festgelegt wird. 

Bisher habe ich Ihnen eine weitere 
Komplikation noch verschwiegen. 
Obwohl eigentlich nur Daten-Sekto- 


ren zu Clustern zusammengefaßt 
werden, gibt es auch Cluster-Num¬ 
mern für Root Directory (RD) und 
FAT. Das liegt daran, daß RD und 
FAT intern wie Dateien behandelt 
und daher bei der Berechnung von 
Dateipositionen (Seek-Funktion) wie 
bei Dateien Cluster in Sektoren um¬ 
gerechnet werden. Da es in Wirklich¬ 
keit aber gar keine Cluster gibt, müs¬ 
sen Cluster- und Sektomumerierung 
so angelegt sein, daß die Pseudo- 
Cluster-Nummern eindeutig auf 
GEMDOS-Sektomummem abgebil¬ 
det werden. 

Zum besseren Verständnis der etwas 
komplizierten Zusammenhänge dient 
Tab. 2, wo Beispiele für die nun fol¬ 
genden Erklärungen angegeben sind. 
Aus der Länge des RD in Sektoren 
(‘b_rdlen’) errechnet sich seine Län¬ 
ge in Clustern (‘rdcl’). Da die Zahl der 
RD-Sektoren kein Vielfaches der 
Clustergröße sein muß, wird diese 
Clusterzahl aufgerundet. Die genaue 
Formel lautet: 

r( j c [ _rdlen ± clsiz - 7 
_ clsiz _ 

(Der bei der Division auftretende 
Rest wird ignoriert). Der erste “Clu¬ 
ster” des RD ist Tdsf: 

| rdst = - 1 - rdcl 

Das RD belegt damit die Clustemum- 
mem ‘rdst’ bis -2; die Clustemummer 
-1 existiert nicht, ebenso die Cluster 0 
und 1. Die erste GEMDOS-Sektor- 
nummer ergibt sich durch Multiplika¬ 
tion mit der Anzahl der Sektoren pro 


Cluster. Durch die Aufrundung bei 
der Berechnung von ‘rdcl’ ergeben 
sich in der “Ausnutzung” der GEM- 
DOS-Sektornummern Lücken (s. 
Beispiele in Tab. 2). 

Entsprechend verfährt man mit der 
FAT: 

f , _jsiz + clsiz -1 

J clsiz 

fst = rdst - fcl 

Die FAT-Cluster liegen unmittelbar 
vor den RD-Clustem, denn sie haben 
die Nummern ‘fst’ bis ‘rdst’-l. Auch 
hier ergibt sich die erste GEMDOS- 
Sektomummer durch Multiplikation 
von ‘fst’ mit ‘clsiz’. 

Nachdem nun festgelegt wurde, wel¬ 
chen Pseudo-Clustem die RD- und 
FAT-Sektoren zugeordnet werden, 
kann GEMDOS die gesamte Verwal¬ 
tung wie bei User-Dateien erledigen. 
Beim tatsächlichen Zugriff werden 
nun die GEMDOS-Sektomummem, 
mit denen sich die Sektorpuffer-Ver¬ 
waltung hemmschlagen muß, mit den 
‘d_roff-Offsets zu BIOS-Nummem 
zurückgerechnet. Diese Offsets müs¬ 
sen nun so berechnet werden, daß 
diese Rücktransformation klappt 

Für Daten-Sektoren: 

d_roffl2] = datrec - (2 * clsiz) 

‘datrec’ ist die aus dem BPB entnom¬ 
mene BIOS-Nummer des ersten Da- 
ten-Sektors. Da der erste Cluster 
immer die Nummer 2 hat, ergeben 
sich für Daten-Sektoren die Num¬ 
mern ab ‘datrec’ aufwärts. 

Für FAT-Sektoren: 
d_roff[0] = fatrec - (fst * clsiz) 

‘fatrec’ ist die ebenfalls im BPB ge¬ 
fundene BIOS-Nummer des ersten 
Sektors der zweiten FAT, die, wie Sie 
seit einem Monat wissen, eigentlich 
die erste FAT ist. Zu beachten ist, daß 
‘fst’ negativ ist, und damit *d_roff[0]’ 
größer als ‘fatrec’ wird. Dies ist aber 
korrekt, da die bei der Umrechnung 
addierten GEMDOS-Sektornum- 
mem negativ sind, so daß sich BIOS- 
Nummem ab ‘fatrec’ aufwärts erge¬ 
ben. 

gehl weiter... 

4/88 /I " 35 




















GRUNDLAGEN 


Für RD-Sektoren: 

djoffll] = 

fatrec + fsiz - (rdst * clsiz) 

Das RD muß unmittelbar nach der 
zweiten FAT liegen, beginnt also bei 
‘fatrec’ plus ‘fsiz’ (‘fsiz’ ist die Zahl 
der Sektoren pro FAT, zu finden im 
BPB - wo wohl sonst?). Der Rest ist 
wie bei der FAT. 

So, nun wissen Sie hoffentlich alles, 
was man über Sektor- und Cluster- 
nummem wissen muß. Bei den bishe¬ 
rigen Erfahrungen mit GEMDOS 
muß man sich wundem, daß das gan¬ 
ze Hin- und Hergerechne so reibungs¬ 
los funktioniert; zumindest ist mir in 
dieser Hinsicht noch kein Fehler 
bekannt. 

Noch eine Ergänzung für diejenigen, 
die den Artikel über die Speicherver¬ 
waltung kennen: 

Die DMDs werden im “internen 
GEMDOS-Speicher” abgelegt. Da es 
hiervon aber nur relativ wenige gibt, 
ist die Anzahl der Laufwerke selbst 
nicht so entscheidend. Allerdings 
wird man bei vielen Laufwerken auch 
viele Ordner ansprechen, so daß die 
Chance, daß einem der GEMDOS- 
Speicher ausgeht, bei jedem neuen 
Laufwerk steigt (eine zweite Floppy 
wirkt hier schon Wunder). 

Da ein DMD 42 Byte groß ist, was 
aufgerundet drei 8-Wort-Einheiten 
(3*8*2 = 48) sind, finden sich freige¬ 
gebene DMDs in der ‘mifl’-Liste 3. 
Der DMD ist übrigens die einzige 
Struktur, die über die “3er-Liste” 
verwaltet wird. 

Abmelden von 
Laufwerken 

GEMDOS erkennt zwar selbständig 
neue Laufwerke und richtet dafür die 
internen Datenstrukturen ein, doch ist 
die Anmeldung eines Laufwerks 
nicht vorgesehen. 

Aber auch hierfür gibt es einen “auto¬ 
matischen’’ Mechanismus, nämlich 
den Mediumwechsel. Bei einem 
durch das BIOS gemeldeten Me¬ 
diumwechsel werden zuerst alle Da¬ 
tenstrukturen des betroffenen Lauf¬ 
werks freigegeben. Dies sind der 


DMD, die File und die Directory- 
Descriptoren. Weiterhin werden alle 
Pfade zu Directories sowie die Sek¬ 
tor-Puffer für ungültig erklärt (siehe 
hierzu auch die erste und zweite Fol¬ 
ge). 

Anschließend wird mit der BIOS- 
Funktion ‘Getbpb’ überprüft, ob das 
Laufwerk (mit einem anderen Me¬ 
dium) überhaupt noch verfügbar ist. 
Ist dies der Fall, werden die Struktu¬ 
ren zur Disk-Verwaltung neu initiali¬ 
siert, so daß das Laufwerk GEMDOS 
wieder bekannt ist. 

Wenn das Laufwerk nicht mehr an¬ 
sprechbar ist, wird es für GEMDOS 
abgemeldet, indem das entsprechen¬ 
de Bit von ‘drvmap’ gelöscht wird. 
Einer erneuten Anmeldung durch 
Zugriff steht nichts im Wege. 

Dieses Verfahren kann man sich zu 
Nutze machen, wenn man gezielt 
einzelne Laufwerke abmelden will. 
Dies kann sinnvoll sein, wenn das 
Laufwerk unter verschiedenen Ken¬ 
nungen angesprochen werden soll. 
Würde die Abmeldung nicht erfolgen 
und der Treiber einfach auf seine alte 
Kennung nicht mehr reagieren, wür¬ 
den die Datenstrukturen als “Lei¬ 
chen” im Speicher herumliegen und 
kostbaren internen Speicher verbrau¬ 
chen. 

Außerdem kann ein simulierter Me¬ 
diumwechsel bei allen Laufwerken 
einfach dazu dienen, internen Spei¬ 
cher freizugeben, was nach ausgiebi¬ 
gem Öffnen von vielen Ordnern 
empfehlenswert ist. Dazu läßt sich 
eine solche Routine leicht in ein 
Accessory einbauen. 

Listing 1 zeigt nun, wie man’s macht. 
In der Funktion ‘free_drv’ werden 
zunächst die Vektoren der elementa¬ 
ren Disk-Routinen ‘Mediach’, 
‘Getbpb’ und ‘Rwabs’ auf eigene 
Routinen umgesetzt. Durch den Auf¬ 
ruf der GEMDOS-Funktion ‘Dffee’ 
(andere tun’s auch) wird GEMDOS 
zu einem Zugriff auf das Laufwerk 
gezwungen. Die eigenen Disk-Routi- 
nen geben nun Meldungen zurück, 
wie sie bei einem Diskettenwechsel 
auftreten. 

Die Funktion ‘free_all’ generiert 
Diskettenwechsel für alle 16 mögli¬ 
chen Laufwerke. 


Da die Disk-Vektoren im geschützten 
Speicherbereich liegen, darf auf sie 
nur im Supervisor-Mode zugegriffen 
werden. Da man dieses Problem als 
“Betriebssystem-Hacker” öfter hat, 
sind die allgemeinen “Peek & Poke”- 
Routinen für solche Dinge ganz 
brauchbar. Wer erinnert sich hier 
nicht an seine alten 8-Bitter, bei denen 
die Kenntnis geheimnisvoller “Poke- 
Befehle” unerläßlich war? 

Bei der Anwendung dieses kleinen 
Programms sollten Sie darauf achten, 
daß auf den betroffenen Laufwerken 
keine Dateien mehr geöffnet sind, da 
diese bei dem “Mediumwechsel” 
nicht mehr ordnungsgemäß geschlos¬ 
sen werden können, und daher Daten¬ 
verlust droht. Ferner gehen alle Stan¬ 
dardpfad-Einstellungen verloren. 

Systemvariable 

‘drvbits’ 

Wie wir nun wissen, steht in der 
GEMDOS-Variablen ‘drvmap’, wel¬ 
che Laufwerke bekannt sind. Ande¬ 
rerseits gibt es noch die BlOS-Sy- 
stemvariable ‘drvbits’ ($4C2). 
‘drvbits’ ist ebenfalls eine Bit-Maske 
für vorhandene Laufwerke (sogar 32 
Bit!), hat aber nichts mit GEMDOS 
zu tun. 

Während ‘drvmap’ angibt, welche 
Laufwerke schon einmal angespro¬ 
chen wurden, steht in ‘drvbits’, ob das 
Laufwerk überhaupt verfügbar ist. 
Massenspeicher-Treiber sollten al¬ 
lerdings die von ihnen belegten Lauf¬ 
werkskennungen hier eintragen, 
‘drvbits’ wird nämlich von der BIOS- 
Funktion ‘Drvmap’ zurückgeliefert, 
damit Anwenderprogramme feststel¬ 
len können, welche Laufwerke an¬ 
sprechbar sind. Vom AES wird diese 
Möglichkeit während der Reset-Pha¬ 
se auch ausgiebig genutzt. 

GEMDOS-Variablen für 
Disk-Verwaltung 

Die globalen GEMDOS-Variablen 
für die Disk-Verwaltung sind in Abb. 
2 dargestellt, zusammen mit denen 
für die Sektor-Pufferung, die ich letz¬ 
tes Mal vergessen habe. Die erste 
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BCB 

bcbx[4]; 

/* 

$60a4/ $8846: BIOS: 4-Standard-BCBs */ 

char 

secbuf[4][512]; 

/* 

$4e22/ $75c4: BIOS: 4 Puffer für je 

1 Sektor */ 

int 

drvmap; 

/* 

$5fe2/ $8784: Bit-Map für angemeldete 

Drives */ 

DMD 

*dmdx[16]; 

/* 

$5bde/ $8780: DMD-Zeiger für alle Drives */ 

int 

f_masks[] 

/* 

$fdlbf6/$fd3022: Masken für 

Datei-Operationen */ 


= { 0x0000, 0x0001, 0x0003, 0x0007, 

OxOOOf, OxOOlf, 0x003f, 0x007f, 

OxOOff, OxOlff, 0x03ff, 0x07ff, 

Oxffff, Oxlfff, 0x3fff, 0x7fff 

}; _ 

Abb. 2 : GEMDOS-Variablen zur Puffer- und Disk-Verwaltung 


Adresse gilt für das alte TOS 
(6.2.1986), die zweite für das Blitter- 
TOS. Überflüssig zu erwähnen, daß 
diese Adressen nicht dokumentiert 
sind und nicht in Programmen ver¬ 
wendet werden sollten. 

‘bcbx’ und ‘secbuf sind die vom 
BIOS eingerichteten 4 BCBs mit den 
dazugehörigen Sektor-Puffern. Sie 
sind legal über die Pufferlisten 
(‘bufl[]’) zugänglich. 

‘drvmap’ wurde oben schon erläutert. 
GEMDOS hat eine Tabelle (‘dmdx’). 
in der für jedes Laufwerk der Zeiger 
auf den DMD steht. Wenn ein Lauf¬ 
werk unbekannt ist, enthält die Tabel¬ 
le einen Nullzeiger (OL). Gesetzt bzw. 
gelöscht werden diese Zeiger bei der 
automatischen An- und Abmeldung 
der Laufwerke. 

‘f_masks’ ist eine Tabelle mit Bit- 
Masken, die für Berechnungen ver¬ 
schiedenster Art benötigt werden. Bei 
der Anmeldung von Laufwerken er¬ 
geben sich die Werte für ‘b_mrecsiz’ 
und ‘b_mclsiz’ aus dieser Tabelle 
durch Indizierung mit den log2-Wer- 
ten (‘b_lrecsiz’, ‘b_lclsiz’). 

Im folgenden wird die Struktur des 
Prozeßdescriptors noch gebraucht 
werden, daher ist sie für diejenigen 
unter Ihnen, die den Artikel “Pro¬ 
grammverwaltung” nicht gelesen 
haben, in Abb. 3 noch einmal darge¬ 
stellt. Für die genaue Erklärung muß 
ich jedoch leider wieder auf das ST- 
Extra-Heft verweisen. 

Mehr als 16 
Laufwerke? 

GEMDOS kann in seiner derzeiti¬ 
gen Version entgegen sämtlicher Ge¬ 
rüchte maximal 16 Laufwerke ver¬ 
walten. Dies scheint viel zu sein, doch 


gibt es Leute, denen das noch zu 
wenig ist Die Gründe für die Be¬ 
schränkung auf 16 Laufwerke sind 
die folgenden: 

‘drvmap’ ist nur eine ‘int’-Variable 
(16 Bit). Durch eine einfache Ände¬ 
rung im GEMDOS-Quelltext könnte 
dies auf ‘long’ (32 Bit) geändert wer¬ 
den. 

Das ‘dmdx’-Feld müßte für 32 Lauf¬ 
werke erweitert werden (für die Atari- 
Entwickler ebenfalls kein Problem). 
Das ‘p_drvx’-Feld im Prozeßdeskrip¬ 
tor (PD), in dem Handles für die Stan¬ 
dardpfade abgelegt sind (dazu kom¬ 
men wir in einer späteren Folge), ist 
für 16 Laufwerke dimensioniert. Da 
danach aber noch Platz im PD ist, 
wäre eine Erweiterung auf 32 Lauf¬ 
werke ohne Änderungen möglich. 
Allerdings gibt es Routinen, die alle 
Laufwerke aus ‘p_drvx’ in einer 
Schleife durchgehen (z.B. bei der 


Abb. 3: Der Prozeßdescriptor (PD) 


Vererbung an Tochterprozesse). Hier 
müßte überall der Schleifenendwert 
auf 32 statt 16 gesetzt werden. 

Bei Benutzung so vieler Laufwerke 
müßte aber auch der interne Speicher 
nochmals vergrößert werden, da 
GEMDOS hier ganz schön zuschlägt. 

GEMDOS-Funktionen 

(TRAP#1) 

Hier möchte ich noch kurz auf die 
GEMDOS-Funktionen eingehen, die 
mit der Disk-Verwaltung Zusammen¬ 
hängen. 

Funktion $0e Dsetdrv 

long Dsetdrv(int drv) 

Das Default-Laufwerk wird auf 
‘drv’ gesetzt (0,1.. für A:, B:, 
usw.). Dieses Laufwerk wird an¬ 
gesprochen, wenn in Pfadnamen 
keine Laufwerkskennung explizit 
angegeben ist. 

Rückgabewert 

Es wird eine 32-Bit-Maske der an¬ 
gemeldeten Laufwerke zurückge¬ 
geben (Bit 0,1,.. für A:,B:,..). 

Dabei handelt es sich jedoch nicht 
um die GEMDOS-Variable 
‘drvmap’, sondern um die oben 
erwähnte BlOS-Systemvariable 
‘drvbits’. 


typedef struct 
{ char *p_lowtpa; 

/* Zeiger auf Beginn des reservierten Bereichs 

*/ 

char *p_hitpa; 

/* Zeiger auf Ende des reservierten Bereichs 

*/ 

char *p_tbase; 

/* Zeiger auf TEXT-Segment 

*/ 

long p_tlen; 

/* Länge TEXT-Segment 

*/ 

char *p_dbase; 

/* Zeiger auf DATA-Segment 

*/ 

long p_dlen; 

/* Länge DATA-Segment 

*/ 

char *p_bbase; 

/* Zeiger auf BSS-Segment 

*/ 

long p_blen; 

/* Länge BSS-Segment 

*/ 

DTA *p_dta; 

/* Zeiger auf DTA-Puffer 

*/ 

PD *p_parent; 

/* Zeiger auf PD des Parent-Prozesses 

*/ 

long resl; 

/* nicht benutzt 

*/ 

char *p_env; 

/* Zeiger auf Environment-String 

*/ 

char p_devx[6]; 

/* Handles für Standard-Devices 

*/ 

char res2; 

/* nicht benutzt 

*/ 

char p_defdrv; 

/* aktuelles Laufwerk (Default-Laufwerk) 

*/ 

char res3[8]; 

/* nicht benutzt 

*/ 

char p_drvx[16]; 

/* Pfad_Handles für alle Laufwerke 

*/ 

char res4[0xl8]; 

/* nicht benutzt 

*/ 

long p_d0; 

/* Prozessorregister DO 

*/ 

long p_a3; 

/* Prozessorregister A3 

*/ 

long p_a4; 

/* Prozessorregister A4 

*/ 

long p_a5; 

/* Prozessorregister A5 

*/ 

long p_a6; 

/* Prozessorregister A6 

*/ 

long *p_reg; 

/* Zeiger auf restliche Prozessor-Register 

*/ 

char p_cmdlin[128]; 

/* Kommando-Zeile (übergebener Parameter) 

*/ 

} PD; 
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Anwendungen 

in 

GFA-BASIC 


Helm-Verlag 


verdeutlicht an mehr als 50 Programmbetspielen die 
Programmierung in GFA-BASIC. Alle Programme sind 
ausführlich dokumentiert, übersichtlich programmiert und 
damit leicht verständlich. Viele Tips, Tricks und Anregungen 
können in eigene Programme übernommen werden. 
Praxisnahe Auswahl der Programmthemen aus vielen 
Bereichen für jedermann von Interesse. 

Aus dem Inhalt: Tips und Tricks zur GFA-BASIC-Program¬ 
mierung (Verwendung von GEM-Funktionen. 
Eingaberoutinen. Spriteprogrammierung) Utility-und 
Hilfsprogramme (u.a. Kopierprogramme. Mauszeiger-Edi¬ 
tor. Sprite- und Füllmustereditor) Grafik-Programmie¬ 
rung in GFA-BASIC (u. a. 3D-Grafik, Turtlegrafik) Anwen¬ 
dungsprogramme (u. a. Dateiverwaltung. Vokabeltrainer) 
Mathematische Anwendungen (u. a. Statistik, Ableitun¬ 
gen) Spiele (Alamo. Space-Race. Hamurabi, Klicker) 



Das große 

VIP-Buch 


Das Kompendium lür den 
Anfänger und den Profi 


B-410 Buch DM 49- D-430 Diskette DM 39- 


o 


Heim-Verlag 


Wenn Sie das Software-Paket VIP-Professional kaufen 
wollen oder schon besitzen, dann weiht Sie dieses Buch 
schnell und umfassend in die Geheimnisse dieses 
Profiprogrammes ein. 

VIP- Professional besteht aus den drei Funktionsberei¬ 
chen 

- DATENBANK 

- KALKULATION 

- GRAFIK 

mit denen wichtige und vielfältige Aufgaben hervorragend 
gelöst werden. 

Das Buch enthält komplette Musterlösungen fürdieGewinn- 
und Verlustrechnung und Fakturierung Anhand dieser 
Beispiele wird gezeigt, wie Sie alles herausholen, was in 
VIP-Professional steckt. 

Mit diesem Buch können Sie VIP-Professional richtig 
einsetzen und seine Möglichkeiten voll ausschöpfen 

B-408 Buch DM 49,- D-428 Diskette DM 39- 


Mit über 130 Programmbeispielen und Erläuterungen lernen 
und trainieren Sie das Programmieren in BASIC. 
Grundlegende Beisp. bis zur ausgereiften Anwendung 
machen den perfekten Einstieg in die Programmiersprache 
des GfA-BASCs leicht. Alle Beispiele werden so dargestellt, 
daß das Verständnis für die Programmstruktur gefördert 
wird. Die Progr. sind gut dokumentiert, wobei die 
hervorragenden Mögl. des GfA-BASIC zur strukturierten 
Programmierung genutzt werden. 
Aus dem Inhalt: Eigenschaften des GfA-BASIC Dateiverwalt. 

u. Ordner in GfA-BASIC Schleifentechnik Felder 
Unterprogramme Menü-Steuerung Window-Technik 
Zufallszahlen • Seq.-u. RANDOM-Dateien Textverarbei¬ 
tung Sortierprogramme Fakturiersysteme Grafik 
Spiel uvm. 320Seiten mit 131 Programmen in GfA-BASIC. 
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ATARI ST 

Prof. Dr. B. Bollow/K. Reimann 

GfA-BASIC 

Programm- 

Sammlung 

131 Programme In GfA-BASIC 


Ein Standardwerk für den ATARI-ST - ideal für Schüler und 
Studenten! Anhand von zahlreichen Beispielen lernen Sie 
die Lösung von mathematischen Problemen mit dem 
ATARI ST kennen. Die zahlreichen BASIC-Programme sind 
praxisnah ausgwählt worden und können in Schule. Studium 
und Beruf eingesetzt werden. 
Einige der Themen: 
- integral- und Differentialrechnung 
- Kurvendiskussion 
- Statistik und Wahrscheinlichkeitsrechnung 

- Matrizenrechnung 

- Radioaktivität 

- Relativitätstheorie 

u.v.a.m. 
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Heitn-Verlag 


i ATARI ST 


0. Steinmeier 


Mathematik 

und 

Naturwissenschaft 


Heim-Verlag 



j. Wilhelm 


GEM •Programmlarung 

Ein Grundwerk 

für alle Atari-GEM-ProQrammierer 


Ein Grundwerk. 

Wer sich mit der Programmierung der GEM-Funktionen 
vertraut machen will braucht dieses Buch! Es beginnt mit 
einer Erläuterung des GEM-Aufbaus und führt anhand von 
Programmbeispielen zum leichten Verständnis aller auf 
dem Atari verfügbaren GEM-Funktionen. Die 
übersichtliche Gliederung ermöglicht auch ein schnelles 
Nachschlagen der Funktionen. 

Einige der Themen: 

- Was ist GEM DieGEM-BestandteileVDIundAES Die 
GEM-lmplementation auf dem Atari ST Aufruf der 
GEM-Funktionen aus BASIC, C und ASSEMBLER Sonstige 
Programmiersprachen und GEM Die Programmierung 
der VDI-Funktionen • Die AES-Bibliothek und die 
Programmierung ihrer Funktionen Aufbau eines Objekt¬ 
baumes Was ist eine Resource-Datei? Viele erläuterte 
Beispielprogramme in BASIC. C und Assembler. 



K. Schneider/O. Steinmeier 


Grundlehrgang 

Oer richtige Einstieg 


Das Buch für den richtigen Einstieg mit dem ATARI ST. Auf 
rund 330 Seiten wird der Leser leicht verständlich in die 
Bedienung des Rechners eingeführt. 

Einige der Themen: 

Die Hardware des ATARI ST: 

- Aufstellung und Wartung des Computers 

- Überblick über die Systemkomponenten 

- Das .Innenleben' des Computers 

Die Software des ATARI ST: 

- Bedienung des GEM-Desktop 

- Arbeiten mit Maus, Fenstern und Icons 

- Einführung in die Sprachen LOCO und BASIC 

- Programmsammlung mit vielen interessanten Beispielen 
Diese zweite Auflage des Grundlehrgangs berücksichtigt alle 
neuen Rechnermodelle der ATARI ST-Familie. 
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Hcim-Vcrlag 
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Hclm-Varlag 


Zum neuen Basic Interpreter, ein Buch, das mit gezielten 
Beispielen verständlich den Einstieg in das Basic der 
Superlative ermöglicht. Ein Muß für jeden Besitzer dieses 

Interpreters. 
Einige der Themen: 
- Der Umgang mit dem Editor 
- Ausführliche, mit Beisp. versehene Befehlsübersicht 
- Die fantastischen Grafikmöglichkeiten (Windows. Sprites. 

Alertbox. Pull-down Menüs) 

- Strukturierte Programmierung - auch in Basic möglich! 

- Dateiverwaltung unter GfA-Basic 
- GEM Handhabung in Basic 

- Vergleich mit anderen Basic-Interpretern - Hilft bei der 

Kaufentscheidung 
- Zahlreiche Übungs- und Anwenderbeispiele 
- Mathematik und hohe Genauigkeit 


WML 

w/M 


ATARIST 


Bärtels/Egel/Merino/Schneider 


Das 

GfA-Basic 

Buch 
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liber 550 Seifen 


Helm-Verlag 


Heim Verlag 

Heidelberger Landstr. 194 
6100 Darmstadt-Eberstadt 
Telefon 06151-56057 



C ist die zweite .Muttersprache' des Atari ST: schnell. 

komfortabel, kompakt im Code. 
„C auf dem Atari ST“ ist für Anwender geeignet, die 
Erfahrungen mit anderen Programmiersprachen gemacht 
haben. Das Buch behandelt den vollen Sprachumfang von 
Standard-C und verweist auf BASIC und Pascal. 
Besonderer Wert wird auf die Anschaulichkeit und 
Genauigkeit der Darstellung gelegt. Alle Programmbeispiele 
sind getestet und direkt in den Text übernommen. 
Aus dem Inhalt: C-Compiler für den Atari: Digital Research. 
Lattice. Megamax der Editor • Bedienung des Compilers 
Grundlegende Elemente eines C-Programms Variablenty¬ 
pen Felder und Vektoren Ausdrücke Zeiger Spei¬ 
cherklassen Bitfelder Varianten Aufzählungen 
Dateien Diskettenhandling Einbindung von Assembler¬ 
programmen Bildschirmgrafik in C • Fehlerinden 
C-Compilern Tools u.a. 


■ 


ATARIST 


Michael Sperber 


c 

auf dem Atari ST 
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Hctm-Varlag 


BESTELL-C0UP0N 


an Heim-Verlag 
Heidelberger Landstraße 194 
6100 Darmstadt-Eberstadt 


Ich bestelle_ 

zzgl. DM 5,-Versandkosten (unabhängig von der bestellten Stückzahl) 
□ per Nachnahme □ Verrechnungsscheck liegt bei 

Name. Vorname ' _ 


Straße, Hausnummer 


PLZ. Ort__ 

Benutzen Sie auch die im ST COMPUTER vorhandene Bestellkarte. 

















































































GRUNDLAGEN 


typedef struct 




{ long b_free; 

/* 

freie Cluster 

*/ 

long b_total; 

/* 

Gesamtzahl der Cluster 

*/ 

long b_secsiz; 

/* 

Sektor-Größe in Byte 

*/ 

long b_clsiz; 

/* 

Cluster-Größe in Sektoren 

*/ 

} DISKINFO; 





Abb. 4 : DISKINFO-Struktur 


Arbeitsweise 

GEMDOS merkt sich das aktuelle 
Laufwerk im PD als ‘p_defdrv\ 
Dies bedeutet, daß jeder Prozeß 
sein eigenes aktuelles Laufwerk 
hat. 

Die Funktion ‘Dsetdrv’ besteht 
nur aus zwei ‘C’-Befehlen. ‘drv’ 
wird direkt nach ‘p_defdrv’ des 
PD kopiert. Dabei erfolgen keiner¬ 
lei Kontrollen. Wenn das Lauf¬ 
werk gar nicht existiert, wird dies 
frühestens beim versuchten 
Zugriff bemerkt (in der oben 
erläuterten Routine ‘d_chkdrv’). 
Als zweites wird die BIOS- 
Funktion ‘Drvmap’ aufgerufen, 
deren Ergebnis direkt an den 
Aufrufer von ‘Dsetdrv’ zurückge¬ 
geben wird. 

Bei der Gelegenheit gleich noch ein 

Wort zu unerlaubten Laufwerksken¬ 
nungen: GEMDOS bemerkt zwar 


früher oder später, wenn ein Lauf¬ 
werk nicht ansprechbar ist. Es rea¬ 
giert allerdings ausgesprochen aller¬ 
gisch auf Kennungen, die nicht zwi¬ 
schen 0 und 15 liegen. Da keine 
Überprüfungen erfolgen, können 
unvorhersehbare Zugriffe erfolgen 
(durch Index-Überlauf in ‘p_drvx’). 
Natürlich gibt es auch Schwierigkei¬ 
ten beim Abfragen des Laufwerk-Bits 
in ‘drvmap’. 

Die GEMDOS-Programmierer wa¬ 
ren sicherlich der Ansicht, daß es in 
Anwenderprogrammen keine Pro¬ 
grammierfehler gibt, die illegale 
Kennungen erzeugen. Wie üblich 
muß der Anwender selbst nach den 
Bombenlegem im GEMDOS suchen. 
Bei Accessories ist wieder einmal zu 
beachten, daß diese unter dem PD der 
Hauptapplikation, also unter AES/ 
Desktop, laufen, wodurch sich Kon¬ 
flikte ergeben können. 


Funktion $19 Degetdrv 

int Dgetdrv() 

Hiermit erhält man die Kennung 
des für den aktiven Prozeß gülti¬ 
gen aktuellen Laufwerks. Dies 
kann entweder die zuletzt mit 
‘Dsetdrv* gesetzte oder die vom 
Parent-Prozeß “geerbte” Kennung 
sein. 

Arbeitsweise 

‘Dgetdrv’ ist ein Einzeiler. Es 
erfolgt direkt die Rückgabe von 
‘p_defdrv’ aus dem PD. 

Funktion $36 Dfree 

void DJree 

(DISKINFO *info, int drv) 

Diese Funktion gibt Auskunft 
über den freien Speicherplatz auf 
dem Laufwerk ‘drv’ (Ofür aktuel¬ 
les Laufwerk; 1,2,... für A:,B:,..). 
‘info’ muß dabei auf freien Spei¬ 
cherplatz zeigen, der von ‘Dfree’ 
mit einer DISKINFO-Struktur 
(Abb. 4) gefüllt wird. Daraus 
kann der belegte und noch freie 
Speicherplatz in Bytes berechnet 
werden: 

free = b_free * b_clsiz * b_secsiz 
used =(b_total - b_free)*b_clsiz 

*b_secsiz 


30: 

move.w 

12(A7),Dl 

/Zahl der Bytes -1 




(0,1,3) 

31: 

bne.s 

spokel 

;-> int oder long 

32: 

addq.w 

#1,A1 

;char wurde als int 




übergeben 

33: 

spokel: 



34: 

move.b 

(Al) +, (A0) + 


35: 

dbf 

Dl,spokel 


36: 

rts 



37: 

; 



38: 

peek: 



39: 

pea 

speek 


40: 

move.w 

#38,-(A7) 

;XBIOS-Supexec 

41: 

trap 

#14 


42: 

addq.1 

*6, A7 


43: 

rts 



44: 

speek: 



45: 

move.1 

14 (A7), A0 

;Peek-Adresse 

46: 

moveq 

#0, DO 


47: 

move.w 

12(A7),Dl 

/Zahl der Bytes -1 




(0,1,3) 

48: 

speekl: 



49: 

asl.l 

#8,DO 


50: 

move.b 

(A0)+,D0 


51: 

dbf 

Dl,speekl 


52: 

rts 



53: 

} 



54: 




55: 




56: 

/* gesamten internen 

Speicher eines Laufwerks 


freigeben */ 

geht weiter... 


1: 

/* Routinen 

zum Abmelden von Laufwerken 

2: 

3: 

bzw. zur 

Freigabe internen GEMDOS-Speichers 

4: 

by A. Esser, Juni 1987 

5: 

entwickelt mit MEGAMAX C 

6: 

7: 

*/ 


8: 

#define pokeb(a,b) poke(0,(long)a,(int)b) 

9: 

#define pokew(a,b) poke(l, (long)a,(int)b) 

10: 

#define pokel(a,b) poke(3,(long)a,(long)b) 

11: 

#define peekb(a) ((int)peek(0,(long)a)) 

12: 

#define peekw(a) ((int)peek(1,(long)a)) 

13: 

#define peekl (a) peek(3,(long)a) 

14: 



15: 



16: 

/* allgemeine Funktionen zum Speicherzugriff 

17: 

ermöglicht Zugriff auf geschützte Bereiche 


und auf ungerade Adressen */ 

18: 



19: 

asm 


20: 

{ 


21: 

poke: 


22: 

pea 

spoke 

23: 

move.w 

#38,-(A7) ;XBIOS-Supexec 

24: 

trap 

#14 

25: 

addq.w 

#6, A7 

26: 

rts 


27: 

spoke: 


28: 

move.1 

14(A7),A0 /Poke-Adresse 

29: 

lea 

18(A7),A1 /Adresse des zu 



schreibenden Wertes 
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GRUNDLAGEN 


Dabei ist zu berücksichtigen, 
daß‘Dfree’ nur die Informationen 
der FAT berücksichtigt, wo der 
Speicherplatz nach Clustern ver¬ 
bucht wird. 

Arbeitsweise 

Nach der Ermittlung des ge¬ 
wünschten Laufwerks (Berück¬ 
sichtigung des aktuellen Lauf¬ 
werks) und der Überprüfung mit 
‘d_chkdrv’ werden alle FAT- 
Einträge (von 2 bis'numcl’) gele¬ 
sen. Alle Einträge gleich Null 
werden als frei gezählt (dies 
ergibt ‘b_free’). 

Dann wird die DISKINFO- 


Struktur erzeugt. Die Werte 
‘b_total’, ‘b_secsiz’ und ‘b_clsiz’ 
entnimmt man dabei dem DMD 
(‘d_numd\ ‘d_recsiz’, ‘d_clsiz’). 

Für das Lesen der FAT wurde keine 
große, programmtechnische Mühe 
“vergeudet”. Dies erledigt nämlich 
die allgemeine FAT-Lese-Routine, 
die mit ‘f_seek’ (der internen Version 
von GEMDOS-'Fseek’) und ‘f_read’ 
jeden Eintrag einzeln liest und auch 
noch gleich den Folge-Cluster be¬ 
stimmt, was hier ja überflüssig ist. 
Dieser enorme Overhead erklärt, 
warum ‘Dfree’ so berüchtigt langsam 
ist (gar nicht zu reden vom DESK- 


TOP-”Disk-Info”, das auch noch 
sämtliche Directories liest!). Eine auf 
‘Dfree’ zugeschnittene Routine, die 
effektiver arbeitet, würde hier schon 
Wunder wirken. 

Vorausschau 

Das nächste Mal kehren wir wieder 
zur Dateiverwaltung zurück. Dabei 
geht es um die nächsthöhere Ebene - 
die Ebene der File-Descriptoren. 

Alex Esser 


57 

: void free_drv(drive) 


77: 

: /* folgende hdv-Routinen sorgen indirekt 

58 

: register int drive; /* Laufwerks-Kennung 



für Speicher-Freigabe */ 


0..15 */ 


78 

asm 

59: 

: { long dummy[4]; /* Dfree-Puffer */ 


79 

{ free_med: 

60: 

: long old bpb; /* Zwischenspeicher für 


80 

moveq #2,DO /"sicherer 


alte Vektoren */ 



Medium-Wechsel" 

61 

: long old__rw; 


81 

rts 

62 

: long old_med; 


82 

free_rw: 

63 

extern free_bpb(),free_rw(),free_med(); 


83 

moveq #-14,DO /"Medium-Wechsel" 

64 



84 

rts 

65 

: old_bpb = peekl(hdv_bpb); /* alte Vektoren 


85 

free_bpb: 


merken */ 


86 

moveq #0,DO /Medium nicht 

66 

old_rw = peekl(hdv_rw); 



vorhanden 

67 

old_med = peekl(hdv_mediach); 


87 

rts 

68 

pokel(hdv_bpb,free_bpb); /*|auf Spezial-Rou¬ 


88 

} 


tinen setzen */ 


89 

} 




90 


69: 

pokel(hdv_rw,free_rw); 


91 


70 

pokel(hdv_mediach, free_med); 


92 

/* internen Speicher aller Laufwerke 

71: 

Dfree(dummy,drive+1); /* Disk-Zugriff 



freigeben */ 


gibt Speicher 


93 

void free_all() 


frei */ 


94 

{ register int drive; 




95 


72: 

pokel(hdv_bpb,old_bpb); /* Vektoren wieder 


96 

/* ohne Rücksicht auf Existenz */ 


zurückholen */ 


97 

for (drive = 0; drive < 16; drive++) 


- 


98 

free_drv(drive); 




99 

} 

73 

pokel(hdv_rw,old_rw); 




74 

pokel(hdv_mediach,old_med); 




75: 

return; 




76: 









ENDE 


HCsoft Herbert Comanns 

Heinrich-Lübke-Straße 24 4044 Kaarst 1 • Telefon (02101) 63746 

Software — 

Sprachen z. B. 

Lattice C 

Modula II Dev. 

249,00 

298,00 


Unterhaltung z. B. 

Psion Chess 
California Games 

65,00 

79,00 

Anwendungen — 

z. B. 

Signum 2 auf Anfrage 

Fibu- und Auftrags¬ 
bearbeitung auf Anfrage 

Hardware — 

z. B. 

Floppylaufwerk 

339,00 

Disketten — 

z. B. 

Nashua ID 

Nashua 2D 
no Name 2D 

37,40 

39,90 

28,50 

Wir liefern sämtliche Hard- und Software (auch PC’s + Amiga) 
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HARDWARE 


EPSON LQ-500 



EPSON LQ-500 Die Konkurrenz 
auf dem Markt der 24 Nadeln ist 
groß. NEC stößt mit seinem neuen 
P 2200 in Preisbereiche vor, die 
noch vor Jahresfrist für solche 
Drucker reines Wunschdenken 
waren. Die Firma Epson, sonst 
nicht als Low-Price-Anbieter be¬ 
kannt, hält mit ihrem neuesten 
Produkt, dem LQ-500 dagegen. 

Nach der feierlichen Zeremonie des 
Karton-Öffnens findet der erstaunte 
Kunde, über den Fußboden verteilt, 
diverse Klappen, einen Stacheltraktor 
und ein deutsches Handbuch. Der 
Blick ins Innere des Druckers zeigt 
sauber verarbeitete Mechanik, in der 
sich hier und da sogar noch ein Me¬ 
tallteil erspähen läßt. Wurde gleich 
ein automatischer Einzelblatteinzug 
mitgeordert, erhöht sich die Klappen¬ 
anzahl um zwei, zusätzlich zum Ein¬ 
zug selbst. Ich hatte im Laufe des 
Testes ständig das Problem der Unter¬ 
bringung, denn viel Plastik will auch 
verstaut werden. 

Die Menge der Einzelteile ergibt sich 
aus der Konzeption des LQ-500. Der 
Stacheltraktor ist nicht fest im 
Drucker eingebaut, sondern muß 
beim Wechsel auf Endlospapier 
montiert werden. Er erfordert eine 
andere Abdeckung des Dtuckberei- 
ches als die Einzelblattführung und 
als der automatische Einzug. 
Nachdem also erstmal getüftelt wer¬ 
den muß, was wohin gehört und wel¬ 
ches Teil wo einrasten muß (das aus¬ 
führliche und reich illustrierte Hand¬ 
buch ist hier eine große Hilfe), geht es 
beim zweiten Mal dann schon schnel¬ 
ler. Mit einiger Routine ist beim häu¬ 
figen Wechsel der Papiersorten die 
Montage zwar einfach, aber doch 
lästig. 


Exzellente Schrift 

Hat der Drucker seinen Platz in der 
Nähe des Rechners gefunden und ist 
er via Parallelport mit ihm verbunden, 
muß natürlich erst noch die Farb¬ 
bandkassette eingesetzt werden. 
Dabei ergeben sich keine Probleme, 



Bild I: Das Bedienerfeld des LQ-500 


sogar die Hände bleiben sauber. Dann 
geht es an den ersten Druck. Hier zeigt 
der LQ-500 seine Stärken: Beide Zei¬ 
chensätze, die er serienmäßig bietet, 
sind von hervorragender Qualität. 
Auch die Druckgeschwindigkeit ist 
gut, das dabei entwickelte Geräusch 
kann man als normal bis laut bezeich¬ 
nen. Beim Druck größerer Texte oder 
Graphiken kommt er nicht ins 
Schwitzen, obwohl er über keinen 
Lüfter verfügt. Wer den Wunsch nach 
noch mehr Schriftvielfalt hegt, kann 
weitere Zeichensätze in Form steck¬ 
barer Module nachkaufen. 

Die Entwurfsqualität ist wie bei allen 
24-Nadlem etwas dünn, was auf den 
geringeren Nadeldurchmesser zu¬ 
rückzuführen ist. Bei der Geschwin¬ 
digkeit, die der LQ-500 in Briefquali¬ 
tät bietet, ist aber der Einsatz von 
Draft ohnehin selten nötig. 
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HARDWARE 


Steuerung von Hand 

Wie bei jedem Drucker können die 
wichtigsten Einstellungen am LQ- 
500 über ein Bedienungsfeld vorge¬ 
nommen werden. Der-erste Blick 
enttäuscht zunächst. Während andere 
Hersteller mit bunt leuchtenden, an 
Raumschiffcockpits erinnernden 
Tastenfeldern aufwarten, kommt der 
Epson mit drei grauen Schaltern da¬ 
her (siehe Bild 1). Mit ihnen wählt 
man On/Off Line, die Schriftart und 
schiebt das Papier um eine Zeile wei¬ 
ter. Ist der Drucker Off Line, wird mit 
einer ein Seitenvorschub ausgelöst, 
mit der zweiten ein Einzelblatt aus der 
dafür vorgesehenen Führung einge¬ 
zogen. 

Ich vermisse hier die Möglickeiten, 
die Schriftbreite per Taste zu ändern 
und den Druckerspeicher zu löschen. 
Letzteres ist nur mit dem Netzschalter 
zu bewerkstelligen und der sitzt, wie 
leider üblich, verrenkungsanfällig 
links hinten am Gehäuse. 

Die DIP-Schalter sind von oben leicht 
zugänglich unter einer Klappe ange¬ 
ordnet. Hier befindet sich auch der 
Steckplatz für ein Zeichensatzmodul. 
Wer, wie ich, häufig von automati¬ 
schem Einzelblatt zu Endlospapier 
wechselt, ist Epson dankbar für die 
Bedienerfreundlichkeit. Denn dabei 
muß jeweils nur ein DIP-Schalter 
bewegt werden. Insgesamt sind es 
derer 16, die außer der Wahl des inter¬ 
nationalen Zeichensatzes auch die 
Einstellung der Vorgabewerte für 
Seitenlänge und z.B. das Übersprin¬ 
gen der Perforation bei Endlospapier 
ermöglichen. 

Der LQ-500 läßt sich auf drei Arten 
mit Papier versorgen: Endlospapier 


wird mit einem Zugtraktor transpor¬ 
tiert, Einzelblätter sind mittels einer 
Führung und ‘Autoload’ oder mit au¬ 
tomatischem Einzug einzuziehen. 
Bei allen drei Arbeitsweisen hatte ich 
keine Probleme mit der Führung des 
Papiers. Es saß immer gerade und 
glatt im Drucker, jedoch ist der LQ- 
500 nicht in der Lage, Papier zurück¬ 
zufahren. Jeder verzagte Griff zur 
Transport walze wird mit Chaos im 
Druckwerk beantwortet. Der automa¬ 
tische Einzug hält bis zu 100 Blatt in 
Vorrat, die er auch sicher ablegt. Es ist 
die Verarbeitung von bis zu DIN A4 
breitem Papier erlaubt, eine Aß-Ver¬ 
sion gibt es nicht. Laut Handbuch sind 
bis zu 2 Durchschläge, allerdings nur 
im Endlosmodus, möglich. 
Besonders bei Briefen ist es wichtig, 
daß der Drucker im Einzelblattmodus 
oben und unten möglichst wenig 
Rand fordert. Der LQ-500 läßt hier 
nur jeweils zwei Zeilen frei, auf ei¬ 
nem DIN A4- Blatt bleiben dann 
immerhin noch 66 Zeilen. Zum Ver¬ 
gleich: beim Star NB-24 sind es bei¬ 
spielsweise nur 59. 


Die Druckersoftware 

Was kann der LQ-500 nun außer drei 
Zeichensätzen? Die Abbildungen 
zeigen einige Optionen. Bei den ver¬ 
schiedenen Stilen fallen besonders 
Umriß- und Schattendruck auf. 
Schon selbstverständlich für einen 
Drucker dieser Art ist Proportional¬ 
schrift, die aber nur in Pica-Breite 
nutzbar ist. Eine weitere Option ist für 
Freunde eines PC-Emulators wichtig: 
Die Zeichen ASCII 128-255 lassen 
sich zwischen kursivem und IBM- 
Graphikzeichensatz umschalten. Das 
kann sowohl mittels DIP-Schalter als 
auch über Software geschehen. Lei¬ 
der kann die ‘Autoload’-Funktion, 
das Einziehen eines Einzelblattes aus 
der Führung, nicht mit dem Rechner 
gesteuert werden, wohingegen der 
automatische Einzelblatteinzug pro¬ 
grammierbar ist. 

LQ-500 und ST 

Die schönsten Druckoptionen nutzen 
herzlich wenig, wenn bestehende 
Software sie nicht unterstützt. Kom- 


Der LQ-500 von Epson besitzt zwei 
eingebaute Letter-Quality Zeichensätze: 
Das ist Roman. Das ist Sans Serif. 

Und natürlich Entwurfsqualität, die 
sich durch die Geschwindigkeit von 
180 Zeichen pro Sekunde auszeichnet. 

Der LQ-500 beherrscht besondere Effekte: 

Um» 1©druck» auch ©ufcllraeel eenonnt, 
und Schei t bendruck „ 

In Elite-Schealdruck sind 160 Zeichen pro Zeile nöslich. 


Bild 2: Die verschiedenen Zeichensätze des LQ-500 


Diese Zeile in fett, unterstrichen , kursiv , mub. 

Diese Zeile ln fett, unterstrichen , kursiv , mubm 

Oleee Zell» ln fett, unterstrich en, kurwlv. ****** mM>. 

Diese Zelle ln fett, unterstrlchen . 
/Ct/rs/y. _ mwmr- . _ g qj ? . 

Der Atari-Zeichensatz ohne hebräische Zeichen: 

!"#$*&’( )*+,-. / 0123456789: ;< = >? 

OABCDEFGHIJKLMNOPQRSTUVWXYZ[\] Ä _ 
*abcdefghijklmnopqrstuvwxyz{ I }~A 
Qüääääägöeöi U A ^ s Ä 6 ö ö 0 ö y ö ü f h ß f 
ä1öüfifiäQö r "'ii i «»äÖ00»:ei£AÄO 9 + 91 0 0 w 

§ a ® 

®ßrTrioM-c(DeQö*>0en£±><fj** - • • / n 2 s 


Bild 3: Arbeiten mit Ist-Word 


Dieser Text wurde mit 
Wordplus erstellt und 
unter 1 3T Proportional 
gedruckt. 

Aufgrund sei ner Kompa- 
tibilität zu den gros¬ 
sen Brüdern LQ-800 und 
LQ-1000 gelingt der 
Druck mit dem LQ-500 
sofort mit den dafür 
vorgesehenen T reibern. 


Bild 4: Auch Proportionalschrift ist mit 
Softwareunterstützung möglich 
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patibilität heißt das Zauberwort. Da 
Epson im Bereich der Steuercodes 
selbst einen Standard gesetzt hat, 
besteht bei Textverarbeitungssoft¬ 
ware kein Problem. Aufgrund seiner 
Kompatibilität mit den großen Brü¬ 
dern LQ-800 und LQ-1000 können 
für den LQ-500 die bestehenden 
Druckeranpassungen genutzt wer¬ 
den. Ausdrucke mit Wordplus und 
Ist Proportional gelangen sofort, 
wenn man mal von den Sonderzei¬ 
chen absieht. Hier mußte der mitge¬ 
lieferte Treiber für Wordplus modifi¬ 
ziert werden (siehe Bild 3). Die hellen 
Zeichen ergeben sich dadurch, daß es 
diese partout nicht im Zeichensatz des 
Druckers gibt und sie, mehr schlecht 
als recht, durch 8-Nadel Graphik 
nachgebildet werden müssen. 

Ein weites Einsatzgebiet für einen 
Drucker am ST ist die Graphik. Wenn 
überhaupt, so unterstützt Graphik¬ 
software von den 24-Nadlem oft nur 
den NEC P6. Dieser Drucker verfügt 
jedoch über eine maximale Auflö¬ 
sung von 360 x 360 Punkten pro Zoll. 
Beim Epson sind es senkrecht nur 
180. Daraus ergeben sich hier und da 
Probleme. Z.B. nutzt CADproject 
diese Auflösung nicht, daher kann nur 
im 180x 180 Punkte-Modus gedruckt 
werden. Nach geringer Modifizie¬ 
rung des Treibers für den NEC P6 
gelang auch der Druck mit Stad. Bei 
Signum kann ja ohnehin die Auflö¬ 
sung 360 x 180 gewählt werden, so 
daß es auch hier keine Schwierigkei¬ 
ten gibt. 

Ein weiteres Problem für jeden Besit¬ 
zer eines 24-Nadel Druckers sind die 
Hardcopies. Viele Malprogramme 
lassen nur diese Art des Ausdrucks 
zu. Doch der ST unterstützt dabei 
bekanntlich nur 9 Nadeln. Es gibt 
aber im PD-Service der Redaktion 
zwei Programme, die hier Abhilfe 


schaffen. Das ist zum einen das Hard- 
copy-Accessory für den LQ-800, 
zum anderen der FX-Emulator der 
Firma NEC, der 11 verschiedene 
Hardcopy-Modi anbietet. Mit beiden 
Programmen gelingen Hardcopies 
per ALT-Help in teilweise bestechen¬ 
der Qualität. 

Fazit 

Der LQ-500 macht rundherum einen 
ordentlichen Eindruck. Am ST wird 
er von der wichtigsten Software un¬ 
terstützt. Die Bedienung ist einfach, 
das Handbuch gibt ausführlich Aus¬ 
kunft; wenn man mal von einigen 
Druckfehlern absieht, ist es gelungen. 
Das Bedienungsfeld ist leider etwas 
mager ausgefallen und die Prozedur 
des Traktor-Auf- und Abbaus ist kei¬ 
ne Freude. Außerdem braucht man 
für die vielen Teile ein zusätzliches 
Fach im Regal. Epson gewährt auf das 
Gerät selbst eine einjährige Garantie, 
die den Druckkopf jedoch nicht mit 
einschließt. Trotzdem machen seine 


robuste Verarbeitung, seine gute 
Schriftqualität und nicht zuletzt der 
niedrige Preis den LQ-500 zu einem 
empfehlenswerten Gerät. 

Ingo Brümmer 

Epson LQ-500 
Technische Daten: 

Schriftbreiten: 0,12,15 CP1 
Zeichensätze: 13 Internationale, 
Kursiv/IBM-Graphik 2 Letter Quality, 

Draft, Fontmodule 

Speicher: iSkByte wählbar 

Auflösung horizontal: 60, 80, 90, 120,180, 

240, 360 Punkte/Zoll 
vertikal: maximal 180 Punkte/Zoll 
Geschwindigkeit: LQ - 50/60 Zeichen/s 
(10/12 CPI) 

Draft - 150/180 Zeichen/s (10/12 CPI) 
Kompatibel zu Epson LQ-800,LQ-1000 
Lebensdauer: 

des Druckkopfes: 200 Millionen Zeichen/Nadel 
des Farbbandes: 2 Millionen Zeichen bei LQ 
Preise: Drucker inkl. Stacheltraktor 
und Einzelblattzuführung: 1098 DM 
Druckkopf: 275 DM 

Automatischer Einzelblatteinzug: 225 DM 

Schriftmodule: 80 DM 

Farbband: 28 DM 

+ Gutes Preis-/Leistungsverhältnis 

+ Gute Schriftqualität 

+ 2 Schriftarten serienmäßig 

+ DIP-Schalter gut zugänglich 

- Komplizierter Papierwechsel 

- Druckkopf ohne Garantie 


DESK DATEI INDEX EXTRAS 


09.02,88 19:57 


H 


Ai\L0—88B\ 


10092 Bytes in 3 Dateien 


HCCL 

ACC 

4924 

HCCLIF 

AC 

4844 

HCCLIF 

RSC 

324 



Bild 5: Das im PD-Service erhältliche Hardcopy-Accessory für den LQ-800 bringt saubere Hardcopies. 
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PREISBRECHER 
RISIKOFREUDIGE 

Jeffersons Modula 


yet another Shell for fitari ST 
(non-profit redistribution is pernitted) 
»gulän« Copyright 0 1987 pnGCase 
61 built~in connands: 


alias 

dirc 

exit 

history 

nsoff 

pwd 

source 

unalias 

cd 

dirs 

fg 

if 

nv 

rehash 

sx 

unset 

chnod 

echo 

fgrep 

lpr 

peekw 

ren 

te 

unsetenv 

copy 

egrep 

foreach 

ls 

pokew 

rn 

teexit 

Hhich 

cp 

ef 

fornat 

nen 

popd 

rndir 

tine 

while 

date 

endfor 

gen 

nkdir 

print 

rx 

touch 


df 

endif 

grep 

nore 

printenv 

set 

ue 


dn 

endwhile he 1p 

nson 

pushd 

setenv 

uekb 



prograns accessible through hash table: 

oops nZlink n2dec n2 

d:\jn2 58» 

d:\jn2 58» ls bin 

bin 

d:\jn2\bin: 

n2.ttp n2dec.ttp n21ink,ttp oops.tos 

d:\jn2 55» 


Bild l: Jefferson Modula-2 bietet über 60 Kommandos 


Für den Atari gab es bisher nur den 
TDI Modula-2-Compiler. Jetzt er¬ 
reichte uns ein Konkurrent aus den 
USA: Jefferson Modula-2. Kann 
das System dem Referenzcompiler 
aus Großbritannien Paroli bieten, 
und bekommt man für unter DM 
100,- ein Billigprodukt oder einen 
Preisbrecher ? 

Geliefert wird das Entwicklungspa¬ 
ket, für das es noch keinen deutschen 
Distributor gibt, auf zwei einseitigen 
Disketten und einem kleinen Manual. 
Im Test steht hier die Version 1.1 in 
der “kleinen” Version, die Sie für 
$49.95 in den Staaten erwerben kön¬ 
nen. Bei einem momentanen Dollar¬ 
kurs von DM 1,70 also ein Preisbre¬ 
cher für ca. DM 85,-, zu denen aller¬ 
dings noch etwa DM 15,- bis 20,- an 
Steuern und Zoll kommen. 

Installation 

Bei der Installation geht Jefferson 
Software einen bisher seltenen Weg: 
Alle Dateien sind mit dem Kompres¬ 
sionsprogramm ARC platzsparend 
auf den Disketten untergebracht. Die 
mitgelieferte Public-Domain-Shell 
Guläm (dazu noch mehr weiter unten) 
übernimmt per Batchfile das Kopie¬ 
ren auf Ihre Disketten oder Festplatte. 
Um das System in einem bestimmten 
Ordner zu plazieren, sind einige Zei¬ 
len mit Zugriffspfaden in dem Batch¬ 
file zu ändern. Nach ca. 20 Minuten 
(alle Zeiten mit Festplatte gemessen) 
stehen 760 KB Programme und Li¬ 
braries auf dem Zielspeicher. Einen 
Kopierschutz gibt es glücklicherwei¬ 
se nicht. 


Arbeitsumgebung 

Im Gegensatz zum TDI-Compiler 
benutzt Jefferson (JS) Modula keine 
GEM-Funktionen. Compiler und 
Linker sind TTP-Programme und 
schreiben ihre Meldungen auf die 
Standardausgabe. Das ist durchaus 
vertretbar, denn die Textfenster bei 
TDI bringen keinen wirklichen Ge¬ 
winn. 

Dennoch gibt es eine besondere 
Umgebung: die Public-Domain- 
Shell Guläm in der Version 05. Auch 
wenn hier die Früchte fremder Arbeit 
geerntet werden, wird das System erst 
durch diese Shell zu einem gut be¬ 
nutzbaren Entwicklungspaket. 

Guläm ist m.E. die leistungsfähigste 
Public-Domain-Shell. Sie besitzt eine 
hervorragende Alias-Funktion, mit 


Setenv können Suchpfade bei der 
Programmausführung gesetzt wer¬ 
den, Batchfiles arbeiten mit Schlei¬ 
fen, Bedingungen und Parameter. 
Dateinamen kann man bei der Einga¬ 
be mit der Insert-Taste von Guläm 
vervollständigen lassen. Insgesamt 
gibt es über 60 Kommandos, die alles 
Notwendige und ein bißchen mehr 
bieten (Bild 1). Bei voller Ausnut¬ 
zung des Alias-Befehls kann man sich 
eine Umgebung schaffen, die genau 
den persönlichen Wünschen ent¬ 
spricht. Leider ist die Shell auf eine 
amerikanische Tastatur eingestellt, 
läßt sich allerdings für deutsche Ver¬ 
hältnisse patchen. 

Einen Editor benötigt JS-Modula 
nicht, denn der bekannte und gute 
EMACS ist in einer etwas abgema¬ 
gerten Version im Guläm enthalten. 
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d:\jn2 64» n2 allqueen.nod 

Jefferson Software Modula-2 Conpiler U-1.00 

allqueen.nod 

- d:\jn2\std\In0ut.SBM 
+ flllQueens.RFM 

+ flllQueens.OBM 584 
d:\jn2 65» 

d:\jn2 65» n21ink allqueen 
Jefferson Software Linker U-i.00 

- 0000003C allqueen.OBM 

- O000Q2EE d:\jn2\std\In0ut.0BM 

- 00001246 d:\jn2\std\FileSysten.0BM 

- 00001EE8 d:\jn2\std\Systen.0BM 

- OO0028DC d:\jn2\tos\0EMD0SFiles.0BM 

- 00OO2D26 d:\jn2\std\FPSys.0BM 
+ 00003562 allqueen.TOS 

d:\jn 2 66 » ls -1 allqueen.# 


_rw-i u 783 Feb 13 19:34 allqueen.nod 

_ rw -i u 720 Feb 18 15:38 allqueen.obn 

_ rw -i u 357 Feb 18 15:38 allqueen.rfn 

_ rw -i u 13881 Feb 18 15:39 allqueen.tos 


d:\jn2 67» 


Bild 2: Der Compiler wird einfach mit dem Namen des Quellprogramms aufgerufen. 


Ladezeiten entfallen hier also. Man 
kann aber auch einen GEM-Editor 
aufrufen, da Guläm mit dem Präfix 
“gern” die TOS-Ebene verläßt. 
Allerdings hat dieses Vorgehen ohne 
speziellen Editor natürlich den ent¬ 
scheidenden Nachteil, daß Compiler¬ 
fehler nicht wie bei TDI automatisch 
im Quelltext angezeigt werden. Viel¬ 
mehr muß man zunächst das Hilfspro¬ 
gramm OOPS laufen lassen, das aus 
den Informationen der Fehlerdateien 
einen Klartext erzeugt, in dem alle 
fehlerhaften Quelltext-Zeilen samt 
Meldungen enthalten sind. Bei der 
Fehlerkorrektur muß man dann die¬ 
sen Text einblenden, was mit 
EMACS kein Problem ist. Das Zu¬ 
sammenspiel zwischen dem Quell¬ 
text und den Fehlermeldungen ist bei 
TDI allerdings erheblich besser ge¬ 
löst. 

Compiler & Linker 

Der Compiler wird - wie in Bild 2 zu 
sehen - einfach mit dem Namen des 
Quellprogramms aufgerufen. Dabei 
sind noch die Option -R und -V zum 
Umschalten der Bereichs- und Over¬ 
flowüberprüfung möglich. Weitere 
Compileroptionen gibt es leider 
nicht. 

Während des Übersetzerlaufs gibt JS- 
Modula auf dem Bildschirm die 
Namen der importierten Module und 
erzeugten Dateien aus. Das System ist 
eine Implementierung nach der neue¬ 
sten (dritten) Revision von Modula-2 
(siehe Info-Kasten im Bericht über 
Megamax-Modula in diesem Heft). 
Daher kann der Compiler den Quell¬ 
text in nur einem Durchlauf überset¬ 
zen und müßte somit schneller als 
TDI sein. Zur Einschätzung der Ge¬ 
schwindigkeit habe ich drei Program¬ 
me durchlaufen lassen (Bild 3). Dabei 
zeigt sich, daß der Compiler keines¬ 
wegs optimal programmiert ist und 
bei größeren Programmierprojekten 
auf jeden Fall zu langsam wird. 

Bei den Tests zeigten sich einige her¬ 
be Überraschungen: Das InOut-Mo- 
dul ist fehlerhaft und die damit com- 
pilierten Programme führen zum 
Absturz. Dadurch wird das System 
leider nur sehr eingeschränkt nutzbar. 
Ich nehme an, daß es sich um einen 
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Fehler bei der Zusammenstellung des 
Systems handelt. Weiterhin sind 
LONGREALs entgegen den Aussa¬ 
gen im Handbuch nicht vorhanden. 
Ebenso gibt es keine Coroutinen, 
womit das System nur eine einge¬ 
schränkte Implementierung des 
Modula-2-Sprachumfangs ist. 
Jefferson Software bietet einen um¬ 
fangreichen Support an. Auch wird 
man im Handbuch immer wieder 
aufgefordert, sich bei Problemen tele¬ 
phonisch oder per Mailbox zu mel¬ 
den. Wahrscheinlich wäre der Fehler 
in InOut auf diese Weise schnell 
behoben - für uns Europäer allerdings 
sehr kostspielig. Updates, über die 
man bei Registrierung automatisch 
Nachricht erhält, sind für $ 10 erhält¬ 
lich. 

Der Linker zeigt sich vom Aufruf und 
den Ausgaben her als dem Compiler 
ähnlich. Er arbeitet mit zufriedenstel¬ 


Bild 3: Modula-2 Compiler- und Linkerzeiten 


lender Geschwindigkeit, kann aber 
nicht so gut optimieren wie der TDI- 
Linker. 

Die Länge der erzeugten Programme 
deutet darauf hin, daß der Linker alle 
Routinen eines Moduls einbindet, 
auch wenn sie nicht benutzt werden. 
Bei größeren Programmen kann sich 
nach meinen Erfahrungen dabei eine 
Verdoppelung der Programmlänge 
ergeben. 

Bei der Verwendung von zu langen 
Pfadnamen für die Bibliotheken 
stürzt der Linker ab. Bei der Installa¬ 
tion sollte man das System also mög¬ 
lichst weit oben im Dateibaum plazie¬ 
ren. 

Die Bibliotheken 

Die Library-Module werden größ¬ 
tenteils auch mit Source-Code ausge¬ 
liefert, was sehr erfreulich ist und bei 


Modula-2 Compiler- und Linkerzeiten 

Nr. 

Com] 

ülezeit 

Lin! 

<zeit 

Programmgröße 

Programm 


JS 

TDI 

JS 

TDI 

JS 

TDI 


1 

0:17 

0:20 

0:20 

0:19 

5164 

5442 

Backtracking 

2 

0:21 

0:18 

0:21 

0:18 

5051 

2244 

Rekursion 

3 

0:38 

0:34 

0:43 

0:52 

17537 

14332 

größere IMPORTS 






















LESEN SIE 
SCHEIBENKLEISTER! 


SCHEIBENKLEISTER - MASSENSPEICHER AM ST. 

Alles über Floppies, Festplatten usw. von Claus Brod und Anton Stepper. 
Was steht drin? 





/*• 





Kursteil (für die ganze Familie): 

- Floppyprogrammierung mit allen erlaubten und 
unerlaubten Mitteln (per BIOS, XBIOS, GEMDOS und 
direkter Controllerprogrammierung): 

Kopierschutz, Aufzeichnungsverfahren, Daten¬ 
strukturen auf der Diskette 

- Hardwaredokumentation zu Floppy und Festplatte 
(Anschluß von Fremdlaufwerken, Justierung, Repara¬ 
turhinweise) 

- Festplatte: Prinzip, Controller, Programmierung 

Nachschlageteil (für Programmierer): 

- Hard- und Softwarereferenz zu DMA-Chip, Floppycon- 
troller, Festplattencontroller 

- GEMDOS-, BIOS- und XBIOS-Funktionen zur Massen¬ 
speicherprogrammierung (auch als GFA-BASIC-Biblio- 
thek auf Diskette) 

Software ( für alle, fertig zum Anwenden mit kompletten 
Anleitungen) : 

- TED, der Trackeditor: Formate analysieren, ändern, 
erstellen 

- SED, der RAM-Disk/EPROM-Disk/Floppydisk/Harddisk- 
Monitor: Ordnemamen ändern, gelöschte Dateien retten, 
spezieller Harddiskmonitor für direkten Festplattenzugriff 

(eigene Formatierroutine für zwei MB mehr) 
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Cu« 
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- neue HYPERFORMAT-Version 3.0: MS-DOS -kompatibles Format, bis zu 950 KB auf 
doppelseitiger Diskette, superfixe Formatierroutinen (optional unter 20 Sekunden für 
doppelseitige Disketten), Schneiladeformate 

- Steprateneinstellung, Konvertierung von Disketten auf Schneiladeformat 

- Assemblerroutinen für direkten Floppy- und Festplattenzugriff zum Einbinden in eigene 
Programme 

- lauffähige Programme mit Quelltext auf Diskette 

Ca. 600 Seiten, Buch mit Diskette für 59DM, erscheint Ende Februar 


HIERMIT BESTELLE ICH_EXEMPLARE 

VON "SCHEIBENKLEISTER. MASSENSPEI 
CHER AM ST*. 

MIT DISKETTE FÜR DM 59.- 
ANRUF GENÜGT: 06196/481811. 
MO-FR9-13 UND 14 17 UHR 
SCHRIFTLICHE BESTELLUNG NUR GEGEN 


VORKASSE ODER NACHNAHME ( VERSANDKOSTEN 
DM 5.50: BEI NACHNAHME ZUZÜGLICH DM 4.70 ) 

NAME:_ 

VORNAME:_ 

STRASSE:_ 

ORT:_ 

UNTERSCHR. :_ 



MERLIN COMPUTER GMBH 
INDUSTRIESTRAßE 26 
6236 ESCHBORN 
TEL. 06196/481811 
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TDI in der Commercial-Version teuer 
zu erkaufen ist. Die Standardmodule 
sind leider nicht ganz vollständig und 
teilweise fehlerhaft. 

Die systemspezifischen Module für 
GEM. GEMDOS und BIOS sind 
etwas zu sehr aufgesplittet, trotzdem 
aber vollständig und brauchbar. 
Module für eine automatische Fen¬ 
sterverwaltung oder andere Komfort- 
Bibliotheken sind leider nicht vor¬ 
handen - TDI verkauft sie extra im 
Toolkit. 

Benchmarks 

Letztlich entscheidend über die 
Qualität eines Compilers ist die Effi¬ 
zienz des erzeugten Codes. Dabei 
steht für die meisten die Geschwin¬ 
digkeit im Vordergrund. Allerdings 


ist es sehr schwierig, ein Produkt mit 
Benchmarks richtig einzuschätzen, 
da die verwendeten Programme oft¬ 
mals einseitig testen. Ich habe daher 
eine ganze Reihe von Geschwindig¬ 
keitstests durchgeführt, die auch für 
zukünftige Modula-2-Besprechun- 
gen verwendet werden sollen. 

Die Benchmarks umfassen 30 Mini¬ 
programme, die sich jeweils auf einen 
Teilaspekt konzentrieren. Es gibt 
Programme, die die Geschwindigkeit 
der Schleifenkonstrukte testen, die 
Verarbeitung von Ausdrücken über¬ 
prüfen und die herauszufinden versu¬ 
chen, ob der Compiler intelligent 
optimiert. Gerade durch geschickte 
Optimierung kann das Compilat Ge¬ 
schwindigkeitssteigerungen errei¬ 
chen. Denkbar sind Umstellungen der 
Ausdrücke, Speicherung von Zwi¬ 


schenergebnissen in Registern oder 
die Errechnung von konstanten Aus¬ 
drücken während der Compilierung. 
Die Ergebnisse dieser Tests sehen Sie 
in Bild 4. Allerdings muß hierbei 
berücksichtigt werden, daß JS-Modu- 
la keine Coroutinen kennt, die im all¬ 
gemeinen einen kleinen Mehrauf¬ 
wand für das Laufzeitsystem bedeu¬ 
ten. 

JS-Modula zeigt sich flink bei Schlei¬ 
fenkonstrukten und Parameterüber¬ 
gaben. REPEAT-Schleifen werden 
anscheinend hervorragend übersetzt. 
Auch die Auswertung von Expres¬ 
sions geht recht schnell. 

Ansonsten ist JS-Modula dem TDI- 
Compiler ebenbürtig - wenn man von 
den Fließkommaoperationen absieht. 
Die sehr schlechte Verarbeitung von 
einfachen REAL-Operationen ver¬ 
stärkt sich bei der Bibliothek mit 
höheren Funktionen. 

Die erzeugten Programme sind also 
annehmbar schnell. Die langsamen 
REAL-Operationen machen den 
Compiler allerdings für recheninten¬ 
sive Anwendungen ungeeignet. 

Handbuch 

Die vorliegende Version kommt mit 
einem kleinen Handbüchlein mit 26 
Seiten, ln ihm werden nur die notwen¬ 
digsten Dinge zu Installation und den 
Compiler- und Linkeraufrufen be¬ 
schrieben. Für $ 80 erhält man eine 
“enhanced version”, die ein ausführ¬ 
licheres Handbuch mit Listings aller 
Bibliotheksmodule miteinschließt. 
Man kann mit dem kleinen Manual 
arbeiten, sollte sich dann aber alle 
mitgelieferten Sourcen ausdrucken. 

Fazit 

Die Installation ist hervorragend 
vorbereitet, läuft vollautomatisch 
und ist problemlos. Die Arbeitsumge¬ 
bung ist Geschmacksache. Wer 
GEM-abhängig ist, wird sicherlich 
die TDI-Umgebung vorziehen. Es 
lohnt sich aber, die Möglichkeiten des 
leistungsstarken Guläm (nach Anpas¬ 
sung an die deutsche Tastatur) genau¬ 
er anzuschauen, da schnellere Tum- 
Around-Zeiten zu erreichen sind. 


Modula-2 Benchmarks 

Nr. 

TDI Modular2 

JS Modula^2 

testet ... 


Min. 

Ticks 

Min. 

Ticks 


1 

0:07 

1334 

0:07 

1489 

Prozeduraufruf 

2 

1:42 

20339 

1:33 

18548 

Addition 

3 

1:21 

16277 

1:18 

15518 

Increment 

4 

1:47 

21418 

1:38 

19634 

Additionsoptimierung 

5 

1:27 

17311 

1:23 

16550 

Increment als Vergleich 

6 

2:09 

25835 

1:57 

23480 

INTEGER-Addition 

7 

2:09 

25833 

1:57 

23471 

CARDIN AL-Addition 

8 

1:11 

14228 

1:18 

15543 

FOR-Schleife 

9 

1:21 

16278 

1:02 

12437 

REPEAT-Schleife 

10 

1:21 

16191 

1:18 

1552 

WHILE-Schleife 

11 

1:04 

12743 

0:54 

10791 

INTEGER-Parameter 

12 

1:04 

12739 

0:54 

10791 

INTEGER VAR-Parameter 

13 

1:06 

13130 

0:59 

11821 

RECORD-Parameter 

14 

0:34 

6755 

0:30 

5977 

RECORD VAR-Parameter 

15 

0:49 

9837 

0:49 

9780 

Konstanten-Optimierung 

16 

0:51 

10249 

0:51 

10201 

Konstanten-Optimierung 

17 

1:28 

17655 

1:26 

17171 

Expression-Optimierung 

18 

1:42 

16822 

1:22 

16354 

Expression-Optimierung 

19 

0:37 

7431 

0:36 

7102 

Zwischenergebnis-Optimierung 

20 

0:37 

7435 

0:35 

7099 

Zwischenergebnis-Optimierung 

21 

0:09 

1831 

0:11 

2154 

IF-Statement 

22 

0:13 

2645 

0:13 

2688 

IF durch CASE ausgedrückt 

23 

0:38 

7689 

0:33 

6667 

CASE-Statement 

24 

0:40 

7960 

0:39 

7804 

CASE durch IF ausgedrückt 

25 

0:47 

9441 

1:03 

12636 

REAL-Arithmetik 

26 

2:05 

24924 

— 

— 

LONG REAL-Arithmetik 

27 

1:52 

22380 

5:42 

68358 

REAL-Library 

28 

1:21 

16264 

1:21 

16135 

String-Library 

29 

2:10 

26075 

2:07 

25437 

ARRAY-Zugriffe 

30 

0:09 

1896 

0:10 

2056 

RECORD-Zugriffe 

Alle Zeiten mit time-Kommando von Guläm gemessen 


Bild 4: Benchmarks 
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SOFTWARE 


Die Fehlerbehebung gestaltet sich 
umständlich und könnte besser unter¬ 
stützt werden. Der Compiler selber ist 
noch zu langsam und eher eine Ent¬ 
täuschung, auch wenn er seine Aufga¬ 
be vom erzeugten Code her gut be¬ 
wältigt. Das Fehlen des Coroutinen- 
Konzepts ist ein echter Mangel, zu¬ 
dem es relativ leicht zu implementie¬ 
ren ist. Ebenso ist der Linker simpel 
implementiert und noch nicht opti¬ 
mal. 

Viele kleinere und größere Fehler 
(InOut-Modul !) verursachen bei JS- 


Modula den Eindruck, daß bei der 
Zusammenstellung der Disketten 
sehr schlampig gearbeitet und nicht 
korrekt auf Bugs überprüft wurde. 
Das mag sich in den USA mit einem 
Telefonat schnell beheben lassen; 
ohne einen deutschen Vertrieb und 
Support hat man aber viele Schwie¬ 
rigkeiten. Die Risiken bei einem Kauf 
im Ausland zeigen sich hier deutlich. 
Für nur ein Drittel des Preises von 
TDI erhält man einen Modula-2- 
Compiler, mit dem man arbeiten 
kann. Bei sehr vielen Kleinigkeiten 


ENDE 


werde ich aber das Gefühl nicht los, es 
mit einem portierten Public-Domain- 
Compiler oder mit dem Ergebnis ei¬ 
nes Universitätskurses über Compi¬ 
lerbau zu tun zu haben. 

Bei der zu erwartenden Flut von 
Modula-Compilem für den ATARI 
(FTL, Megamax, ETH und andere 
Implementierungen) wird Jefferson 
Modula-2 vom Komfort her und in 
Feinheiten sicher seinen Meister fin¬ 
den, im Preis aber nicht. Trotzdem 
wäre eine gründliche Überarbeitung 
angesagt. 

Robert Tolksdoif 





Zusatzkarten 
für VME-BUS 

rho-BUS, rho-Modul-BUS 
A/D-, D/A-Wandler bis 16 bit 
I/O-Karten (TTL, Optokoppler, 
Transistor-Out, Reiais-Out) 
IEEE-488, RS232, V24 
Vorverstärker-Einheiten für 
i/U, PTIOO, Thermoelemente, .. 


rho-Modut-BUS 
f. ATARI ST 

& iEEE-488 Interface 


rho-BUS 
für ATARI ST 

Forschung u. Entwicklung 


VME-BUS für ATARI 
ST 


im professionellen Einsatz 


S T—S T ATI S TI K 

An vielen Instituten bereits fUr Lehre und Forschung 
eingesetzt! ST-Stetlstlk ist so einfach zu bedienen, 
daB ein Handbuch Überflüssig Ist. Hilfskräfte erlernen 
die komplette Bedienung in einer Stunde. Ideal für 
Veröffentlichungen, da Ergebnisse von Textverarbeit¬ 
ungen direkt übernommen werden! 

LEISTUNGEN: 

♦ eingebauter Dateneditor 

♦ Übernahme von Datensätzen aus VIP u. LOGISTIX 

♦ Daten- u. Ergebnisausgabe auf Drucker und Floppy 

♦ Teilung u. MeBwerttransformatlonen von Dateien 

♦ UNI- und MULTIVARIATE VERFAHREN: 
diverse Tests, Cluster-, Diskrlminanz-, Faktoren-, 
Konfigurationsfrequenz-, Pfad-, Item- u. Varianz¬ 
analysen, Korrelationen, Regressionen 

♦ Update-Service und Hotline gewährleistet - 

040/468700 13.00 - 16.00 Uhr 

DM 249.- Dipl.-Piych. Michael Prall 
Demo: DM 30.- Isestr.57 2000 Hamburg 13 


Gesellschaft für Computer- und Communicationstechnologie mbH 

Hardware • Software • EDV-Zubehör 


ATARI ST + PC 

Preise und Liefermöglichkeiten bitte erfragen! 

Floppystationen 

kpl. m. Netzteil, anschlußfertig im Gehäuse 

3.5” NEC kompatibel SF314 DM 350,- 


5.25’ 


z. B. für MS-DOS a r\ 

40/80 Spur umschaltbar UM 479,- 


Weiter führen wir Drucker von SEIKOSHA. EPSON. 
NEC. PANASONIC sowie Monitore von PHILIPS 

Andere Produkte bitte telefonisch erfragen!! 


C0C0 GmbH • Schumannstraße 2 • 5300 Bonn 1 
Telefon 0228/222408 


Replicsfeo: 


»x ST 


Das Copy-Modul, das alles kann ! 

Die Repllca- Box wird geliefert 
mit einer Steuersoftware und 
erzeugt physikalische 1 :1 
Kopien. 

Schluß mit den Einschränkungen 
des WD-1772 ! Jetzt bekommen 
Sie ein Back-Up von jedem Ihrer 
Original—Programme. 

248- DM 


Versand erfolgt zuztigL 
Porto und Verpackung 
per Nachnahme ! 


Digital Works 
Kellert & Müller GbR 
BrUnebrede 17 
4410 Warendorf 
TeL 02581/61126 
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SELBSTBAU 
EINES COMPUTER¬ 
SCANNERS 



Das Wort “Scanner” kommt aus 
dem Englischen. “To scan” bedeu¬ 
tet abtasten oder auch überfliegen. 
Der Hobby Computeranwender 
versteht darunter ein Gerät, das 
Bild-Vorlagen in (s)einen Compu¬ 
ter einliest. 

Im Gegensatz zu den schnellen Vi¬ 
deo-Digitizern wird beim Scanner 
eine lichtempfndliche Photozelle in 
kleinen Abständen über eine Vorlage 
geführt. Für jeden Abtastschritt wer¬ 
den dem Computer Helligkeitsdaten 
übermittelt. So wird die Vorlage Zeile 
um Zeile eingelesen. 

Ausgehend davon kam ich - wie si¬ 
cherlich andere schon vor mir - auf 
den Gedanken daß die Photozelle von 
meinem Drucker fortbewegt werden 
könnte. Dazu genügt es, sie in ein 
altes Farbbandgehäuse einzubauen. 
Mit einer kleinen Sequenz von Steu¬ 
erzeichen lassen sich die meisten 
Drucker zum Scannen zweckent¬ 
fremden. Nach einigen hundert Hori¬ 
zontalschritten folgt ein Wagenrück¬ 
lauf, um die nächste Zeile zu lesen. 
Die Vorlagen müssen sich hierbei alle 
in den Drucker einspannen lassen. 
Wer einen Flachbettplotter sein eigen 
nennt, kann z.B. auch Plattenhüllen 
bequem abtasten. Ein Plotter macht 
außerdem keine Anstalten bei der 
Ansteuerung. Einige Drucker zeigen, 
dank modernster Wegeoptimierung, 
ein großes Maß an Starrsinn. Manche 
Geräte versalzen selbst einem trick¬ 
reichen Programmierer die Suppe, 
indem sie stets einen Wagenrücklauf 
abwarten und dann emsig, aber viel zu 
schnell über die Vorlage flitzen. 


Folgendes wird also zum Scannen 

benötigt: 

1. Ein (einfacher) Drucker oder 
ein Plotter 

2. Eine Photozelle mit logarith- 
mischem A/D-Wandler 

3. Scannersoftware mit USM- 
Algorithmen zum Verdoppeln 
der Bildschärfe 

4. Scannenswerte Vorlagen 

Die Sache sieht also nicht besonders 

schwierig aus, zumal meine komfor¬ 


table Scannersoftware als Public 
Domain erhältlich ist. 

Nur DM 25,- habe ich für meine Elek¬ 
tronik berappt. Nach 4-stündiger 
Nachtarbeit funktionierte der A/D- 
Wandler perfekt. Aber dann gab es 
doch Schwierigkeiten: Die ersten 
eingescannten Bilder wirkten un¬ 
scharf und “verrauscht”. 

Erst nach und nach gelang, haupt¬ 
sächlich durch verbesserte Software, 
ein Scanner mit erstaunlicher Bild¬ 
qualität. 

Die Hardware war, abgesehen von 
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einem kleinen Wackelkontakt, nicht 
weiter zu verbessern. Die umgewan¬ 
delten Helligkeitswerte entsprechen, 
wegen der logarithmischen Kennlinie 
vom A/D-Wandler, dem tatsächli¬ 
chen Graueindruck. Die Vorlagen 
werden außerdem nicht, wie bei vie¬ 
len Billigscannem, mit Infrarotlicht 
abgetastet, sondern mit sichtbarem 
Licht. 

Meine Scannersoftware bietet also 
einige Leckerbissen: 

Das abgetastete Originalbild kann 
vergrößert, verkleinert und gestaucht 
werden. Auch Helligkeit, Kontrast 
und Gradation sind nachträglich zu 
verändern. So kann man z.B. die 
dunklen Bildbereiche verändern, 
ohne daß sich die hellen und mittel¬ 
grauen Töne verändern. 

Die Grauabstufungen sind auf dem 
s/w-Monitor nur durch Füllmuster 
darstellbar. Diese Muster sind beson¬ 
ders fein, um ein möglichst realisti¬ 
sches Bild zu erzeugen. Ich habe auch 
darauf geachtet, daß keine “Kanten- 
Effekte” zwischen verschiedenen 
Mustern auftreten. 

Die USM-Funktionen (USM = Un- 
scharf-Maskierung) betonen feine 
Bilddetails, die beim Abtasten teil¬ 
weise verlorengingen. Außerdem 
wird die “Treppchenbildung” ver¬ 
mieden. Diese Funktion kann tatsäch¬ 
lich den Schärfeeindruck verdoppeln. 
Das ist etwas, was andere Scanner¬ 
software nicht bieten kann. 

Das so aufbereitete Bild läßt sich im 
Degas- oder Binärformat auf Diskette 
abspeichern. Die Bilder können so 
mit einem Malprogramm noch weiter 
verschönert werden. 

Mit einer geplanten Version 2.0 kann 
man in die Farbauflösung umwandeln 
und die Bilder sogar einfärben. 


Hardware 

Die Hardware besteht im wesentli¬ 
chen aus einem Phototransistor, dem 
logarithmischen Verstärker und dem 
4-Bit-A/D-Wandler. 

Die Hardware wird mit dem Joystick- 
Port verbunden und die Elektronik 
über diesen Stecker auch mit 5 Volt 
versorgt. Man bekommt einen sol¬ 
chen Joystick-Stecker im Elektronik- 
Laden (9-polige D- Buchse). Man 
muß nur den Metallrahmen entfer¬ 
nen. Zur Not hilft auch das Kabel 
eines alten Joysticks. 

Ich möchte nun ganz kurz die Funk¬ 
tionsweise meiner Schaltung erklä¬ 
ren: 

Der Phototransistor T3 (BPY 14) lie¬ 
fert einen zur Lichtstärke proportio¬ 
nalen Ausgangsstrom. TI logarith- 
miert diesen Strom und wandelt ihn in 
eine Gleichspannung (maximal 0,7 
Volt) um. 

Widerstand R2 und CI filtern 
Brummspannungen aus. Der nun fol¬ 
gende OP verstärkt diese Spannung. 
Hier sind die Regler für Abtasthellig¬ 
keit (P2) und Kontrast (PI) ange¬ 
bracht. 

Transistor T2 steuert eine Leuchtdio¬ 
de an. Diese LED leuchtet in Abhän¬ 
gigkeit von der “gesehenen” Hellig¬ 
keit auf. 

Alle übrigen ICs dienen zur A/D- 
Wandlung. Der Eingang befindet sich 
an IC 1 Pin 6. Beim Aufbau sollte man 
darauf achten, daß C4, RI 1 und RIO 
nicht zu weit weg von IC2 plaziert 
werden. Man sollte die Digital-Masse 
(breites Symbol) und Analog-Masse 
(schmales Symbol) getrennt verdrah¬ 
ten und erst an C6 miteinander ver¬ 
binden. 

Die gesamte Elektronik wurde auf 
einer Lochrasterplatine von 30 mm * 


80 mm aufgebaut. Man tut sich bei der 
doppelten Platinenfläche allerdings 
weniger schwer. IC-Fassungen für 
IC2, IC3 und IC4 sind kein Luxus, 
denn die CMOS-ICs sollten erst zum 
Schluß eingesetzt werden, um deren 
Zerstörung durch statische Elektrizi¬ 
tät zu vermeiden. 

Ist die Platine fertig bestückt, wird der 
Phototransistor über ein längeres 
abgeschirmtes Kabel angeschlossen. 
Die Transistorbasis ist nicht belegt. 
Dieses Anschlußbeinchen wird ge¬ 
kürzt. 

Der Phototransistor hat eine Linse. 
Der Öffnungswinkel beträgt nur 20°. 
Daher wird schräg einfallendes Licht 
nicht gesehen. Wegen der Bildschär¬ 
fe muß man diesen Blickwinkel noch 
weitereinengen. Normalerweise wird 
mit einem Pixelabstand von ca. 1mm 
gescannt. 

Dazu baut man den Phototransistor 
z.B. in eine Kugelschreiberhülse oder 
ähnliches ein. Das Öffnungsloch an 
der Spitze sollte zwischen 0.5 und 
1 mm groß sein. Der Phototransistor 
hat dabei einen Mindestabstand von 
ca. 10mm zur Öffnung. Grundsätz¬ 
lich gilt, daß kleine Vorlagen auch 
kleine Öffnungen benötigen. Ist die 
Öffnung aber zu klein, verschwinden 
u.U wichtige Bilddetails in den Ab¬ 
tastzwischenräumen. U.U. ist dann 
der Phototransistor BPW 13 (=BPW 
14 ohne Linse) besser geeignet. 
Alternativ kann der Phototransistor 
auch in eine ausgediente Farbband¬ 
kassette eingepaßt werden. Man 
bohrt an geeigneter Stelle ein kleines 
Loch mit oben erwähntem Durch¬ 
messer in die Kassette. 

Die Abtastöffnung muß einerseits 
möglichst nahe an der Vorlage ange¬ 
bracht sein, andererseits darf sie nicht 
das Abtastlicht unterbrechen.Kunst¬ 
stoffe sind meistens etwas lichtdurch¬ 
lässig. Deshalb sollte man das Ganze 
mit schwarzem Isolierband ©um¬ 
wickeln bzw. schwarz lackieren. 
Wenn man das Öffnungsloch ver¬ 
schließt, darf die Schaltung nicht 
mehr auf das Außenlicht reagieren. 
Wenn der Phototransistor nicht genü¬ 
gend gegen Fremdlicht abgeschirmt 
wird, erhält man unscharfe Bilder. Es 
empfiehlt sich also, die oben erwähn¬ 
ten Tips beachten. 
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Bild I: Das Schaltbild 


Die Software 

Die Software wurde in GFA-BASIC 
erstellt. Das Scanner-Programm ist 
Public Domain - also für jeden zu¬ 
gänglich. 

Wie bereits erwähnt, wird die Scan¬ 
ner-Hardware am Joystick-Port be¬ 
trieben. Mein Scannerprogramm 
fragt diesen Port mit einem ganz ordi¬ 
nären “Peek”-Befehl ab. Das mag 
zwar die GEM-Spezialisten etwas 
schockieren, aber das gibt uns die 
Möglichkeit, auch andere Hardware 
durch Ändern dieser Peek-Adresse an 
anderen Ports einzusetzen. 

Zum Scannen muß man einen 
Druckertreiber laden und diesen der 
Bildvorlage entsprechend modifizie¬ 
ren. Konkret ist wohl stets die Schritt¬ 
zahl horizontal und vertikal an die je¬ 
weiligen Vorlagen anzupassen. Die 
Schrittweite (Pixelabstände) sollte 
ebenfalls auf die Vorlagengröße ein¬ 
gestellt werden. 

Wenn alle übrigen Vorbereitungen 
getroffen sind, kann die Abtastung 
gestartet werden. Auf dem Bild¬ 
schirm sieht man Zeile um Zeile ein 
unscharfes “Urbild” entstehen. Der 


Abtastvorgang kann, falls erforder¬ 
lich, jederzeit mit der ESC-Taste 
gestoppt werden. 

Wenn der Abtastvorgang beendet ist, 
wird das Urbild abgespeichert. Hat 
man das getan, kommt die Aufberei¬ 
tung. Man verändert jetzt Helligkeit, 
Kontrast, Bildschärfe und zoomt 
bzw. entzerrt das Bild. 

Danach speichert man das aufbereite¬ 
te Bild als Neochrome- (erst ab Ver¬ 
sion 2.0) oder Degas-File ab. 

Die Malprogramme Degas (und 
Neochrome) helfen, das Bild weiter 
zu verbessern. Auch Fotomontagen 
sind möglich. 

Die Bedienung des Scannerpro¬ 
gramms erklärt sich praktisch von 
selbst. Einige Punkte muß ich jedoch 
noch erwähnen: 

1. Alle Funktionen und Menü¬ 
punkte sind mausgesteuert. 
Zusätzlich kann die rechte 
Maustaste einige Menüpunkte 
direkt auf dem Bildschirm 
auswählen (z.B. aus dem 
Druckertreiber). 


2. Eingaben müssen mit der 
<Retum>-Taste beendet 
werden. 

3. Zusammen mit dem Drucker 
treiber speichert bzw. lädt 
man auch alle Bildkorrektur¬ 
daten. 

4. Der eigentliche Druckertrei¬ 
ber (im Menü ganz oben) 
schickt folgende vier unter¬ 
schiedlichen Zeichenketten an 
den Drucker: 

4.1 Zuerst wird der Drucker ini¬ 
tialisiert. Dies geschieht 
einmalig vor der Abtastung 
und stellt Geschwindigkeit, 
Vorschübe oder ähnliches ein. 
Diese Zeichenkette wird unter 
dem Menüpunkt “Initialisie¬ 
ren” eingegeben. 

4.2 Während der Abtastung wird 
für jeden horizontalen Vor¬ 
schub die 2. Zeichenkette 
(“Hör. Vorschub”) ausgege¬ 
ben. 

geht weiter... 
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4.3 Für jede neue Zeile muß ein 
Wagenrücklauf und ein Zei¬ 
lenvorschub erfolgen. Das 
erledigt die dritte Zeichenket¬ 
te. (“Vert. Vorschub”) 

4.4 Die vierte Zeichenkette soll 
den Drucker wieder in den 
normalen Betriebszustand 
zurückstellen. Sie wird unter 
“Abschluß” eingegeben. 

Um “Bildstörungen” bzw. Unschärfe 
zu verhindern, sind zwei einstellbare 
Verzögerungszeiten (Abtastung hori¬ 
zontal und vertikal) vorhanden. 

Der Treiber wird wie folgt ediert: 

<‘> Dient nur zur optischen Tren¬ 
nung einzelner Zeichen. Die 
Zeichenketten werden da 
durch etwas übersichtlicher. 
Dieses Zeichen wird später 
übergangen. 

<&> weist das Programm an, die 
nächsten zwei Zeichen als ei¬ 
nen hexadezimalen ASCII- 
Code zu betrachten. 

Beispiel: 

Eingabestring “T , ex&74'&0D” wird 
zum Ausgabestring “Text” + <Wa- 
genrücklauf>. 

Scanner - Praxis 

1. Ausleuchten der Vorlage 

Der verwendete Phototransistor 
BPY 14 reagiert auf sichtbares Licht. 
Eine gewöhnliche Tischlampe sorgt 
für ausreichende Belichtung der Vor¬ 
lage. Der Phototransistor selbst hat 
nämlich keine eingebaute Lichtquel¬ 
le. 

Beim Ausleuchten ist unbedingt fol¬ 
gendes zu beachten: 

Die Vorlage muß gleichmä¬ 
ßig ausgeleuchtet werden. Die 
Ausleuchtung wird durch 
Abtasten eines weißen Blatt 
Papiers kontrolliert. Hierbei 
stellt man in Blattmitte mit 
dem Abtasthelligkeitsregler 
an der kleinen Elektronik 


etwa 8 Helligkeitspunkte ein 
und fährt anschließend an 
die Papierränder. Die Hellig¬ 
keitswerte dürfen sich nur un¬ 
wesentlich verändern. 

Fremdlicht muß man abschir¬ 
men. Ein nahes Fenster 
beleuchtet mit. Wenn nun 
plötzlich Wolken aufziehen, 
kommt es zu einem horizon¬ 
talen Schattenstreifen. 

Reflexionswinkel unbedingt 
vermeiden. Die oftmals 
glänzenden Vorlagen 
reflektieren wie ein Spiegel. 
Schlimmstenfalls sieht unser 
Scanner dann nur noch eine 
Glühbirne bzw. Neonröhre. 

Beim Flachbettplotter hat es 
sich bewährt, die Photozelle 
um 45° zu neigen. Dadurch 
wirft sich die Photozelle 
selbst keinen Schatten. Die 
Belichtungslampe hat einen 
Abstand von ca. 80 cm und 
steht senkrecht über der 
Vorlage. 


Beim Drucker gibt es weniger 
Reflexionsprobleme, denn auf 
der gewölbten Vorlage kon¬ 



zentriert sich die Reflexion 
auf einer Linie. Die Licht¬ 
quelle (senkrecht über der 
Walze) darf wesentlich näher 
über der eingespannten 
Vorlage sein. 30 cm Abstand 
genügen zur gleichmäßigen 
Ausleuchtung. 

2. Einstellen von Abtasthelligkeit 
und Kontrast 

Wie bereits in der Schaltungsbe¬ 
schreibung erwähnt, bietet schon die 
Elektronik eine Möglichkeit die Ab¬ 
tasthelligkeit und den Abtastkontrast 
zu verstellen. Diese Einstellregler 
müssen immer der jeweiligen Vorla¬ 
ge angepaßt werden. 

Helligkeit und Kontrast verhalten 
sich genau so, wie man es von einem 
Fernsehgerät her kennt: 

Zu wenig Kontrast läßt das Bild grau 
in grau erscheinen (hellgrau war 
weiß, dunkelgrau war schwarz). Bei 
zu viel Kontrast wirkt das Bild “hart”. 
Es fehlen die Mitteltöne (dunkelgrau 
wird zu schwarz und hellgrau wird zu 
weiß). 

Der Helligkeitsregler hebt oder senkt 
die Helligkeit aller Bildinhalte 
gleichmäßig. 

Zum Angleich der Regler an die 
Vorlage geht man zunächst von der 
Mittelstellung aus. Danach muß zu¬ 
erst die Helligkeit (P2) und dann der 
Kontrast (PI) eingestellt werden. 
Man wiederholt die Einstellung von 
Helligkeit und Kontrast mehrmals, 
bis für die hellste Bildpartie (weiß) 
die Zahl 14 und für die dunkelste die 
Zahl 1 angezeigt werden. 

Die Helligkeitszahl wird rechts unten 
im Druckermenü ständig angezeigt. 
Hierbei bedeutet die Zahl 0 das dun¬ 
kelste Schwarz und die Zahl 15 das 
hellste Weiß. Es ist also auch mög¬ 
lich, den vollen Zahlenbereich auszu¬ 
schöpfen indem man die Regler auf 0 
bzw. 15 einstellt. Dabei ist es jedoch 
nicht immer einfach, die Einstellung 
zu kontrollieren, da ein Weiterdrehen 
der Regler keine Änderung (kleiner 
als Null oder größer als 15) bewirkt. 
Beim Abgleichen von Helligkeit und 
Kontrast kommt es darauf an, daß die 
Photozelle auch tatsächlich auf einen 
sehr hellen bzw. dunklen Bildpunkt 
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gerichtet ist. Hat man diese beiden 
Stellen im Bild ausfindig gemacht, 
wird während des Abgleichs immer 
zwischen diesen beiden Stellen hin 
und her gefahren, und dabei wird mit 
den Reglern auf 14 (wenn hell) und 1 
(wenn dunkel) abgestimmt. 
Erfahrungsgemäß ist der Kontrastab¬ 
gleich unkritischer als der Hellig- 
keitsabgleich. Eine Abweichung von 
+-1 Helligkeitszahl ist nicht so 
schlimm, denn das fertig abgetastete 
Bild läßt sich in Helligkeit und Kon¬ 
trast nachträglich verändern. Der 
Menüpunkt hierfür heißt “Umfang”. 

3. Einstellen der Bildformate 
(Druckertreiber) 

Vor der Abtastung muß man sich 
über die gewünschte Bildgröße auf 
dem Bildschirm im klaren sein. 

Zwar bietet meine Software auch eine 
Möglichkeit, das Bildformat nach¬ 
träglich zu verändern bzw. zu verzer¬ 
ren. Aber die besten Ergebnisse be¬ 
kommt man, wenn man das Bild etwa 
in der Originalgröße beläßt. 

Also zückt man besser vorher den 
Taschenrechner: 

Sicher weiß jeder, daß die monochro¬ 
me Auflösung 640 x 400 Pixel be¬ 
trägt. Grundsätzlich sollte man für 
etwa vier Monitorpixel einen Abtast¬ 
schritt vorsehen. Soll z.B. das Moni¬ 
torbild vollständig “gefüllt” werden, 
wären das etwa 320 Abtastpunkte 
horizontal und 200 Punkte vertikal. 
(Zwei horizontale mal zwei vertikale 
Bildpixel kommen auf ein Urpixel). 
Für den Preis eines unscharfen Bildes 
verkürzt sich die Abtastzeit, wenn 
man über dieses Verhältnis hinaus¬ 
geht. Ein Erhöhen der Abtastpixel¬ 
zahl bringt hingegen keine nennens¬ 
werte Verbesserung der Bildqualität 
mehr. 

Die USM-Routinen in meinem Pro¬ 
gramm sind bei einem Urpixel/Bild- 
pixel-Verhältnis von 1:4 optimal. 
USM bringt augenscheinlich die vol¬ 
le Schärfe wieder zurück. 

An dem folgenden Beispiel möchte 
ich erklären, wie der Druckertreiber 
eingestellt werden muß: 

Ein Bild von der Größe 100 * 



100 mm soll auf 150 * 150 
Bildschirmpixel gescannt 
werden. 


Dazu müssen 75 * 75 Abtast- 
Pixel (=Urpixel) eingescannt 
werden. 

Die Schrittweite horizontal 
beträgt 100 mm / 75 = 1.33 
mm 

Die Schrittweite vertikal 
beträgt ebenfalls 1.33 mm 

Der Druckertreiber wird ent¬ 
sprechend der obigen Vorga¬ 
be eingestellt. Horizontal- 
und Vertikalvorschub lassen 
sich auf 1.4 mm einstellen. 
Das ist nahe genug am 
Wunschwert 1.33 mm. Das 
abgetastete Bild fällt also 
etwas kleiner als gewünscht 
aus. Mit der Option “Zoom” 
kann das Wunschformat 
später genau erreicht werden. 

Da das Urpixel etwas größer 
geraten ist, benötigt man auch 
weniger Abtast-Schritte: 100 
mm / 1.4 mm = ca. 71 Schritte 

Die Schrittzahlen sind unter 
Schrittzahl horizontal bzw. 
vertikal einzugeben. 

Die Abtastöffnung der 
Photozelle wählt man etwas 
kleiner als die Schrittweite 
(Hier also ca. 1mm Durch¬ 
messer). 


Die Steuercodes für den 
Druckertreiber werden für die 
Abtastschrittweite 1,4 mm 
ediert. Diese Zeichenkette 
paßt den Drucker- (bzw. 
Plotter-) Typ an. 

4. Aufbereiten und Verschönern 
des Urbildes 

Die Abtastbilder (Urbilder) können 
auf Diskette gesichert werden. Viel¬ 
leicht befinden sich schon einige auf 
Ihrer PD-Diskette. Diese lassen sich 
betrachten, indem man sie mit “Lade 
Urbild” lädt und mit “Zeige Urbild” 
darstellt. 

Das Urbild ist noch unscharf und 
Gradation, Helligkeit und Kontrast 
entsprechen noch dem Urzustand. 
Jedes Urbild kann aber mit den fol¬ 
genden Optionen verbessert werden: 

USM breit: Normalerweise 
sind Eigaben von ca. 5 praxis¬ 
gerecht. Gibt man 0 ein, 
bleibt die Schärfe auf Urbild¬ 
niveau. “USM breit” arbeitet 
auf Urpixel-Ebene und 
verstärkt dünne Linien und 
kleine Punkte. Es funktioniert 
nur, wenn die Abtastöffnung 
der Photozelle stimmt (Sie 
muß etwas kleiner als die Ab¬ 
tastschrittweite sein). 

USM schmal: Auf Werte um 
die Zahl 5 stellen. “USM 
schmal” arbeitet auf Bild- 
schirmpixel-Ebene (also 1/4 
Urpixel) und verhindert u.a. 
die “Treppchen-Effekte” an 
diagonal verlaufenden 
Kanten. Auch hier muß die 
Breite der Abtastöffnung 
stimmen. 

Umfang: Funktioniert analog 
zu Helligkeit und Kontrast 
mit dem Vorteil, daß sich die 
beiden Einstellungen nicht 
beeinflussen. Licht wirkt 
nicht auf dunkle Bildinhalte 
und umgekehrt. Wenn Abtast¬ 
kontrast und -helligkeit ge¬ 
stimmt haben, gibt man hier 
die Zahl 0 ein, ansonsten zwi¬ 
schen +-5. 
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FÜR DEN 

PROFESSIONELLEN 

EINSATZ ! 

• Die GEM Technik wird voll ausgenutzt • Einfachste Bedienung - d. h. keine Computerkenntnisse 
erforderlich • Universeller Aufbau-problemlos auf Ihren Betrieb anpassbar • Update Service 


PBS FIBU 

PBS FIBU ist eine sehr komfortable doppelte Buchfüh¬ 
rung. PBS FIBU ist sehr universell, d. h. sämtliche Fir¬ 
mendaten, Konten etc. sind frei definierbar. 

PBS FIBU in Stichworten: 

• Mandantenfähig • Sachkonten • Personenkonten (Debito¬ 
ren, Keditoren) • variable MwSt. Sätze • Druckeran¬ 
passung • Journaldruck • Eröffnungsbilanz • Hauptbuch • 
Summen- / Saldendaten-Bilanz • GuV • Umsatzsteuer¬ 
auswertung • Kontenblätter - Mahnwesen • u. v. m. 

PBS FIBU für alle ATARI ST DM 498,~ 

PBS FIBU mandantenfähig 

nur für Festplatte DM 598,» 


PBS FAKT 

PBS FAKT ist eine völlig frei definierbare Fakturierung 
und somit auf Ihre Bedürfnisse anpassbar. Offene Pos¬ 
tenverwaltung, Mahnbuchhaltung sind bei diesem komfor¬ 
tablen Programm genauso selbstverständlich wie Ange¬ 
botserstellung, Rechnungsschreibung und Mahnungen. 

PBS FAKT In Stich Worten: 

• Artikel- Kunden- Lieferantenverwaltung • frei definierba¬ 
re Firmendaten • Druckeranpasssung • offene Postenver¬ 
waltung • Rechnungserstellung • Angebotserstellung ■ Mah¬ 
nungsschreibung ■ Stücklisten • Preislisten • Bestellvor¬ 
schläge • Kunden- Lieferantenlisten • Artikel- Kunden- 
Lieferantenstatistiken • Inventur - u. v. m. 

PBS FAKT für alle ATARI ST DM 248,-- 


PBS EINNAHMEN-ÜBERSCHUSSRECHNUNG 

PBS EINNAHMEN-ÜBERSCHUSSRECHNUNG ist für Anwender geeignet, die nicht zur doppelten Buchführung verpflich¬ 
tet sind. Das Programm ist sehr einfach in der Bedienung und bietet neben den gesetzlich vorgeschriebenen Funktionen noch 
verschiedene Auswertungen, die Ihnen einen Überblick über Ihren Betrieb ermöglichen. 

PBS- EINNAHMEN-ÜBERSCHUSSRECHNUNG in Stichworten: 

Bankkonten • Kassenkonten • Sonstige Konten • Firmendaten ■ Druckeranpassung • Buchen ■ Banken und Kasse automatisch • 
Journaldruck • Saldenlisten • Bilanz • Kontenblätter • Kassenliste • Bankliste • Hauptbuch • GuV • Umsatzsteuerauswertung. 

PBS EINNAHMEN-ÜBERSCHUSSRECHNUNG für den ATARI ST DM 198,» 


PBS LAGER 

PBS LAGER erspart Ihnen einige Arbeitsstunden, 
außerdem gibt IHnen das Programm genaue Auskunft 
über Ihre Artikel und Lieferanten, somit können Sie 
Ladenhüter schnell erkennen. Funktionen wie Inventur 
oder Bestellvorschläge sind bei PBS LAGER 
selbstverständlich. 

PBS LAGER In Stichworten: 

• Artikel- und Lieferantenverwaltung • Druckeranpass¬ 
sung • Stücklisten • Preislisten • Etiketten • Bestellvor¬ 
schläge • Lieferantenlisten • Artikel- und Lieferantensta¬ 
tistik • Inventurliste • Inventurbewertung • u. v. m. 

PBS LAGER für alle ATARI ST DM 198,- 


PBS ADRESS 

PBS ADRESS eignet sich hervorragend für die Pflege 
von Kunden-und sonstigen Adressbeständen. Mühseliges 
Suchen von Karteikarten, Abtippen von Adressen ge¬ 
hört mit PBS ADRESS der Vergangenheit an. 

PBS ADRESS In Stichworten: 

• Auswertungen nach Kundennummer' PLZ- Namen • 
Adresslisten • Etiketten ein- und zweibahnig • ASCII- 
Schnittstelle für Serienbriefe 

PBS ADRESS für alle ATARI ST DM 99,» 

RAAB-Bürotechnik - Friedhofstr. 36 
8605 Hallstadt - Tel.: 0951 / 20 00 55 
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HARDWARE 


Gradation: Ähnlich wie Um¬ 
fang. Diese Einstellungen 
wirken aber nur auf ganz 
bestimmte Helligkeitsberei¬ 
che. Normalerweise stellt 
man 0 ein. Falls erforderlich, 
gibt man Werte bis +-5 ein. 

Positive Zahlen erhöhen stets 
die Helligkeit und umgekehrt. 

Die Gradation verändert 
hellere, mittelhelle und 
dunkle Grautöne unabhängig 
voneinander. 

Ich wünsche noch viel Spaß beim 
Basteln und hoffe, daß mein kleines 
Programm Verwendung findet. 

Der Autor selbst 


Ein Listing des Source-Codes kann 
man bei mir anfordem (ca. DM 20,-). 

Ralf Bager 

Friedensstr. 10 b 

6082 Mötfelden-Walldotf 

PS: Es gibt bekanntlich verschiedene 
TOS-Versionen. Deshalb ist es z.B. 
beim neuen Blitter-TOS oder beim 
uralten Disketten-TOS erforderlich, 
die “Joystick Peek-Adresse” zu än¬ 
dern. Sonst tappt Dein Scannner im 
Dunkeln. Man kann diese Funktion 
mit einem normalen Joystick über¬ 
prüfen. 



1 

Dim T$(65),Dr$(65) 


58: 

On Me Gosub About 

2 

Dim W(65) 


59: 

: On Me-10 Gosub N,Drlad,Urlad,N,Drspei,Urspei,Binspei, 

3 

Dim Wert%(256) 



Neospei/Degspei 

4 

@Men init 


60 

On Me-20 Gosub Kopie/N,Zin/N/N/N/Txin/Txin/Txin/Txin 


@Full init 


61 

On Me-30 Gosub Zin/Zin/N/Zin/Zin/N/N/Zoom/N/Zin 

6 

@Anz init 


62 

On Me-40 Gosub Zin,N/Zin/Zin/Zin,N/Zin/Zin 

7 

@Do var 


63 

On Me-50 Gosub BildcalC/Scan/N/N/N/Par_bild # Scan_bild/ 

8 

Urbild$=Space$(32767) 



N/Encfe 

9 

Bild$=Space$(32767) 


64: 

Menu Off 

10 

Eflag=0 


65: 

Return 

11 

W (23)=3593 


66: 

' 

12 

T$ (23)=Str$(W(23)) 


67: 

' 

13 

% 


68: 

Procedure About 

14 



69: 

Local A 

15 

Start: 


70: 

Alert 0/"* * SCANNER* *|C. 1987|Ralf Bager/ 

16 

@Tx 



Mörfelden"/l, "OK", A 

17 

Menu RolloSO 


71 

Return 

18 

On Menu Gosub Menue 


72 


19 



73 


20 

> 


74 

Procedure Drlad 

21 

Do 


75 

Local Du$ 

22 

On Menu 


76 

Fileselect "\*.DR1", ""/Nam$ 

23 

If Menu (12) =2 


77 

If Nam$<>"" 

24 

Fepeat 


78 

If Exist (Nam$) 

25 

On hfenu 


79 

Open "I", #l,Nam$ 

26 

Until Menu (12) =0 


80 

For 1=10 To 65 

27 

@Mausklick(Menu(10)/Menu(11)) 


81 

If 1034 And 1035 

28 

Endif 


82 

Line Input #1,T$(I) 

29 

Joy2=Peek(W(23)) 


83 

Else 

30 

If Joy2<>Joyl 


84 

Line Input #l,Du$ 

31 

Joyl=Joy2 


85 

Ebdif 

32 

Print At(58 / 24) ; Joyl ;" " 


86 

Next I 

33 

Endif 


87 

Close #1 

34 

Loop 


88 

Else 

35 

% 


89 

Alert 3, "Datei nicht vorhanden !| | ",l,"0K",Du 

36 

X 


90 

Endif 

37 

Procedure Mausklick(X,Y) 


91 

Ebdif 

38 

Menu Off 


92 

@Tx 

39 

local I 


93 

Return 

40 

X=Int (X/8) 


94 


41 

Y=Int(Y/16)+1 


95 


42 

For 1=27 To 65 


96 

Procedure Urlad 

43 

If Anz%(0/I)+38>X And Anz%(0,I)<X And Anz%(l,I)=Y 


97 

Local Len 

'44 

Mrecpl 


98 

Fileselect "\*.UR1","",Nam$ 

45 

@Menue 


99 

If Nam$<>"" 

46 

Mreq=0 


100 

If Exist (Nam$) 

47 

Endif 


101 

Urbild$=Space$(32767) 

48 

Next I 


102 

Bload Nam$,Varptr (Urbild$) 

49 

Return 


103 

Len=Cvl (Left$ (Urbild$, 4)) 

50 



104 

T$ (34) =Mid$ (Urbilds, 5,4) 

51 

, 


105 

T$ (35) =Mid$ (UrbildS, 9,4) 

52 

Procedure Menue 


106 

Urbild$=Mid$ (UrbildS, 13, Len) 

53 

If MrecpO 


107 

Else 

54 

Me=Menu(0) 


108 

Alert 3,"Datei nicht vorhanden !| I ",l,"OK",Du 

55 

Else 


109 

Endif 

56 

Me=Mreq 


110 

Endif 

57 

Ebdif 


111 

@Tx . 

geht weiter... 
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® GALACTIC® 


Modulatoren für jeden Zweck 


HF (Fernsehanschluß) 

MOD 1, internes Gerät zum Einbau in 260/520/1040 160 DM 

MOD 2, externes Gerät zum außen Anstecken, alle Fernseh¬ 
farben werden dargestellt, Ton kommt aus dem Fernseher 170 DM 

AV (Videoanschluß für FBAS) 

MOD 1a, wie MOD 1, aber nur mit Videoausgang 130 DM 

MOD 2a, wie MOD 2, ebenfalls nur FBAS-Ausgang 140 DM 


Die Modelle MOD2/MOD 2a sind für 25 DM Aufpreis auch mit 
integrierter Monitorumschaltbox lieferbar! 

1 MB RAM, auch für 520 STM 

RAMs einzeln geprüft, schnelle Montage fllir 169 DM 

Auf Anfrage auch steckbar 

ln Vorbereitung: 1/2/4-MB-Erweiterungen, konfigurierbar. Preis und Lieferzeit auf Anfrage! 

UNSERE PROGRAMME: 

DEEP THOUGHT 1.1 

Das sensationelle Schachprogramm aus Deutschland. Neue, verbes¬ 
serte Version. Spielstarker Algorithmus, frei programmierbare Eröff¬ 
nungsbibliothek (bis 66.000 Positionen), echtes Blitzen möglich. Nach 
Aussage von Ligaspielern: Effektiv das beste r\*M 

Programm für Mikrocomputer! flUT 69 DM 

lilAtt XL 

Das Corewars-Programm für Ihren ST. (Siehe ST-Computer 11/87 für 
Details). Lassen Sie die Viren (kontrolliert) in Ihren Computer. Voller 
Weltmeisterschaftsstandard ’86. Integrierter Editor/Assembler, sehr 
schnell, gutes Handbuch. Dieses Programm wurde ASM-Hit im »Ak¬ 
tuellen Software Markt 12/87! 1111T 89 DM 


Stachowiak, Dörnenburg und Raeker GbR 

Burggrafenstr. 88 - 4300 Essen 1 • ® (0201) 27 32 90/71 0 18 30 


ACHTUNG HANDWERKER! 



SIE SUCHEN EINFACHE UND PREISWERTE COMPUTER¬ 
LÖSUNGEN FÜR IHREN BETRIEB ??? 

HAR0FAKT- 698.- 

EINFACHSTE ERSTELLUNG VON ANGEBOTEN, RECHNUNGEN 
UND MAHNUNGEN. EINFACHE KALKULATION INTEGRIERT. 
KUNDEN- UND ARTIKELVERWALTUNG - SUPERLEICHT !!! 

HAR0MASS- 698.- 

AUFMASS NACH FORMBLATT AUF DEM COMPUTER ! 
VOLLAUTOMATISCHE BERECHNUNG - FORMULARDRUCK ! 

zu be- UADDCn CT FLIEDERSTRASSE 2 

STELLEN BEI: HAKUdUM ^.SCHNURPFUNGEN 


, - ( Ecosoft Economy Software AG ) -s 

Postfach 1905, Abt. AI 7, 7890 Waldshut, Tel. 07751-7920 

Prüf-Software und 
Frei-Programme (fast) gratis 

♦ Größtes Angebot Europas: Über 3'000 Disketten für IBM-PC/ 
Kompatible, Macintosh, Amiga, Atari ST, C64/128, Apple II. 

♦ Viele deutsche Programme, speziell für Firmen, Selbständige, 
Privatpersonen, Schulen. 

♦ Software gratis, Sie bezahlen nur eine Vermittlungsgebühr von 
DM 14.40 oder weniger je Diskette. 

♦ HOTLINE: Tel. Anwenderunterstützung (3 Techniker von 8-18 Uhr). 

Verzeichnis gratis 

Bitte Computermodell angeben. 

V___/ 



Preissenkung 


für Büro-Software 


BS-Handel 


| Für Atari-ST. Die Software für kleine und mittel¬ 
ständische Unternehmen. Über 1200 Installationen in über 80 
Branchen. Alter Preis DM 949- Neuer Preis DM 498.- 


Für Atari-ST. Mandantenfähige Finanzbuchhaltung mit 
Datenübernahme von BS-Handel. Alter Preis DM 1149- 

Neuer Preis DM 598.- 


BS-Timeadress 


Für Atari-ST. Verwaltet Adressen, Projekte und 


Termine. Alter Preis DM 295.- 


Neuer Preis DM 


149.- 


Alle Programme von Bavaria-Soft werden ohne Kopierschutz ge¬ 
liefert. Mit deutscher Bedienungsanleitung. Mit Ringbuch und 
Schuber. 

Produkte von Bavaria-Soft erhalten Sie über den Fachhandel oder 
direkt von Bavaria-Soft 

Otto-Hahn-Straße 25 D-8012 Ottobrunn bei München 

Telefon 089 / 609 78 38 Telex 5 218 411 


ri 


Bestell/Info-Coupon 


Atari-ST 


Hiermit bestelle ich per NachnahmeA/orauskasse (zzgl. 10 DM 
Porto/Verpackung): 

Produkt 

Name 

Straße 

PLZ/Ort 

Bitte senden Sie mir Unterlagen für 
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HARDWARE 


197 

For Y=0 To (W(35)-l) 

198 

For X=0 To (W(34)-1) 

199 

P=(Y*W(34)+X) /2 

200 

B=Asc (Mid$ (Urbild$, Int (P) , 1) ) 

201 

If P-Irrt (P)>0.1 

202 

B=(B And 240)/16 

203 

Else 

204 

B=B And 15 

205 

Erdif 

206 

OPutpix(X*2,Y*2,2, 2, B*16) 

207 

Next X 

208 

Next Y 

209 

@Rahmung(1) 

210 

Repeat 

211 

A$=Inkey$ 

212 

Until A$=Chr$ (27) 

213 

Cls 

214 

Menu Rollo$() 

215 

@Tx 

216 

Return 

217 

' 

218 

' 

219 

Procedure Par_bild 

220 

Cls 

221 

Menu Rollo$() 

222 

@Tx 

223 

Return 

224 

' 

225 

' 

oo 


221 

' ab hier konroen untergeordnete Proceduren 

OOQ 


229 


230 

' 

231 

Procedure Tx 

232 

Local M 

233 

For M=0 To 65 

234 

If Anz%(0,M)>0 

235 

@Str_clean (RolloS (M)) 

236 

Print At (Anz%(0 / M) ,Anz%(l,M)) ;Rueck$;":" 

237 

Print At (Anz% (0,M) +18, Anz% (1,M)) ;T$ (M) ; 

238 

Endif 

239 

Next M 

240 

Return 

241 

' 

242 

' 

243 

Procedure St r_clean(A$) 

244 

Local B$, I 

245 

For I=Len(A$) To 1 Step -1 

246 

B$=Mid$ (A$, 1,1) 

247 

Exit If B$<>"-" And B$<>" " And B$<>":" 

248 

Next I 

249 

A$=Left$(A$,I) 

250 

If Left$ (A$, 1)<>"-" 

251 

Rueck$=Left$ (A$+" .", 17) 

252 

Else 

253 

Rueck$=A$ 

254 

Endif 

255 

Return 

256 


257 

' 

258 

Procedure Do_var 

259 

Local I,K, A$,B$,C$ 

260 

Eflag=l 

261 

If W (34)*W(35)/2>32767 

262 

Error 10 

263 

Endif 

264 

For 1=0 To 65 

265 

A$=Rollo$ (I) 

266 

B$=T$(I) 

267 

If Len(A$)>0 And Anz%(0,I)<>0 And Left$(A$, 1) 

268 

If I<27 Or I>30 

269 

W(I)=Val(B$) 

270 

Else 

271 

Dr$ (1)="" 

272 

For K=1 To Len (B$) 

273 

C$=Mid$ (B$, K, 1) 

274 

If C$0""' 

275 

If C$o"&" 

276 

Dr$(I)=Dr$(I)4C$ 

277 

Else 

278 

Dr$ (I) =Dr$ (I) +Chr$ (Val (Mid$ (B$, K, 3))) 

279 

K=K+2 

280 

Ehdif 

281 

Ebdif 

282 

Next K geht weiter... 


112 

Return 

113 


114 

' 

115 

Procedure Urspei 

116 

Local Len 

117 

Fileselect "\*.URI",Nam$ 

118 

If Nam$<>"" 

119 

Len=Len(Bild$) 

120 

Urbild$=Mkl$(Len(Urbild$) ) +Right$(" "+T$(34) , 4)+ 

Right$ (" "+T$(35) , 4) +Urbild$ 

121 

Bsave Nam$, Varptr (Urbild$), Len+12 

122 

Urbild$=Mid$ (Urbild$, 13, Len) 

123 

Endif 

124 

Return 

125 

' 

126 

' 

127 

Procedure Drspei 

128 

Fileselect "\*.DR1","",Nam$ 

129 

If Nam$<>"" 

130 

Open "0",#1,Nam$ 

131 

For 1=10 To 65 

132 

Print #1,T$(I) 

133 

Next I 

134 

Close #1 

135 

Endif 

136 

Return 

137 

' 

138 

' 

139 

Procedure Kopie 

140 

@A11 

141 

If Erg=2 

142 

Hardcopy 

143 

Endif 

144 

Return 

145 


146 

' 

147 

Procedure Scan 

148 

Local A$ 

149 

Cls 

150 

0 A11 

151 

If Erg=2 

152 

@Disl 

153 

@Do_var 

154 

@Full_lut 

155 

Cls 

156 

@Do_scan 

157 

Endif 

158 

Repeat 

159 

A$=Inkey$ 

160 

Until A$=Chr$ (27) 

161 

Cls 

162 

Menu Rollo$ () 

163 

@Tx 

164 

Return 

165 

' 

166 

' 

167 

Procedure Ende 

168 

Menu Kill 

169 

End 

170 

Return 

171 

' 

172 

' 

173 

Procedure Zin 

174 

Local M 

175 

M=Me 

176 

0Textedit(Anz%(0,M)+18,Anz%(1,M) , 4 , T$(M) , -1) 

177 

T$(M)=Rueck$ 

178 

Return 

179 

' 

180 

' 

181 

Procedure Txin 

182 

Local M 

183 

M=Me 

184 

@Textedit(Anz%(0,M)+18,Anz%(1,M) , 60,T$(M) , 0) 

185 

T$(M)=Rueck$ 

186 

Return 

187 

' 

188 

' 

189 

Procedure BiIdeale 

190 

Local X, Y,P,B, A$ 

191 

Cls 

192 

@Disl 

193 

@Do_var 

194 

@Full_lut 

195 

Cls 

196 

• @Rahmung(0) 
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SOFTWARE FÜR ST 

lOTh Frame 
2218 Baker Street 
3D Galaxy 
Addicta Ball 
Advanced Art Studio 
Airball 
Altair 

Alternate Reality 
City 

Amazon 

AnnalsofRome 

Arena 

Arkanoid 

Astenxim 

Morgenland 

Autoduel 

Backlash 

Bad Cat 

Balance of Power 
Ballyhoo 
Barbanans 
Baseball Gamestar 
Blue War 

Blueberry und das 

Gespenst 

Borrowed Time 

Boulderdash 

Construction Set 

Brataccas 

Brian Clough 

Football 

Bureaucrazy 

Cards 

Championship 

Baseball 

Championship 

Football 

Championship 

Wrestling 

Chopper X 

Colonial Conquest 

Crafton 


66.60 

47.90 

54.10 

47.90 
76.60 
71.20 
54.10 

76.60 
54.10 

74.30 

88.30 

38.60 

61.90 

58.80 

52.60 
55.70 
91.00 
91.00 

66.60 
76.60 

54.10 

61.90 

61.90 

71.20 

105.40 

76.60 

99.10 
46.40 

71.20 

76.60 

71.20 

27.80 

85.20 

62.30 


Creator 
Crystal Castles 
Cutthroats 
1 Deathstrike 
H Deep Space 
Defenderofthe 
Crown 
Eden Blues 
m Electronic Pool 
PExtensor 
H Extravaganza 
ff Fahrenheit 451 
II Fantasie 2 
m Fire Blaster 
|| Flight Simulator 2 
Football Fortunes 
Gato 
Gauntlet 
Gnome Ranger 
Gold Runner 
Golden path 
pGuüdofThieves 
P Hacker 
H Hacker 2 
t- Hades Nebula 
Hardball 

|| Hitchhikers Guide 
if Hollywood Hi Jinx 
m Hollywood Poker 

Hunt for Red October 66.60 
| :v Impact 43.30 

'Indiana Jones 52.60 

I Infidel 91.00 

International Karate 62.30 
|| Into the Eagles Nest 58.80 
JewelsofDarkness 62.30 
p Jupiter Probe 
| Karate Kid 2 
| Karate Master 
I Kings Quest 3 
Kings Quest 3er Pack 122.40 
| Kmght Qrc 58.80 

| Leaderboard 71.20 

I Leaderbord 

Toumament 33.60 


66.60 

71.20 

57.20 

62.30 
35.50 
54.10 
89.80 

30.90 
138.00 

71.20 

85.20 
66.60 

43.30 

71.20 

57.20 

76.60 

61.90 

71.20 

57.20 

66.60 

88.30 
88.30 

30.90 


43.30 

66.60 

34.00 

76.60 


LeatherGoddess 

ofPhobes 

Liberator 

Little Computer 

People 

Luky Luke 

Nitroglyzerin 

Lurking Horror 

MacAdam Bumper 

Meanl8Golf 

Mercenary 

Metro Cross 

Metropolis 

MGT 

Mind Forever 
Voyagmg 
Mindshadow 
Mission Elevator 
Moonmist 
Mortville Manor 
MouseTrap 
Music Studio 
NinePnncess 
m Amber 
Ninja Mission 
Ogre 
Outcast 

Passengers on the 

Wind 

Pawn 

Perry Mason 
Phantasie 2 
Phantasie 3 
Pinball Factory 
Pirates of the 
Barbery 
Planetfall 
Plutos 

Pool/Shuffle Board 
Portal 

Psion Chess 
QBall 
Rana Rama 
Rings of zilfin 
Roadrunner 
Roadwar2000 
Roadwar Europe 
Rogue 

Sill 


82.10 

42.20 

105.40 

57.20 

88.30 

71.20 
91.00 
66.60 
66.60 
35.50 
71.20 

105.40 

61.90 
58.80 
91.00 
71.20 

43.30 
105.40 

54.10 

30.90 

74.30 

30.90 

69.70 

76.60 

54.10 

76.60 

66.60 
66.60 

35.50 

91.00 

43.30 

47.90 
105.40 

71.20 

57.20 
58.80 
66.60 
66.60 
66.60 
66.60 
76.60 

II 


Scenery Disk 2 
Seastalker 
Sentinel 
Shanghai 
Shuttle 2 
Sidewalk 
Silicon Dreams 
Space Pilot 
Space Quest 
Spiderman 
Star Raiders 
Starglider 
Stationfall 
Stnke Force Harrier 
Stnp Poker 
Sub Battle 
Super Cycle 
Super Huey 
Superspnnt 
Suspect 
T.N.T. 

Taipan 

Tass Time 

Tee up Golf 

Terrorpods 

Thai Boxing 

The Black Cauldron 

TheGuildofThieves 

Thunder 

Time Bandit 

Time Blast 

Tracker 

Trailblazer 

Tnnity 

Turbo GT 

Twoon Two 

Basketball 

Typhon 

Ultima 2 

Ultima 3 

Vegas Gambier 

Wanderer 

Warzone 

Winter Games 

Wishbringer 

Witness 

World Games 

World Sertes 

Baseball 

Xevious 

Zorkl 


100.60 

91.00 

58.80 

71.20 

66.60 

58.80 

62.30 

47.90 

76.60 

62.30 

43.30 
71.20 

88.30 

71.20 

57.20 

66.60 

71.20 

62.30 

43.30 
91.00 

52.60 
51.00 
71.20 
43.30 

66.60 

43.30 
71.20 
71.20 

119.70 

91.00 

33.60 

74.30 
63.50 

105.40 

46.40 

71.20 

51.00 

91.00 

71.20 

52.60 
71.20 

30.90 
71.20 
91.00 
91.00 
71.20 

52.60 


|3D Video Studio 139.40 
Advanced Art Studio 74.30 
I Alternative Keybord 
Expander 
J ArtDirector 
•ft Assembler 
JBCPL 

|| Cambridge Lisp 
% Comeman 
DB Calc 
|f FilmDirector 
Ü Flash Back 
Jt Fleet Street 
| Publisher 
GSTC-Compiler 
GST*Editor 


348.90 
153.50 
45.00 

| Introduction to Logo 60.50 
K-Ministral 77.40 

K-Spread 92.90 

K-Communication 
VS. 2.0 128.60 

| K-Graph 103.80 

K-Ram 77.40 

K-Resource 103.80 

K-Seka 128.60 

K-Switch 77.40 

Lattice C 

Development 294.50 

Make 144.10 

MCC Pascal 263.50 

MightyMail 66.60 

Pascal Development 
VS. 2 262.10 

Personal Money 
Manager 97.60 

1111 


Pro Sound Designer 
Pro Sprite Designer 
T.R.I.M. 

The Animator 
GFA Basic 
Interpreter 
GFA Basic Compiler 
GFA Vektor 
GFADraft 
GFA Draft plus 
GFA Objekt 
GFA Starter 
GFA Basic 68881 
GFA Artist 
GFA Movie 
GFA Publisher 
Ist Lektor 
Ist Spooler 
IstWordplus/ 

Ist Mail 
Adimens ST 
AdiTalkST 
Ist Mail 
ST Pascal Plus 
Ist Terminal 
Star Comm 
Easy Draw 
Superbase 
DB Man 
Net-RamDisk 
Protext 
Acta ST 
STPaint 


99.00 

99.00 

99.00 

198.00 

349.00 

198.00 

59.00 

349.00 

149.00 

149.00 

398.00 

149.00 

99.00 

199.00 

199.00 

189.00 

99.00 

249.00 

129.00 

79.00 

249.00 

249.00 

399.00 

49.00 

148.00 

79.00 

99.00 


79.00 


BÜCHER 

GFA Basic Buch 
GFA Handbuch 
TOS8GEM 49.00 

GFA Basic 

Programmierung 49.00 

I I I I I I 


Obere 

Münsterstraße 33-35 
4620 

Castrop-Rauxel 
S(02305) 37 70 0 
BTX 023053770 

Laden- 

Geschäftszeiten: 
Montag - Freitag 
9.00- 13.00 Uhr 
15.00 - 18.30 Uhr 
Samstag 
9.00 - 14.00 Uhr 
Langer Samstag 
9.00 - 18.00 Uhr 

Versand 

per Nachnahme 
zuzügl. Versand¬ 
kosten. 

Oder Vorkasse auf 
Psch.-Konto 
Nr. 69422-460 
PschA Dortmund 
zuzügl. 5,- DM 
Versandkosten. 
Ausland nur per 
Vorkasse auf 
Psch.-Kto. zuzügl. 
10,- DM Versand¬ 
kosten. 

Bitte bei allen 
Bestellungen 
Computertyp 
angeben! 


O Senden Sie mir bitte Ihren Katalog 
(2,- DM in Briefmarken liegen bei) 

O Hiermit bestelle ich per Nachnahme: 
O Incl. kostenlosem Katalog 


Vorname. Name 
Straße. Hausnummer 


PLZ. Ort 
Telefonnummer 


Datum. Unterschrift 



























HARDWARE 


283: Ehdif 

284: Endif 

285: Next I 

286: Eflag=0 

287 : Return 

288: 

289: ' 

290: Procedure Do_scan 

291: @Rahmung(0) 

292 : Urbild$=Space$(Int((W(34 ) *W(35)+1)/2)) 

293: Local A,B,X,Y,Z%,A$ 

294 : Lprint Dr$(27) ; 

295: 2%=0 

296: For Y=0 To (W(35)-l) 

297: For X=0 To (W(34)-l) 

298: A=B 

299: @Delay(W(31)) 

300: B=Peek(Int (W(23))) 

301: lprint Dr$(28) 

302: If Z%>=1 

303: Z%=0 

304: Mid$(ürbild$,(Y*W(34)+X)/2)=Chr$((A+B*16) 

And 255) 

305: Else 

306: Inc Z% 

307: Endif 

308: @Putpix(X*2, Y*2, 2, 2, B*16) 

309: A$=Inkey$ 

310: Exit If A$=Chr$ (27) 

311: Next X 

312: Lprint Dr$(29) 

313: @Delay(W(32)) 

314: Exit If A$=Chr$(27) 

315: Next Y 

316: Lprint Dr$(30) 

317: @Rahmung(l) 

318: Return 

319: 

320: 

321: Procedure Putpix (X, Y,Dx,Dy, H) 

322: Deffill l,Muster$(Wert%(H)) 

323: Pbox X,Y, X+Dx-1,Y+Dy-1 

324 : Return 

325: ' 

326: ' bewertet die Füllmuster nach Helligkeit und erzeugt v 

Wfert%() 

327 : Procedure Full_lut 

328: Local H, A, Byte,Bit ,M, A$ 

329: For A=0 To 256 

330: Wert% (A) =300 

331: Next A 

332: For M=0 To 32 

333: Exit If Muster$ (M) ="" 

334: H=0 

335: For Byte=l To 32 

336: A=Asc (Mid$ (Must er $(M), Byte, 1)) 

337 : A$=Right$("00000000"+Bin$(A) , 8 ) 

338: For Bit=l To 8 

339: If Mid$(A$,Bit,l)="0" 

340: H=H+1 

341: Ehdif 

342: Next Bit 

343: Next Byte 

344: Wert%(H)=M 

345: Next M 

346: Repeat 

347: A=1 

348: For H=1 To 255 

349: If Wert%(H)=300 And Wert%(H+l)<>300 

350: Wert%(H)=Wert%(H+l) 

351: AfO 

352: Endif 

353: If Wert%(H)=300 And Wert%(H-l)<>300 

354: Wert%(H)=Wert%(H-l) 

355: A=0 

356: Inc H 

357: Endif 

358: Next H 

359: Until A=1 

360: Return 

361: ' 

362: 

363: Procedure All 

364: Alert 2,"Ist der Drucker bereit I und die Anpassung 

gemacht ?", 2 , "Abbruch|Start" , Erg 


365: Return 

366: 

367: ' 

368: Procedure Disl 

369: Print At(30,ll);" ******************** 

370: Print At(30,12);" *** Bitte warten *** 

371: Print At(30,13);" ******************** 

372: Return 

373: 

374: ' 

375: ' - 

376: 'Ab hier kommen Lader für div Feld-Variablen 

377: ' - 

378: 

379: ' liest menu in Rollo$() 

380: Procedure Men_init 

381: Dim Rollo$(67) 

382: For 1=0 To 65 

383: Read Rollo$(I) 

384: Exit If Rollo$(I)="***" 

385: Next I 

386: Let Rollo$(I)="" 

387: Let RolloS(1+1)="" 

388: Return 

389: ' menu text 

390: Data Desk, About SCANNER 

391: Data - 

392: Data accl,acc2,acc3,acc4,acc5,acc6, "" 

393: Data I/O ,-lade- , Druckertreiber , Ur-Bild , 

-speichere- 

394: Data Druckertreiber, Ur-Bild, Bild (BIN), Bild (NEO) , 

Bild(P01) 

395: Data - , Hardcopy,- , 

Joyst.-Peek, "" 

396: Data Abtastung , -Druckertreiber"-, Initialisierung , 

Horiz . -Vorschub 

397: Data Vert .-Vorsch;CR , Abschlu_, Timer Horizontal, 

Timer Vertikal, -Schrittzahl— , Horizontal, 

Vertikal, "" 

398: Data Aufber., Zoom,-USM- , breit, schmahl, 

-Gradation-, Licht, Mittelton, Schatten 
399: Data -Grundwerte-, Licht, Schatten,"" 

400: Data Starte, Aufbereitung , Abtastung,"" 

401: Data Sonstiges , -zeige- , Parameter , Bild , 

- , Ende ,"" 

402: Data *** 

403: 

404: ' liest Füllmuster in Muster$() 

405: Procedure Full_init 

406: Dim MusterS(32) 

407: Dim Zeil$(15) 

408: Local A$,V,N,Z 

409: For N=0 To 32 

410: Read A$ 

411: Exit If A$="***" 

412: For V=0 To 15 

413: Read A$ 

414: Exit If A$="*" 

415: Repeat 

416: A$=A$+A$ 

417: Until Len(A$)>=16 

418: Zeil$ (V) =Left$ (A$, 16) 

419: Next V 

420: For Z=V To 15 

421 : Zeil$(Z)=Zeil$(Z-V) 

422: Next Z 

423: MusterS(N)="" 

424: For Z=0 To 15 

425: MusterS(N)=Muster$(N)+Mki$(Int(Val("&X"+ 

2eilS(Z)))) 

426: Next Z 

427: Next N 

428: Return 

429: ' Hier beginnen die Füllmuster-Daten 


430: 

Data 

★ ★ 

431: 

Data 

0 

432: 

Data 

★ ★ 

433: 

Data 

0100 

434: 

Data 

0 

435: 

Data 

0001 

436: 

Data 

0 

437: 

Data 

* * 

438: 

Data 

0100 

439: 

Data 

0001 

440: 

Data 

* * 


geht weiter... 


^ I»»/. 
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Zwei oder* lieber vier 
Megabyte RAM 
gefällig ? 


! Voilä ! 


Passend für alle Atari Computer mit den Typenbezeichnungen 
260 ST, 520 ST, 520 ST + , 520 STM, 1040 STF 

bieten wir Ihnen Arbeitsspeicher satt mit überzeugenden Qualitätsvorteilen : 


- Die Erweiterung ist in drei Ausbaustufen erhältlich 

- Der Einsatz von Stecksockeln ermöglicht jederzeit den Ausbau auf bis zu 4- MB 

- Sie müssen keine Leiterbahnen bzw. Widerstände durchtrennen 

- Oie ausgeklügelte Einstecktechnik macht bei der Montage den Lötkolben Überflüssig 


4 MB Basisplatine mit 0 MB bestückt 
4 MB Basisplatine mit 2 MB bestückt 
4 MB Basisplatine mit 4 MB bestückt 
passender Steckadapter für 1040 STF 
passender Steckadapter für alle übrigen 

Megabit-RAM's (16 Stück) 


DM 238.50 
DM 930- 
DM 1699.90 
DM 57- 
DM 64- 
DM 798.- 


Aufgrund des schnellen Wechsels am Speichermarkt können sich die Preise geändert 
haben; fragen Sie daher bitte die aktuellen Tagespreise telefonisch an. 



MEGA - CLOCK 

Echtzeituhr für alle "kleinen" ST 



- funktionsidentisch zur Uhr im MEGA ST 

- mit dem neuen Blitter - TOS ist der Betrieb ohne Software möglich 

- Software für das alte TOS wird mitgeliefert 

- langzeitbatteriegepuffert 

- kann ebenfalls ohne Löten eingebaut werden 

- moderne SMD-Technik sorgt für geringsten Platzbedarf 


MEGA - Leistung , mini - Pr*. dm 96.90 


Die Lieferung erfolgt per Nachnahme zuzüglich DM 6,50 Versandkosten. 
Anfragen und Bestellungen richten Sie bitte an : 

im mbi Kaiserstraße 5-7 

5657 Haan 1 

Q G°eng d Tel. 02129 / 50819 




So {iwate 



' ser ef 


den 
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mge reC ' 
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Knüller: nur 289.- 

kostet die neue 3.5”- Einzelstation mit dem NEC FD1037A, 
anschlußfertig, im Metallgehäuse (28* 105* 165mm), mit Steckernetzteil, 
doch die Preiswerten der Luxusklasse gibt es weiterhin: 


Garantiert kompatibel - anschlußfertig mit Kabel - eingebautes Netzteil 
leise und zuverlässig - farblich passendes, formschönes Profi-Metallge- 
häuse - automatische Netzanschaltung - Industriestecker • geprüft auf 
83 Spuren zu 10 Sektoren (830 KB) - **** Jetzt 12 Monate Garantie ****. 

Einzelstation, 720 KB, Laufwerk: NEC FD 1036 mit grauer Blende, _ . - n- 7 Q 
gummigelagertes Laufwerk, Netzkontroll-Leuchte, 42 x 106 x 230 mmUlVI 
ESN/A: dto. mit Ausgangsbuchse für Laufwerk B DM 399 - 

ESN/AB^dtomitaiflom. Umyhaftupq ^... 

Doppeistation, wie ESN, aber mit 2 x 720 KB, 75 x 106 x 230 mm 0M 
DSN/B: dto. mit Ausgangsbuchse und automatischer Umschaltung 

für ein weites,.UtMerH B . L .. . 

GSN/40/80: Einzelstation 5.25 ", 720 KB, Laufwerk: TEAK FD55FV, 
mit Umschalter auf 40 Spuren (für MS-DOS), 50 x 152 x 290 mm 
GSN/3, die Große, die dazwischen paßt, wie GSN/40/80, 
aber mit Ausgang und Umschalter für 3. Laufwerk: 



DM 

DM 


669.- 

429.» 

469.» 


Dipl. Ing. Gerhard Trumpp 
Mitterlängstr. 7. 8039 Puchheim 


Tel. 089/80 68 23 17 - 22 Uhr 







































HARDWARE 


441: 

Data 

0101 

442: 

Data 

0010 

443: 

Data 

1010 

444: 

Data 

0100 

445: 

Data 

★ ★ 

446: 

Data 

01 

447: 

Data 

10 

448: 

Data 

* * 

449: 

Data 

0101 

450: 

Data 

1101 

451: 

Data 

1010 

452: 

Data 

1011 

453: 

Data 

★ ★ 

454: 

Data 

0111 

455: 

Data 

1101 

456: 

Data 

* ★ 
f 

457: 

Data 

0111 

458: 

Data 

1111 

459: 

Data 

1101 

460: 

Data 

1111 

461: 

Data 

★ ★ 

462: 

Data 

1 

463: 

Data 

* ** T 

r 


464: ' 

465: ' zeigt wo und welche menu-Einträge angezeigt werden 

466: Procedure Anz_init 

467: Dim Anz%(l,65) 

468: Local X,Y,A 

469: For A=0 To 65 

470: Anz%(0,A)=0 

471: Anz%(l / A)=0 

472: Next A 

473: Do 

474: Read A 

475: Exit If A=999 

476: Read X,Y 

477: Anz%(0,A)=X 

478: Anz%(1,A)=Y 

479: Loop 


480 

: Return 



481: 

: 



482 

: Data 23/40/22/ 26/30/3/ 27,1,4/ 

28,1,5, 

29,1,6, 


30,1/7 



483 

: Data 31,1,9/ 32,40,9, 33,1,12, 

34,1,13, 

35,1,14 


39,40,12 



484 

: Data 40,40,13, 41,40,14, 42,1,17, 

43,1,18, 

44,1,19, 


45,1,20 



485 

Data 46,40,17, 47,40,18, 48,40,19 

, 999 


486 

' 



487 

' 



488 

' - 



489 

' Ab hier kommen allgemeine Proceduren 


4 90 

' - 



491 

' 



492 

' 



493 

Procedure Textedit(X,Y,Lmax,A$,Z) 



494 

Local B$,L,P,B,C 



495 

L=Len(A$) 



496 

P=L+1 



497 

Do 



498 

Print At (X, Y) ;A$;" " 



499 

Print Chr$(27);"p"; 



500 

If L>0 And P<=L 



501 

Print At (X+P-l, Y) ;Mid$ (A$,P, 

1 ); 


502 

Print Chr$(27) ;"q"; 



503 

Else 



504 

Print At(X+P-l,Y);" 



505 

Print Chr$(27);"q"; 



506 

Print At(X+P,Y) ;" 




Endif 

C=Bios(2/2) 

B=C And 255 
B$=Chr$ (B) 

C=C/&H10000 And 255 
Exit If B=13 Or B=27 
If B=127 And L>0 And P<=L 

A$=Left$(A$ , P-l)+Right$(A$/L-P) 

L=Len(A$) 

Endif 

If B=8 And P>1 And L>0 

A$=Left$(A$,P-2)+Right$(A$,L-P+l) 

L=Len (A$) 

Dec P 
Endif 

If C=75 And P>1 
Dec P 
Endif 

If C=77 And P<=L 
Inc P 
Endif 
If B=9 
P=L+1 
Endif 

If ((B>31 And B<>127 And ZO-1) Or (B>44 And B<58 
And B<>47 And Z=-l)) And Imax>L 
If I>=P 

A$=Left$ (A$/P-l) +B$+Right$ (A$, L-P+l) 

Else 

A$=A$+B$ 

Endif 
L=Len (A$) 

Inc P 
Endif 

Loop 

Print At (X, Y) ;A$;" 

Rueck$=A$ 

Return 

' leere Procedur 
Procedure N 
Return 


Procedure Fehler 
Local Du 
If Eflag=0 

Alert 3, "Fehler Nr. : /, +Str$ (Err) +" | | ", 1, "OK"/Du 

Close 
Else 

Alert 3/"Fehler im Druckertreiber|oder in 
Korrekturdaten I " / 1 / "OK" , Du 

Endif 

Eflag=0 

Cls 

Menu Rollo$() 

Resume Start 
Return 


Procedure Rahmung(A) 
Dpoke Int in, A 
Vdisys 104 
Return 


Procedure Delay(A) 
Pause A 
Return 


507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 
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ANZEIGE 


Gegendarstellung 


Herr Kleinmeier behauptete, DTP-Programme sind schwierig. Falsch, er kannte 
Timeworks DTP” nicht. Herr Kleinmeier behauptete. Tabellenkalkulation ist für einen 
normalen Anwender unbehertschbar. Das war so, bevor es “LOGiSTiX” gab. Herr 
Kleinmeier behauptete, trotz Computer noch Terminkalender, Adreßbuch, Telefonliste und 
Notizblock zu benötigen. Falsch, er braucht nur "Desk Assist +++”. Herr Kleinmmeier 
glaubte. Firma Kieckbusch würde Endkunden nicht beliefern. Falsch. Kieckbusch liefert an 
jeden, ohne Ansehen von Ehestand. Religion oder Partei. 



■ Timeworks DTP 

Das deutsche Timeworks DTP für nur 
389,- DM besitzt alle Funktionen, die 
der Anwender benötigt, um 
professionelle Vorlagen zu fertigen. Es 
ist (fast) ohne Handbuch zu bedienen. 
Im Gegensatz zu sogenannten Page- 
Programmen besteht beim Timeworks 
DTP nicht die 1-Seiten-Begrenzung. 
Der Anwender kann hier große 
Textmengen (z.B. 50 Seiten) einladen, 
bearbeiten, formatieren und ausdrucken 
(z.B. auf P6, Atari-Laser, Postscript- 
Laser). Der deutsche Distributor, die 
Firma Kieckbusch, hat eine Aktion 
laufen: Besitzer von anderen DTP- 
Programmen (z.B. Becker Page oder 
Publishing Partner) können dieses für 
189,- DM gegen Timeworks 
Umtauschen. Ein, wie wir meinen, ganz 
interessantes Angebot. 



■ Calamus DTP 

Das Super-DTP-Programm aus dem 
Hause DMC findet sich auch im 
Vertrieb der Firma Kieckbusch. Calamus 
kostet 998,- DM und läßt nun wirklich 
keinen Wunsch offen. Es nimmt für sich 
die Prädikate "intelligent", 
"komfortabel" und "mächtig" in 
Anspruch. Vollkommen zu recht, wie 
wir meinen. Neben dem Programm bietet 
die Firma Kieckbusch für Calamus auch 
Schulung an. 


■ STEVE 

Das integrierte Programm mit den 
Teilen "Text", "Grafik" und 
"Datenbank" wird seit ca. 1 Jahr für den 
Atari ST verkauft. Es ist sehr komplex 
und wird deshalb komplett mit 
Handbuch plus Lehrbuch für 398,- DM 
ausgeliefert. Zur CeBit '88 kommen die 
Kieckbusch-Leute mit den Versionen 
3.0 und 3.0S heraus. 

Die Ausgabe 3.0S gestattet das 
Einlesen von Texten vom Scanner her. 
Dies funktioniert mit dem A4-Hawk- 
Scanner wie auch mit dem Handy- 
Scanner ! Die Erkennung hat mit 
verschiedenen Schriften eine 
Erfolgsquote von 97%. Außerdem ist 
STEVE lernfähig d.h., daß der 
Anwender seinem Computer mittels 
STEVE das Lesen jeder Schrift 
beibringen kann. Endlich muß er die Bild 
Zeitung nicht mehr selbst lesen ! 
STEVE tut das für Ihn, selektiert nach 
Suchkriterium und legt z.B. alle Artikel 
in der Datenbank ab, die sich mit Grün 
Kohl, Rot Kohl oder Helmut Kohl 
befassen. Für nur 1198,- DM ist das 
möglich. 

■ Handy-Scanner 

Der kleine Bruder eines richtigen 
Scanners profiliert sich bei kleineren 
Anwendungen oder bei speziellen 
Aufgaben, z.B. beim Einlesen von einem 
großen Objekt (Whisky-Flasche oder so) 
oder beim Einlesen von kurzen Passagen 
aus dicken Büchern, um z.B. in STEVE 
3.OS einen Ronald Reagan 
Zitatenschatz anzulegen. 

■ Desk Assist +++ 

Als unverzichtbar für jeden ernsthaften 
Anwender hat sich dieses Programm 
erwiesen. Egal, ob gerade mit 
Timeworks oder VIP gearbeitet wird, 
stets sind direkt die Funktionen von 
"Desk Assist" abrufbar: Rechnen, 
Adressen suchen, Spooler einrichten, 
Hardcopy, Kalender/Terminplan, Uhr, 
Wecker usw. Die brauchbaren 
Hilfsprogramme "Disk Assist" uns 
"Term Assist" (Fernübertragung) 
werden mitgeliefert. Preis 149,- DM. 


■ Tabellenkalkulation 

Auf diesem wichtigen Sektor bietet die 
Firma Kieckbusch für jeden Bedarf das 
richtige Programm: 

□ LOGISTIX 

für 399,- DM / für den Einsatz in allen 
Kalkulationsaufgaben.. Die 
Möglichkeiten, aus den Zahlenmengen 
anschauliche Grafiken zu produzieren, 
sind hier besonders ausgeprägt. Über 50 
Drucker- und Plotter Treiber 
ermöglichen die Ausgabe äuf fast jedes 
Gerät. Außerdem ist eine komfortable 
Netzplanerstellung mit integriert. 

□ VIP Professional 


komplett in Deutsch für nur noch 299,- 
DM ist der Knüller schlechthin. Das 
Programm ist zu 100% dem Lotus 
1-2-3 nachempfunden und läuft zudem 
unter GEM. Wie die Firma Kieckbusch 
dieses Preis-Angebot machen kann, ist 
ein echtes Geheimnis. Niemand weiß, 
wie lange es durchgehalten werden 
kann. 



A4-Hawk-Scanner 


Mit diesem Scanner lassen sich ganze 
Seiten Grafik oder Schrift in ca. 10 Sek. 
einiesen. Grafiken lassen sich dann 
nahezu beliebig verändern, Schrift läßt 
sich mit STEVE 3.0S in ASCII-Text 
umformen. Beides läßt sich dann z.B. in 
Timeworks DTP weiter verarbeiten. Der 
eingebaute A4-Drucker gibt alles 
schnell und geräuschlos auf 
Thermopapier aus. Die Qualität der 
Hardware, verbunden mit einer 
ausgefeilten Software hat seinen Preis: 
2.998,- DM. 


☆ Aktionen 

Hawk-Scanner inkl. Timeworks: 3048 
Hawk-Scanner inkl. Calamus: 3498 
Hawk-Scanner inkl.STEVE 3.0S: 3775 
Atari Laser inkl. Timeworks: 3498 
Atari Laser inkl. Calmus: 3998 
Atari Mega ST4 inkl. Steve 3.0: 3998 

Gebrauchte DTP-Programme, Becker 
Page, Fleet Street Editor, Publishing 
Partner.... je schlappe 50 DM 

Beratung, Information, Prospekte von 
Computer Technik Kieckbusch GmbH 
Baumstammhaus, 54 19 Vielbach 
S 02626-78336 & 8991 FAX -78337 


















































SOFTWARE 


10 MEGAHERTZ 
PER SOFTWARE 


Nach dem Studium von bisher 
nicht zugänglichen Unterlagen von 
ATARI können wir Ihnen heute ein 
Programm vorstellen, das schon 
bald auf jedem ST eingesetzt wer¬ 
den wird. CLOCK UP erhöht die 
Taktfrequenz des 68000 im ST auf 
knapp 10 Megahertz. 

Versuche zur Steigerung der Rechen¬ 
leistung für den ATARI ST liefen 
bisher über den Einsatz zusätzlicher 
Hardware. Es werden mehrere Pro¬ 
zessorkarten mit 68020 angeboten, 
die allerdings keine 100%-ige Kom- 
patibiltät wahren können. Die Erhö¬ 
hung der Taktfrequenz durch Quarz¬ 
austausch scheiterte an den Periphe¬ 
riebausteinen, die dafür zu langsam 
sind. 

Aufgrund eines Gespräches mit Shi- 
raz Shivji, dem ATARI-Chefent- 
wickler, auf der Comdex Fall in Las 
Vegas wurden uns inzwischen einige 
neue Unterlagen über den MFP-Bau- 
stein zugänglich gemacht, die eine 
Überraschung bargen: Die Taktfre¬ 
quenz der CPU ist durch einfaches 
Setzen des untersten Bits im FAST- 
Steuerregister auf 10 Megahertz 
umschaltbar. Das bisher undokumen¬ 
tierte Register des MFP 68901 liegt 
bei Adresse $FFFA30 und muß zum 
Beschleunigen auf $0001 gesetzt 
werden (siehe' Bild 1). 

Um den Problemen mit den zu lang¬ 
samen Peripheriebausteinen aus dem 
Weg zu gehen, ist der Quarz unter¬ 
schiedlich mit den CPU und den I/O- 
Chips verdrahtet. Durch einen Fre- 
quenzdiskretor werden MFP, ACIA 1 
und 2, DMA, Shifter und Soundchip 
mit der gewohnten Taktfrequenz von 
ca. 8MHz betrieben. Eine kleine Löt¬ 
brücke auf der Platinenrückseite 
sorgt dafür, daß der Bus entsprechend 
synchronisiert wird. 


Allerdings ist es damit nicht getan - 
um die Beschleunigung einsetzen zu 
können, ist Softwareunterstützung 
notwendig. Das Problem liegt dabei 
in den ROM-Chips, bei denen von 
ATARI aus Kostengründen die lang¬ 
samere Version gewählt wurde. 

Die notwendige Zusatzsoftware muß 
also vor ROM-Zugriffen dafür sor¬ 
gen, daß die Taktfrequenz kurzfristig 
gedrosselt wird. Diese Verlangsa¬ 
mung und die anschließende Be¬ 
schleunigung sind durch einfaches 
Umschalten des genannten Steuer¬ 
bits schnell und problemlos möglich, 
so daß kein Zeitnachteil bei Betriebs¬ 
systemaufrufen entsteht. 

Das abgedruckte Programm CLOCK 
UP verbiegt nun alle Trapvektoren 
für GEMDOS, BIOS, XBIOS und 
GEM-Aufrufe auf eine kleines Pro¬ 
grammstück, das das FST-Bit um¬ 
schaltet und dann über die alten 
Vektoren den Call durchführt. 

Da das Programm auf dem Papier 
(Lattice-C und hinzugelinkter MCC- 
Assemblercode) doch recht lang ge¬ 
raten ist, wollten wir Ihnen mehrere 
Seiten Listing ersparen und drucken 
hier einen kleinen Lader für GFA- 
BASIC ab. Er erzeugt auf Diskette 
oder Festplatte ein File namens 
CLOCK UP.ACC, das beim Booten 
als Accessory geladen wird. Durch 
die Implementierung als Accessory 
konnte etwas an Programmcode ein¬ 
gespart werden. Es belegt übrigens 

FAST-Register ($ FFFA30) 

Bild I: Das FAST-Register des MFP 


keinen Platz in der Accessory-Leiste, 
bleibt aber automatisch resident im 
Speicher. 

Was bringen nun die 10 Megahertz ? 
Betriebssystem- und I/O-Zugriffe 
werden nicht beschleunigt, dafür 
steigt die CPU-Leistung bei reinen 
Rechenaufgabe merklich an. Wir 
haben einige Benchmarks mit den 
verschiedensten Programmen durch¬ 
geführt, deren Ergebnisse Sie in Bild 
2 sehen. Die Geschwindigkeitsstei¬ 
gerung um ca. 30 % ist erstaunlich. 
Shiraz Shivji antwortete übrigens auf 
die Frage, warum diese Möglichkeit 
bis jetzt noch nicht publiziert wurde, 
damit, daß bei ATARI lange Zeit 
nicht feststand, welche ROM-Bau- 
steine verwendet werden sollten und 
gleichzeitig alle Programmierer mit 
der Implementierung des ROM-TOS 
beschäftigt waren. Inzwischen habe 
man feststellen müssen, daß eine 
Einwicklung der Software im Hause 
ATARI als zu kompliziert angesehen 
wird. Jack Tramiel persönlich habe 
daher verfügt, die Informationen an 
die Fachpresse zu leiten, um ein Fias¬ 
ko wie bei ST-Basic zu vermeiden. 
Da wir noch sehr wenige Programme 
auf CLOCK UP-Kompatibilität prü¬ 
fen konnten, wären wir Ihnen, den 
Lesern dankbar, wenn Sie über even¬ 
tuelle Schwierigkeiten mit CLOCK 
UP berichten würden. 

Robert Tolksdorf 

Listing siehe nächste Seite... 


F5T 


Test 

normal 

CLOCKUP 

WordPlus: Suchen -f Ersetzen 

1:59 

1:21 

GfA: Fibonaccizahlen errechnen 

3:04 

2:30 

Lattice-C: compilieren 

1:20 

0:55 

l^jX: Dokument formatieren 

4:23 

3:15 


Bild 2: Die Benchmarks 
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SOFTWARE 


1: ' Loader fuer CLOCKUP - 1.4.88 Robert Tolksdorf 

2: Open "0",#1,"clockup.acc" 

3: For 1=1 To 1122 

4: Read A 

5: Print #l,Chr$(Int(A/256));Chr$(A-Int(A/256)*256); 

6 : CC+A 

7: Next I 

8 : If C<>11621566 Then 

9: Print "Fehler in Datas !" 

10: Else 

11: Close #1 

12: Endif 

13: Data 6h601A,6h0000,6h07FA,6h0000,6h0000,6h0000 
14: Data &h074C,6*10000,6h0000,6h0000,6h0000,6h0000 
15: Data 6h0000,6h0000,6h4EF9,6h0000,&h0570 / 6h0000 
16: Data 6h2000,6h4E71,6h4E71,6h4E71,6h49F9,6h0000 

17: Data 6hOA36,6h2A0C,6h2E45,6h204F,6h42A0,6h42A0 
18: Data 6h42A0,6h213C,6h0000,6hl000,6h42A0,6h2A48 
19: Data 6h90FC,6h0024,6h43FA,6h0006,6h2109,6h2E48 
,20: Data 6h9DCE,6h4EF9,6h0000,6h0156,6h4143,&h4358 
21: Data 6h0000,6h4D6F,6h6475,6h6C61,6h2D32,6h2F53 
22: Data 6h5420,6h2863,6h2920,6h436F,6h7079,&h7269 
23: Data 6h6768,6h7420,6h4D6F,6h6475,6h6C61,6h2032 
24: Data 6h2053,6h6F66,&h7477,6h6172,6h6520,6h4C74 
25: Data 6h642E,6h2031,6h3938,6h352C,6h3139,6h3836 
26: Data 6h2C31,6h3938,6h372E,6h2000,6h2863,6h2920 
27: Data 6h436F,6h7079,6h7269,6h6768,6h7420,6h5444 
28: Data 6h4920,6h536F,6h6674,6h7761,6h7265,6h2049 
29: Data 6h6E63,6h2E20,6h3139,6h3835,6h2C31,6h3938 
30: Data 6h362C,6h3139,6h3837,6h2E20,6h0000,6h4E56 
31: Data 6h0000,6h49F9,6h0000, 6hOA6E,6h38AE,6h0010 
32: Data &h396E,6h000E,6h0002,6h396E,6h000C,6h0004 
33: Data 6h396E,6h000A,&h0006,6h396E,6h0008,6h0008 
34: Data 6h203C,6h0000,6h00C8,6h49F9,6h0000,6hOA38 
35: Data 6h2A0C,6h2205,6h4E42,6h33F9,6h0000,6hOA9A 
36: Data 6h0000,6hOABE,6h3D79,&h0000,6hOABE,&h0012 
37: Data 6h4E5E,6h4E75,6h4E56,6h0000,6h33EE,6h000A 

38: Data 6h0000,6hOA78,&h33EE,&h0008,6h0000,6hOA7A 
39: Data 6h4E5E,6h4E75,6h4E56,6h0000,6h286E,6h0014 

40: Data 6h38B9,6h0000,6hOA9C,6h286E,6h0010,6h38B9 
41: Data 6h0000,6hOA9E,6h286E,6h000C,6h38B9,6h0000 
42: Data 6h0AA0,6h286E,6h0008,6h38B9,6h0000,&hOAA2 
43: Data 6h4E5E,6h4E75,6h4EF9,6h0000,6h000A,6h4E56 

44: Data 6h0000,6h49F9,6h0000,6h0A50,6h42AC,6h000A 
45: Data 6h42AC,6h000E,6h42AC,6h0012,6h42AC,6h0016 
46: Data 6h42AC,6h001A,6h49F9,6h0000,6hOA38,6h47F9 
47: Data 6h0000,6hOA6E,6h2A0B,6h2885,6h47F9,6h0000 
48: Data 6h0A50,6h2A0B,6h2945,6h0004,6h47F9,6h0000 
49: Data 6hOA78,6h2A0B,6h2945,6h0008,6h47F9,6h0000 
50: Data 6hOA9A,6h2A0B, 6*i2945,6h000C,6h4 7F9,6h0000 


51: Data 6hOAAA,&h2A0B / 6h2945,6h0010,6h47F9,6h0000 
52: Data 6hOAB6,6h2A0B,6h2945,6h0014,6h4E5E,6h4EF9 
53: Data 6h0000,6h02BE,6h4E56,6h0000,6h558F,&h3F3C 
54: Data &h000A,&h4267, shSFSC, 6*10001,&h4267,&h4267 
55: Data &h4EB9,ShOOGO/ShOOBA,&h4FEF/&h000A,&h3D5F 
56: Data ShOGOS,&h4E5E / &h4E75 # &h4E56,&h0000 # &h3F2E 

57: Data ShOOOA, &h3F2E / &h0008,&h4EB9 / ShOOGO,&h0108 
58: Data &h588F,&h558F,&h3F3C,&h0018,&h3F3C # &h0002 
59: Data &h3F3C,&h0001 # &h4267,&h4267,&h4EB9,&h0000 
60: Data &hOOBA,&h4FEF / ShOOOA,&h33DF,ShOOGO,ShOABE 
61: Data &h4E5E / &h4E75,&h4E56,ShFFFE, &h558F # &h3F3C 

62: Data &h004D,&h4267,&h3F3C # ShOGOS,&h4267 / &h4267 
63: Data &h4EB9,&h0000/ShOOBA,&h4FEF,&h000A,&h3D5F 
64: Data &hFFFE,&h286E / &h0014 / &h4854,&h286E,&h0010 
65: Data &h4854 / &h286E / &h000C,&h4854 7 &h286E / &h0008 
66 : Data &h4854,&h4EB9,&h0000,&h0120,&h4FEF,&h0010 
67: Data &h3D6E,ShFFFE,&h0018,&h4E5E, &h4E75, &h4E56 

68 : Data &h0000,&h7073,&h2239 / ShOOGO,&hOEEC,&h4E42 
69: Data &h4E5E / &h4E75 / &H4E56,ShOOGO,&h33EE # &h0010 
70: Data 6*10000, ShOACO,&h33EE, ShOOOE, ÄhOOGO,&hOAC2 
71: Data &h33EE,fibGOOC,&h0000,&hOAC6,&h33EE,6h000A 
72: Data 6h0000,&hOACA,&h33EE,&h0008,ShOOGO,6hOACC 
73: Data &h4E5E,&h4E75,&h4EF9,&h0000,&h0150,&h4E56 
74: Data 6h0000,&h49F9,ShOOGO,6hOAD8,&h2A0C,&h23C5 
75: Data &h0000,ShOEDC,&h49F9,&h0000,&hOBD8,&h2A0C 
76: Data &h23C5,&h0000,ShOEEO,&h49F9,ShOOGO,&hOCD8 
77: Data &h2A0C,&h23C5,6h0000,&hOEE4,&h49F9,&h0000 
78: Data ShODDS,&h2A0C,&h23C5,ShOOGO,&hOEE8,&h49F9 
79: Data &h0000,ShOACO,&h2A0C / &h23C5,&h0000,6hOEFO 
80: Data &h23F9,&h0000,6hOEDC,ShOOGO,&hOEF4,&h23F9 
81: Data 6h0000,&hOEEO,6h0000,&hOEF8,&h23F9,&h0000 
82: Data &hOEE4,ShOOGO,ShOEFC,6h23F9,ShOOGO,&hOEE8 

83: Data ShOOOO, ShOFOO,&h49F9,6h0000,&hOEFO,&h2A0C 
84: Data &h23C5 / &h0000,ShOEEC,&h4E5E,&h4EF9,&h0000 
85: Data &h0576,&h4E56, ShOOGO,&h33EE, 6*10008,&h0000 
86 : Data 6hOAD8,6h3F3C,6h0020,6h4267,6h3F3C,6h0001 
87: Data 6h4267,6h3F2E,6h000A,6h4EB9,6h0000,6h0288 
88 : Data 6h4FEF,6h000A,6h4EB9,6h0000,6h0276,6h3D79 
89: Data 6h0000,6hOCD8,6h000C,6h4E5E,6h4E75,6h4E56 
90: Data 6h0000, 6h4279, 6h0000, 6hOBD8,6h33EE,6h0018 
91: Data 6h0000,6hOBDA,6h3F3C,6h000C,6h3F3C,6h0001 
92: Data 6h4267,6h4267,6h3F2E,6h001A,6h4EB9,6h0000 
93: Data 6h0288,6h4FEF,6h000A,6h4EB9,6h0000,6h0276 
94: Data 6h286E, 6h0014,6h38B9,6h0000, 6hODD8,6h286E 
95: Data 6h0010,6h38B9,6h0000,6hODDA,6h286E,6hOOOC 
96: Data 6h38B9,6h0000,6hODDC,6h286E,6h0008,6h38B9 
97: Data 6h0000,6hODDE,6h4E5E,6h4E75,6h4E56,6h0000 

98: Data 6h3F3C,6h0081,6h3F3C,6h0002,6h3F3C,6h0001 
99: Data 6h4267, 6h3F2E,6hOOOE,6h4EB9,6h0000, 6h0288 
100: Data 6h4FEF,6h000A,6h33EE,6h000C,6h0000,6hOAD8 
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SOFTWARE 


101: Data &h4279,&h0000,&h0F08,&h3A39,&h0000,&h0F08 
102: Data &h286E,&h0008,&hDA45,&h3839,&h0000,&h0F08 
103: Data &hD844 , &h47F9,&h0000,&hOBD8,&h37B4 , &h5000 
104: Data &h4000,&h5279,ShOOOO,&h0F08,&hOC79,&h0004 
105: Data &h0000,&h0F08,&h66D0,&h4EB9,ShOOOO,&h0276 
106: Data &h4E5E,&h4E75,&h4E56,&h0000,&h3F3C,&h0026 
107: Data &h4267,&h4267,&h4267,&h3F2E,&h000C,&h4EB9 
108: Data ShOOOO,&h0288,&h4FEF,ShOOOA,&h4EB9,&h0000 
109: Data &h0276,&h4279,ShOOOO,ShOFOC,&h3A39, ShOOOO 
110: Data ShOFOC,&hDA45,&h49F9,ShOOOO,&hOCD8,&h3839 
111: Data &h0000,&hOFOC,&h266E,&h0008,&hD844,&h37B4 
112: Data &h5000,&h4000,&h5279,&h0000,ShOFOC,&hOC79 
113: Data &h0006,ShOOOO,ShOFOC,&h66D0,&h33FC,&h0006 
114: Data ShOOOO , ShOFOC,&h3A39,ShOOOO , ShOFOC,Sh5D45 
115: Data &hDA45,Sh49F9,ShOOOO,ShODD8,Sh3839,ShOOOO 
116: Data ShOFOC,Sh266E,Sh0008,ShD844,sh37B4,Sh5000 
117: Data Sh4000,Sh5279,ShOOOO,ShOFOC,ShOC79,ShOOOA 
118: Data ShOOOO,ShOFOC,Sh 66 CE,Sh4E5E,Sh4E75, Sh4E56 
119: Data ShOOOO,Sh4279,ShOOOO,ShOFlO,Sh33EE,ShOOOC 
120: Data ShOOOO,ShOF12,Sh3A39,ShOOOO,ShOFlO,ShBA79 
121: Data ShOOOO,&hOF12,Sh6E10,Sh3A39,ShOOOO,ShOFlO 
122: Data Sh286E,Sh0008,Sh4A34,Sh5000,Sh6604,Sh4EFA 
123: Data Sh002C,Sh3A39,ShOOOO,ShOFlO,Sh286E, Sh0008 
124: Data Sh7800,&hl834 , Sh5000,Sh3A39,ShOOOO,ShOFlO 
125: Data ShDA45,Sh49F9,ShOOOO,ShOAD8,Sh3984 , Sh5000 
126: Data Sh5279,ShOOOO,ShOFlO,Sh60B4 , Sh3F3C,Sh0008 
127: Data Sh3F3C,ShOOOl , Sh3F39,ShOOOO,ShOFlO,&h4267 
128: Data Sh3F2E,Sh0012,Sh4EB9,ShOOOO,Sh0288,Sh4FEF 
129: Data ShOOOA,Sh33EE,ShOOlO,ShOOOO,ShOBD 8 ,&h33EE 
130: Data ShOOQE,ShOOOO,ShOBDA,Sh4EB9,ShOOOO,&h0276 
131: Data Sn4E5E,Sh4E75,Sh4EF9,ShOOOO,Sh02B8,&h4E56 
132: Data ShOOOO,Sh558F,Sh6100,ShFC4A,Sh33DF,ShOOOO 
133: Data ShOF18,Sh4267,sh3F3C,ShOOOl , Sh6100,ShFC60 
134: Data Sh588F, Sh33FC,Sh7FFF,ShOOOO,ShOFlA,Sh3F39 
135: Data ShOOOO,ShOFlA,Sh4267,Sh6100,ShFC4A,Sh588F 
136: Data ShOC79,Sh03E8,ShOOOO,ShOFlA,Sh6F08,Sh0479 
137: Data Sh03E8,ShOOOO,ShOFlA,sh558F,Sh4879,ShOOOO 
138: Data ShOF18,Sh4879,ShOOOO,ShOF18,Sh4879,ShOOOO 
139: Data ShOF18,Sh4879,ShOOOO,ShOF18,Sh6100,ShFC52 
140: Data Sh4FEF,ShOOlO,Sh33DF,ShOOOO,ShOFlC,Sh3F39 
141: Data ShOOOO,ShOFIC,Sh4879,ShOOOO,ShOFlE,Sh6100 
142: Data ShFE54,Sh5C8F,Sh3F39,ShOOOO,ShOFIC,Sh3F3C 
143: Data Sh0014 , &h4879,ShOOOO,ShOF18,Sh4879,ShOOOO 
144: Data shOF18,&h4879 / ShOOOO,ShOFlS,&h4879 / ShOOOO 
145: Data &110F18, ShÖlOO,&hFD66,&h4FEF,&h0014,&h558F 
146: Data &h3F39, & 110000 , ShOFlC,&h3F3C / ShOOOS,&h6100 
147: Data &hFDlA,&h588F,&h33DF / &h0000,&h0F18 / &h49F9 
148: Data ShOOOO,&h07F2 , &J147F9, ShOOOO,&hOF32 , &h7A07 
149: Data &hl 6 DC/&h57CD,ShFFFC/&h3F39,&h0000,ShOFlC 
150: Data &h4267,&H4879,ShOGOO,&hOF3E / &h6100,&hFD82 


151: Data ShSOSF,&h4279,ShOOOO,&hOF18 # ShSFSS,&h0000 
152: Data ShOFlC,&h3F3C,ShOlOE,&h3F39,ShOOOO,&hOF18 
153: Data S^FSC, &h000A,&H4879, ShOOOO, &hOF32 / &h6100 
154: Data ShFESA,&h4FEF,&h000C,&hOC79/ &h00C6,&h0000 
155: Data &H0F18,ShecOS,&H5679,ShOOOO, ShOFlS, &h60CC 
156: Data &h558F f &h3F39,ShOOOO,ShOFlC,&h3F3C / &h0001 
157: Data &h6100,ShFCAO,&h588F,&h33DF,&h0000,&hOF18 
158: Data &h3F39 / ShOOOO,ShOFlC,&h3F3C / &h010E,&h3F3C 
159: Data ShOOCS, &h3F3C,&h000A,&h4879,ShOOGO,&hOF32 
160: Data &h6100,ShFElO,&h4FEF,&h000C/&h558F/&h3F39 
161: Data &h0000 # &hOFlC,ShSFSC,&h0003 / &h6100,&hFC68 
162: Data &h588F,ShSSDF,ShOOGO,&hOF18 # &hl3FC,&h0020 
163: Data fihOOOO, &hOF37,&hl3FC,&h0021,fihOOOO,&hOF38 
164: Data &h33FC / &h0190,&h0000,ShOFlS,&h3F39,&h0000 
165: Data ShOFlC,&h3F3C,&H015E,ShSFSO,ShOGOO,&hOF18 
166: Data &h3F3C,&H000A,&h4879,ShOOOO,&hOF32 f &h6100 
167: Data ShFDBE,&h4FEF, ShOOOC,&h203C / ShOOOO,ShOOCA 
168: Data &hB079,&h0000,ShOFlS,ShecOS,&h5779,ShOOOO 
169: Data &hOF18, ShÖGCS,ihöSSF,&h3F39,ShOOOO,ShOFlC 
170: Data ShSFSC,ShOOGl,&h6100,ShFCOO,&h588F,&h33DF 
171: Data ShOOOO,ShOFlS,&h3F39,&h0000,&hOFlC,&h3F3C 
172: Data &h015E, ShSFSC,&h00C8 , &h3F3C / ShOOOA,&h4879 
173: Data &h0000/&h0F32,&h6100,&hFD70/&h4FEF,&h000C 
174: Data &h3F39 / &h0000,&h0FlC,&h3F3C,&h0001 / &h4879 
175: Data ShOOOO, ShOFSE,ShölOO,ShFCSA,ShSOSF,&h558F 
176: Data &h3F39,ShOOGO,ShOFlC,&h3F39,&h0000,&h0F20 
177: Data &h6100/ShFBBO,&h588F,&h33DF/&h0000/&h0F18 
178: Data &h3F39 # ShOOGO, ShOFlC,&h3F39,&h0000,&hOF2C 
179: Data &h4879/&h0000/&hOF18,&h4879 / &h0000,&hOF18 
180: Data &h4879 / ShOOOO,ShOFlS,&h4879,ShOOOO,&hOF18 
181: Data &h6100,&hFBB8 f &h4FEF / &h0014 / &h7A01 / &h23C5 
182: Data &h0000,&hOF14 / &h52B9 / ShOGOO,&hOF14 / &hOCB9 
183: Data &h0004/&hE201,&h0000,&h0F14,ShöGEE,&h6000 
184: Data &hFDB2,&h4E5E / &h4E75 / &h0000 / &h0000 / &h4150 
185: Data &h5249,&h4C2C / &h2000 / ShOGOO,&h0002 / &hl02A 
186: Data &h8428 / &h0C04,&h0612 / &h0812 / &hOAOA/ShOAOA 
187: Data ShOAlA,&h060A,ShOCOC,ShOCOC,ShOElA,&hlElA 
188: Data ShOAlE,&h261A / &hl208 / ShOSOS,&H080A,&h0A08 
189: Data &h0608, ShOeOS,&110608, &h0608,&h0604 , &h0604 
190: Data &h0604 / &h0604 / ShOÖOS,ÄhOSOC,&hl60A,&h0610 
191: Data &h0816,ShGAOA,ShOAOA,&h0A20/&h0C06/&h060C 
192: Data &h080C,&h0808, ShlCOA,ShOeOö,&h0806,&hl208 
193: Data ShOAGö,&h0A06,&hl208,ShlOOS, ShOöOö,&h0814 
194: Data ShlOOS,ShOAlO,ShOCOC,ShOeOö, ShOAlO,&hl406 
195: Data ShlOOA,&h0806 # &h0606,&h0E06,ShOeOC,&h0A06 
196: Data fchOöOö, ShlOlO, ShOeOö,&h0E08,&h0C06, ShOAOA 
197: Data ShlOOS,ÄhOAlO,&h0612 / ShlOlO,ShOSOS,&h0806 
198: Data ShOAOA,&hl408 / ShOAlO,&h0612 / ShOEOA,&h0E06 
199: Data &h0C06, Sh0606,&h0606,&h0610, &h060A,ShOOOO 

List ing und Artikel Ende 


1000 Berlin. Alpha Computers 

1000 Berlin. Behrendt’s Computershop 

1000 Berlin, Computare OHG 

1000 Berlin, Dataplay 

1000 Berlin, Digital Computer 

1000 Berlin, BH Garten des Wissens 

1000 Berlin, Gross 

1000 Berlin, Karstadt 

1000 Berlin, Schäfer 

1000 Berlin, Schlichting 

2000 Hamburg, Createam Computer 

2000 Hamburg, Ing.-Büro Kludasch 

2000 Hamburg, Kabs & Winterscheit 

2058 Lauenburg, Viktor-Soft 

2120 Lüneburg, Computer Notthoff 

2300 Kiel, MicroComputer Christ 

2300 Kiel, Reese 

2350 Neumünster, SCM GmbH 

2390 Flensburg. Elektronik Computerladen 

2390 Flensburg, Ernst Fabricius 

2400 Lübeck, Jessen & Lenz 

2800 Bremen, PS-Data 

2940 Wilhelmshaven, Radio Tiemann 

2950 Leer, S&F Datentechnik 

3000 Hannover. Data Division 

3000 Hannover, TrendDATA 

3170 Gifhorn, Computer-Haus Gifhorn 

3400 Göttingen, Wiederholdt 

3500 Kassel, Hermann Fischer GmbH 

4000 Düsseldorf, Borho + Partner 

4000 Düsseldorf, Rainer Dnesen 

4010 Hilden. KaroSoft 

4060 Viersen, ROTA GmbH 
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Händlerverzeichnis 


4200 Oberhausen. LaSch GbR 

4250 Bottrop. MEGA TEAM Computersys. 

4300 Essen, Karstadt 

4350 Recklinghausen, EDV Huber 

4410 Warendorf. Digital Works 

4500 Osnabrück, Heinecke Electronic 

4531 Lotte/Büren. Bruns Computerorgan. 

4600 Dortmund, Bürostudio Bolz 

4600 Dortmund, cc Computer Studio 

4600 Dortmund, Knupe 

4650 Gelsenkirchen. ComTron 

4800 Bielefeld, CSF Computer 

4800 Bielefeld, Microtec 

5000 Köln, Bollig 

5000 Köln, Büromaschinen Braun 

5000 Köln, Callsoft Koeln 

5000 Köln, HSS Harmel-Scollar/Schmithals 

5010 Bergheim, Computerstudio Hölscher 

5090 Leverkusen, Rolf Rocke 

5130 Geilenkirchen, Franz Steinkirchner 


5130 Geilenkirchen, Schmitz Datentechnik 

5200 Siegburg, Computer Center 

5500 Trier, Bürocenter Lehr 

5540 Prüm, ATC Computer 

5600 Wuppertal. Buchhandlung Finke 

5620 Velbert, Nöthen Bürocenter 

5630 Remscheid, COM Soft 

5800 Hagen, Axel Böckem 

5860 Iserlohn. Compuvet, Dr. Sasum 

6000 Frankfurt, BCO 

6000 Frankfurt, Data Technics 

6000 Frankfurt, Schmitt Computersysteme 

6094 Bischofsheim, WDS Datensysteme 

6300 Giessen, Interface 

6330 Wetzlar. Computer Fachmarkt 

6340 Königstein, KFC Computersysteme 

6400 Fulda, Weinrich Büroorga. 

6500 Mainz, Schmitt Computersysteme 
6520 Worms. Orion Computer Systeme 
6600 Saarbrücken, Kaufhof AG 
6600 Saarbrücken. W. N. Pfeiffer 

6700 Ludwigshafen. MKV GmbH 

6701 Birkenheide, ACBR Riechert 
6720 Speyer, MKV GmbH 

6750 Kaiserslautern, Gotthold Bürocenter 
6900 Heidelberg, Hdbg. Computer Center 
6991 Igersheim, Gerald Köhler 
7100 Heilbronn, Fritz Seel 
7100 Heilbronn, Walliser & Co. 

7150 Backnang,Weeske 
7400 Tübingen, Brock Computerstudio 
7400 Tübingen, Neuner-Jehle 
7410 Reutlingen. Brock Computershop 


7440 Nürtingen, Strommer & Soric 

7450 Hechingen, SRE Computer 

7450 Hechingen-Beuren, Rudolf Gärtig 

7475 Meßstetten, Scheurer Computermarkt 

7480 Sigmaringen, Soft & Easy 

7500 Karlsruhe, Papierhaus Erhardt 

7520 Bruchsal, Helmut Jöst 

7600 Offenburg, Leonhardt Elektronik 

7700 Singen, Udo Meier 

7730 VS-Schwenningen, BUS Brauch & Sauter 

7890 Waldshut-Tiengen, Hettler-Data 

7918 lllertissen. BICTECH GmbH 

7940 Riedlingen, Schlegel Datentechnik 

7980 Ravensburg, Grahle 

8000 München, Ludwig Computer 

8000 München. Musik+Grafik SW Shop 

8000 München, Philgerma GmbH 

8000 München, Schulz Computer 

8032 Gräfelfing, ProCE 

8052 Moosburg, Korber, M. Dipl.-Inform. 

8150 Holzkirchen, Münzenloher GmbH 
8170 Bad Tölz, Elektronik Center 
8230 Bad Reichenhall, Siegfried Melchart 
8400 Regensburg, Elektroland Zimmermann 
8500 Nürnberg, HIB Computer GmbH 
8500 Nürnberg, Schmitt Computersysteme 
8600 Bamberg, A+R Kutz 
8700 Würzburg, Schöll Computercenter 
8900 Augsburg, Adolf & Schmoll 
8900 Augsburg, Schmitt Computersysteme 
8940 Memmingen, EDV-Schweizer 
8960 Kempten. Staehlin 
A-1100 Wien, Vogler 


♦ C.A.$.H. GmbH • 8900 Augsburg • Robert-Bosch-Str. 20a • Telefon 0821/703856 
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Genug davon gehört: DTP, WYSIWYG, Setzerei auf dem 
Schreibtisch, Drucksachen mit dem Computer erstellen, und, 
und,... Jetzt heißt’s selber loslegen: Desktop Publishing für alle! 
Ab sofort gibt’s den Publisher für alle ATARI ST, der hält, was 
DTP verspricht: BECKERpage ST. 

Sie wollen es nicht glauben? Sehen Sie selbst: diese Anzeige 
wurde komplett mit BECKERpage ST realisiert. 

BECKERpage ST hat nicht nur alleTextVerarbeitungsfunktionen 

drauf, schafft nicht nur verschiedene 
Schriftarten wie Helvetica, Times und 
Courier in allen Variationen (fett, kur¬ 
siv, negativ, outline, gesperrt), kann 
nicht nur eigene Schriftbilder entwer¬ 
fen (mit dem integrierten Schrifteditor 
FOMA) - nein, BECKERpage ermög¬ 
licht auch die Kreation und Integration 
beliebiger Grafiken.Die Illustration die¬ 
ser Anzeige wurde mit dem mitgelie¬ 
ferten Grafikprogramm 
PROFI PAINTER erstellt. Ebensogut können Grafiken und Bild¬ 
schirmausschnitte aus anderen Programmen übernommen und 
beliebig variiert werden. Dafür sorgt die integrierte Snap-Shot- 
Accessory PAINTER FOTO (siehe Hardcopy links in Anzeige). 
Nicht genug. BECKERpage ST ermöglicht vollständiges Seiten¬ 
layout am Bildschirm. Natürlich mit der Maus: mehrspaltiger 
Seitenumbruch, Blindtextfunktion, Picture Wrap, beliebig abge¬ 
stufte Raster, Kreise, Linien, Rechtecke, und, und ... 

Genug gehört? Dann ran an DTP! BECKERpage ST machts 
möglich. 

Minimalkonfiguration: ATARI ST mit ROM TOS und 1 MByte 
Speicher, ATARI-Laserdrucker oder NEC P6, P7, P 2200, Star 
NB 15, Epson 9- und 24-Nadeldrucker und Kompatible. 



BECKERpage ST 

Version 1.0, 

inkl. PROFI PAINTER nur DM 





^nupmT 



Hiermit bestelle ich 


Name, Vorname 

DATA BECKER 

Merowmgerstr. 30 4000 Düsseldorf Tel. (0211) 310010 - 

Straße, Ort 



















SOFTWARE 


PROSPERöMü 
FORTRAN IM DETAIL 

Dem Compiler auf die Finger geschaut 


Hilfeoption 

des 

Debuggers 


» 

»H 

PROBE checks for breakpoints, tracing, watching, or striking of any key at 
the Start of each line of the source progran on which a statenent Starts, 
Uhen execution of the progran is interrupted, the folloning connands are 
available: 


R(ssign) new value to variable 
B(reak) into progran at event 
C(alls) to reach current point 
D(isplay) value of variable(s) 
E(cho) screen output to file 
G(o) on with execution 
H(elp) explain connand use 
K(ey) interruption on/off 
L(ist) source lines 


0Cutput) to alternate screen 
P(rofile) on/off 
OUIT to operating systen 
R(oute) taken to current point 
S(tep) execution through source 
T(race) execution in object code 
V(iew) alternate output screen 
UCatch) variable or source lines 
X (eXecute) progran 


Further help is available on each of these. 
press RETURH to continue; SPACE to leave HELP . 


In der Februar-Ausgabe wurde 
über die neueste Version von Pro- 
spero-Fortran berichtet, die einer¬ 
seits über ihre Workbench besser 
in GEM eingebunden ist, anderer¬ 
seits aber auch durch eine umfang¬ 
reiche Unterprogrammbibliothek 
dem Programmierer einen erwei¬ 
terten Zugriff auf die leistungs¬ 
fähigen GEM-Routinen ermög¬ 
licht. 

In diesem Artikel sollen einige 
Aspekte dieses Compilers im Detail 
betrachtet werden. Dabei haben wir 
vor allem diejenigen Programmierer 
vor Augen, die zwar schon Erfahrung 
mit Fortran haben, sich bisher aber 
noch nicht weiter mit GEM 
beschäftigt haben und auch mit dem 
neuen Prospero-Fortran noch keinen 
intensiven Kontakt hatten. 

Zunächst werden wir uns mit dem 
Debugger beschäftigen, anschlie¬ 
ßend wird ein wenig gefensterlt, 
wobei uns einige GEM-Routinen 
assistieren werden, danach kommen 
einige Vergleichsmessungen mit der 
alten Fortran-Version und mit For- 
tran-Versionen auf anderen Rech¬ 
nern. Zum Schluß geben wir noch 
Hinweise auf weitere, bisher gefun¬ 
dene Fehler und Unstimmigkeiten. 

Fehlersuche mit 
PROBE 

Ein Debugger ist ein Hilfsmittel, im 
allgemeinen ein Zusatzprogramm, 
welches bei der Fehlersuche 
eingesetzt wird. Normalerweise wer¬ 
den allenfalls Laufzeitfehler mit 
Fehlerart und Programmzeile ge¬ 
meldet. Dies ist oft aber nur die 


Wirkung von Fehlem, die Ursache 
liegt dann meist im Dunkeln. Logi¬ 
sche Fehler findet man auf diese 
Weise ohnehin nicht. Es kommt 
daher darauf an, den Ablauf eines 
Programms genau zu beobachten und 
an manchen Stellen den Wert signi¬ 
fikanter Variablen zu prüfen. Hierzu 
quält man sich oft mit zusätzlich ins 
Programm aufgenommenen Druck- 
anwei-sungen: “Hier ist Unterpro¬ 
gramm ABC”, “Die Variable XYZ 
hat den Wert... “ und ähnliches. Diese 
Methode ist zwar jedem gestandenen 
Fortran-Programmierer wohlver¬ 
traut, nichtsdestotrotz aber sehr 
umständlich: Die zunächst als fehler¬ 
haft verdächtigten Stellen sind 
natürlich völlig in Ordnung, man muß 
ganz woanders suchen, also neue 
Druckbefehle ‘rein, nochmal überset¬ 
zen, binden, wieder falsch, ... Wir 
kennen das! 

Mit einem Debugger hingegen ist 
man viel besser dran: Das Original¬ 
programm wird unter der Kontrolle 
dieses Hilfsprogramms ausgeführt, 
man kann sich zur Laufzeit über¬ 
legen, was man ansehen möchte, wo 
man weitermachen will und was 
einem sonst noch so einfällt. Debug¬ 


ger sind natürlich nicht genormt, und 
so ist ihre Bedienung und Lei¬ 
stungsfähigkeit recht unterschied¬ 
lich, wenn man überhaupt einen hat. 
Selbst auf Großrechnern ist dieses 
wichtige Hilfsmittel nicht immer 
selbstverständlich. 

Der Einstieg 

Soll eine Programmeinheit mit 
PROBE untersucht werden, so ist sie 
mit der Option ‘N’ zu übersetzen, alle 
anderen Programmteile und Pro¬ 
gramme sind für den Debugger trans¬ 
parent. Beim Übersetzen mit ‘N’ 
werden die Hilfsdateien der Typen 
\NAM’ und \SYIVT erzeugt, die 
PROBE bei seiner Arbeit benötigt. 
Verwendet man zusätzlich noch die 
‘L’-Option, dann kann PROBE die 
dadurch erzeugte Auflistung des 
Quellprogramms in der ‘.PRN’-Datei 
während einer Sitzung ebenfalls ver¬ 
wenden. PROBE kann direkt vom 
Desktop gestartet oder aus der Work¬ 
bench über ‘Debug Program' oder die 
Tastenkombination (Alternate+P) 
aufgerufen werden. Im folgenden 
werden wir den letzteren Fall betra¬ 
chte n . seht weiter... 
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Nach (Altemate+P) darf man zunächst 
anhand der üblichen Auswahlbox das 
gewünschte Programm aussuchen. 
Leider gibt es keine direkte Möglich¬ 
keit, das gerade entwickelte Pro¬ 
gramm einzustellen. Oder ist die nur 
nicht gut genug dokumentiert? Die 
beim Aufruf von PROBE aus der 
Workbench verwendeten Pfadnamen 
sind etwas verwirrend: PROBE.PRG 
wird im Pfad für ‘‘Compiler overlays” 
gesucht; für das zu testende Programm 
wird in der Auswahlbox der Pfad für 
“user files” voreingestellt; die Dateien 
vom Typ \PRN’ und ‘.NAM’ werden 
im Pfad für “libraries” gesucht, wo 
auch die Protokolldatei PROBE.LOG 
abgelegt und die Datei PROBE.HLP 
mit den Hilfstexten vermutet wird. 
Wird in der laufenden Sitzung für eine 
nicht gefundene Datei einmal ein an¬ 
derer Pfadname eingegeben, so gilt der 
dann aber auch für die nächste 
gesuchte Datei. 

Ein Beispiel 

Natürlich können, dürfen und wollen 
wir hier nicht die Lektüre des 
Handbuchs ersparen. Wir geben aber 
einige Tips und Hinweise, die den 
Einstieg erleichtern und einen kleinen 
Eindruck von der Leistungsfähigkeit 
dieses Debuggers geben. Ganz in¬ 
struktiv ist hierbei der Ausdruck in 
Bild 1. Dies ist das Protokoll einer 
Sitzung, die mit ECHO in die Datei 
PROBE.LOG protokolliert und dann 
mit einem Editor nachbearbeitet 
wurde: Alle Benutzereingaben sind 
unterstrichen. Das Protokoll enthält 
stets nur die von PROBE erzeugte, 
nicht die vom getesteten Programm 
erzeugte Ausgabe und auch nicht die 
vom Benutzer eingegebenen 
Pfadnamen. Diese wurden in Bild 1 
nachträglich noch eingesetzt. Die vom 
Benutzer eingegebenen PROBE-Be- 
fehle stehen dagegen auch wieder im 
Protokoll. 

Bild 1 vermittelt zunächst einen tref¬ 
fenden Eindruck von dem Chaos mit 
den Pfadnamen. Positiv fällt dagegen 
der Umfang der HELP-Funktion auf, 
die hier nur andeutungsweise demon¬ 
striert wurde. Zu jedem Punkt kann 
noch ein ausführlicher Hilfstext 
abgerufen werden. So etwas ist vor¬ 
bildlich! Mit DISPLAY wird der In¬ 
halt von Variablen und Feldern 
angezeigt. Natürlich kann man genau 
angeben, was man sehen möchte; ohne 


.MAIN (source file: DEMOl) 

'DEMOl.PRN' is not in the default directory. 
Which directory is it in? D:\ 

1 * A = 10. 

» HELP 

'PROBE.HLP' is not in D:\. 

Which directory is it in? D: \ PRQFOR\ 

PROBE checks for breakpoints, tracing, 
watching, or striking of any key at 
the Start of each line of the source 
program on which a Statement Starts. 

When execution of the program is interrupted, 
the following commands are 
available: 

A(ssign) new value to variable 

O(utput) to alternate screen 
B(reak) into program at event 
P(rofile) on/off 
C(alls) to reach current point 

QUIT to operating System 
D(isplay) value of variable(s) 

R(oute) taken to current point 
E(cho) screen output to file 

S(tep) execution through source 
G(o) on with execution 

T(race) execution in object code 
H(elp) explain command use 

V(iew) alternate output screen 
K(ey) interruption on/off 

W(atch) variable or source lines 
L(ist) source lines 

X (eXecute) program 


Further help is available on each of these. 


. . . press RETURN to continue; 

SPACE to leave HELP . . . 


» DISPLAY 

'DEMOl.NAM' is not in D:\PROFOR\. 


Which directory is it in? D:\ 

A (REALM ) 0.0000000E+00 

B (REALM ) 0.0000000E+00 

C (REALM ) 0.0000000E+00 

» PR OFI L E 


profiling 
» STEP 
2 * 

»D I SP LAY 


» BREAK 8 
» WATCH C 
»QQ 
ADD 
12 * 

12 * 


enabled. 

B = 5. 

A (REAL*4 ) 1.0000000E+01 

B (REALM ) 0.0000000E+00 

C (REALM ) 0.0000000E+00 


1 X3 = XI + X2 
'WATCH C' 1.5000000E+01 

2 X3 = XI + X2 
'WATCH C' 1.6500000E+01 


.MAIN 

8 * STOP 


Bild 1: Beispiel einer Sitzung mit PROBE. Alle Benutzereingaben sind unterstrichen. Deutlich zu 
sehen ist das Problem mit den Pfaden. 


Parameter wirkt der Befehl auf alle 
Größen der aktuellen Programmein¬ 
heit. 

Goodies 

Nach Eingabe von PROFILE wird 
gezählt, wie oft jede Programmzeile 
ausgeführt wird. Gerade bei kom¬ 


plexen Programmen gewinnt man so 
wichtige Hinweise für die Optimie¬ 
rung. Mit LIST wird diese Liste 
ausgegeben, zuvor sollte natürlich 
das Mitschreiben der Ausgabe durch 
ECHO in die Datei PROBE.LOG 
eingeschaltet werden. Fragen Sie 
jetzt aber bitte nicht, in welchem 
Ordner diese Datei anschließend 
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»LIST 1..200 


1 * 

1 

A = 10. 

2 * 

1 

B = 5. 

3 * 

1 

CALL ADD (A, B, C) 

4 * 

1 

PRINT *, C 

5 * 

1 

B = 6.5 

6 * 

1 

CALL ADD (A, B, C) 

7 * 

1 

PRINT *, C 

8 * 


STOP 

9 * 


END 

10 + 

★ 


11 


SUBROUTINE ADD (XI, X2, X3) 

12 * 

2 

X3 = XI + X2 

13 * 

2 

RETURN 

14 * 

2 

END 

Listing 1: Ausgabe der mit dem Beispiel aus Bild 1 erzeugten Statistik. Das Hauptprogramm wurde 
einmal , das Unterprogramm zweimal ausgeführt. Alle ausführbaren Anweisungen werden mit * 

gekennzeichnet. 




gesucht werden muß! Ein weiteres 
ECHO schaltet die Ausgabe übrigens 
wieder ab. Die so erzeugte Liste für 
das Beispiel aus Bild 1 finden Sie in 
Listing 1. 

Ganz wichtig ist auch der Befehl 
STEP. Ohne Parameter wird genau 
eine Anweisung ausgeführt und dann 
die nächste zur Ausführung an¬ 
stehende Zeile angezeigt. Fehlt die 
‘.PRN’-Datei, dann wird nur die Zei¬ 
lennummer gemeldet. Und nun raten 
Sie mal, was passiert, wenn man eine 
Zahl als Parameter angibt! 

Mit ‘BREAK 8’ wird das Programm 
vor Ausführung der Anweisung in der 
Quellzeile Nummer 8 unterbrochen 
und PROBE meldet sich zurück. 
Warum hier gerade die Zeile Nummer 
8 angegeben wird? Schauen Sie sich 
einmal die Auflistung des Quellpro¬ 
gramms in Listing 1 an! Irgendwann 
muß man ja, bevor sich alles in 
Wohlgefallen auflöst, die mit PRO¬ 
FILE erzeugte Statistik ausgeben. 
Der Befehl WATCH ist wesentlich 
leistungsfähiger, als man zunächst 
glaubt. Man kann beispielsweise, wie 
hier geschehen, die Veränderung von 
Variablen oder Feldelementen über¬ 
wachen. Dies kann auch noch von 
Bedingungen abhängen, etwa 
‘WATCH "" C<=5.0’. Stets wird 
jedoch nicht einfach nur auf die Ver¬ 
wendung des angegebenen Namens 
in der aktuellen Programmeinheit 
geachtet; vielmehr wird jeder Zugriff 
auf den zugehörigen Speicherplatz 
auch aus aufgerufenen Unterpro¬ 
grammen gemeldet, wo die unter¬ 
suchte Größe natürlich ganz anders 
heißen kann. 


Kür verpatzt 

Während einer Sitzung mit PROBE 
kann durch den Befehl X ein be¬ 
liebiges anderes Programm gestartet 
werden. Längere PROBEn könnte 
man dadurch wesentlich erleichtern: 
Aus dem Desktop wird zunächst 
PROBE aufgerufen und dann erst die 
Workbench mittels des Kommandos 
‘X F_BENCH\ Während der ge¬ 
samten Sitzung läuft dann jedes mit 
der N-Option übersetzte Programm 
automatisch unter PROBE, ohne daß 
der Debugger jedesmal erneut aufge¬ 
rufen und geladen werden müßte. 
Dies klingt nun zwar alles sehr schön, 
zuvor sollten die Programment¬ 
wickler allerdings ihren Debugger 
selbst einmal debuggen. Nach dem 


Aufruf von PROBE und Eingabe des 
Befehls ‘X F_BENCH’ - der Cursor 
ist selbstverständlich nicht zu sehen - 
wird zunächst einmal der Quellcode 
eines mysteriösen Programms 
namens P03MG angemahnt. Dieses 
Ansinnen kann man nun mittels Re¬ 
turn-Taste zurückweisen und die 
Chose anschließend endlich durch 
den Befehl GO zum Laufen bringen. 
Der daraufhin sichtbare Anfangs¬ 
bildschirm der Workbench sieht 
allerdings schon recht merkwürdig 
aus; auch scheinen sich einige Zeiger 
zu verhaspeln, so daß bei mehr¬ 
fachem Start eines Programms mit 
(Altemate+R) dieses an unterschied¬ 
lichen Stellen begonnen wird. Wenn 
aber in Zukunft einmal alles so läuft, 
wie im Handbuch beschrieben, dann 
wäre dies gewiß ein enormer Kom¬ 
fort. 

Und nun 
zu den Menüs... 

Die für GEM charakteristischen Be¬ 
triebssystem-Routinen gliedern sich 
in zwei Hauptgruppen: AES (Appli¬ 
cation Environment Services) und 
VDI (Virtual Device Interface). Die 
VDI-Routinen dienen hauptsächlich 
der graphischen Ausgabe, während 
die AES-Routinen vor allem die 
WIMP-Benutzerschnittstelle verwal¬ 
ten. WIMP steht hier für “windows, 
icons, mice, pull-down menus”. Am 

geht weiter... 
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4 

5 

6 

7 

8 
< 

10 

11 

12: 

13: 

14: 

15: 

16 

17 

18 

19 

20 
21 
22 


PROG1.FOR 02-02-88 VK 
* Demonstration einiger GEM-Funktionen... 

- Menueleiste einrichten und anzeigen 

- Tochterprogramme starten 

- Textbox anzeigen 

PROGRAM PROG1 

r Verwendete Funktionen des Bindings... 

INTEGER*4 

menu_create, 

!erzeugt Menueleiste ohne RSC-Datei 
menu_title, [Menuepunkt anfu"gen 

menu_item, 

!Funktion an Menuepunkt anfu"gen 
AESret, !Parameter holen 

form_alert 

!zeichnet Alarm-(alert-)Box 


* Eigene Variable und Felder 
INTEGER*4 

MENUE_BAUM, 

MENUEI, MENUE2, 
FKT1, 

FKT2, FKT3, FKT4, 


[Adresse des Menue-Baums 
[Titel der Menues 1 und 2 
[Funktion von Menue 1 
[Funktionen von Menue 2 

Listing geht weiter... 


Listing 2: Das Oberprogramm PROG1. Die GEM-Funktionen sind in den Kommentaren erläutert, 
(u" = ii y "ii" ist unter dem von Prospero mitgelieferten Editor nicht verfügbar.) 
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23 

: 

GEW_MENUE / GEW_FKT, 

!gewa"hltes Menue und Funktion 

24 


DUMMY !Hilfsvariable 

25 


INTEGER*2 PUFFER(0:7) !Ergebnisse der Menuewahl 

26 


CHARACTER*4 TEXT !Ausgabe im Alarmfenster 

27 

★ 


28 


INCLUDE ' gemconst' 

29 

★ 


30 

* 

Hier werden die Menues aufgebaut... 

31 

* 


32 

★ 

{Immer zuerst GEM-Anwendung initialisieren} 

33 


CALL appl init 

34 


IF (AESretO .lt. 0) GOTO 999 
!Das ging schief! 

35 

★ 


36 

★ 

{Menuebaum mit erstem Menue erstellen} 

37 


MENUE_BAUM = menu_create ( 15, 15, 

' Wie immer '//char(O) ) 

38 

★ 


39 

★ 

{Weitere Menues anfu"gen} 

40 


MENUEI = menu_title( MENUE_BAUM, 

' Ausgang '//char(0) ) 

41 


MENUE2 = menu_title( MENUE_BAUM, 

' Programme '//char(0) ) 

42 

★ 


43 

★ 

{Funktionen fu"r Menues 1 und 2} 

44 


FKT1 = menu_item( MENUE_BAUM, MENUEI, 

' Ende'//char(0) ) 

45 


FKT2 = menu_item( MENUE_BAUM, MENUE2, 

' GEM-Meldung '//char(0) ) 

46 


FKT3 = menu_item( MENUE_BAUM, MENUE2, 

'-' //char (0)) 

47 


FKT4 = menu_item ( MENUE_BAUM, MENUE2, 

' TOS-Meldung '//char(0) ) 

48 

★ 


49 

* 

{Striche schattieren, damit Auswahl verhindern} 

50 


CALL menu_ienable ( MENUE_BAUM, FKT3, .FALSE. ) 

51 

★ 


52 

* 

{Menueleiste anzeigen} 

53 


CALL menu_bar( MENUE_BAUM, .TRUE. ) 

54 

* 


55 

* 

Jetzt wird gearbeitet... 

56 

* 


57 

10 

CALL evnt_mesag( PUFFER ) 

!Menue anbieten, auf Auswahl warten 

58: 


GEW_MENUE = PUFFER(3) 

!Gewa"hltes Menue und... 

59: 


GEW_FKT = PUFFER(4) 

!...daraus gewa"hlte Funktion 

60: 


IF (PUFFER(0) .EQ. MN_SELECTED) THEN 

61: 


IF (GEW_MENUE .EQ. 3) THEN 

!Menue 3 ist immer das Desk-Menue 

62 


DUMMY = form_alert ( 1, ' [ 1 ] ['// 

63 


' (C) Copyright: 1' // 

64 


' Gibt es fu"r ein so 1'// 

65 


'einfaches Programm nicht!]'// 

66 


'[Na klar!]'//char(0) ) 

67 


ELSEIF (GEW_FKT .EQ. FKT1) THEN 

68 


GOTO 999 

69 


ELSEIF (GEW_FKT .EQ. FKT2) THEN 

70 


DUMMY = form_alert ( 1, ' [1] ['// 

71 


'Gleich wird sich ein|'// 

72 


'GEM-Programm |' // 

73 


'bei Ihnen melden.]'// 

74 


'[Na los!]'//char(0) ) 

75 


CALL EXECPG( '\GEM1.PRG', DUMMY ) 

!Tochterprogramm nachladen 

76 


IF (DUMMY .NE. 0) THEN 

77 


WRITE (TEXT,' (14)') DUMMY 

78 


DUMMY = form_alert ( 1, ' [3] ['// 

79 


'Das GEM-Programm konnte|'// 

80 


'nicht gestartet werden.|'// 

81 


'Fehlercode: '//TEXT//']'// 

82 


'[Ich habe gepfuscht]'//char( 0 ) ) 

83 


ENDIF 

84 


ELSEIF (GEW_FKT .EQ. FKT4) THEN 

Listing 2 (Fortsetzung) Listing geht weiter... 


interessantesten ist sicher der Ein¬ 
stieg in AES, hier kann nun jeder For- 
tran-Programmierer seinen Program¬ 
men das GEM-typische Aussehen 
verleihen. 

Ohne RSC-Datei 

Bisher wurde hierzu immer eine be¬ 
sondere RSC-Datei benötigt, die alle 
Angaben zu Menues, deren Funk¬ 
tionen und sonstigen Ausgaben 
enthält und mit einem speziellen Edi¬ 
tor erstellt werden muß. Dies kann 
man zwar mit den Fortran-Program- 
men auch tun, jetzt gibt es jedoch 
noch zusätzlich die Möglichkeit, eine 
Menüleiste durch die Funktion 
menu_create dynamisch innerhalb 
eines Programms selbst zu erstellen. 
Unser Beispielprogramm in Listing 2 
macht davon Gebrauch. 

Was sind Bindings? 

Die AES-Routinen des Betriebssy¬ 
stems werden aus Maschinenpro¬ 
grammen, die üblicherweise in As¬ 
sembler geschrieben sind, über einen 
Software-Interrupt aufgerufen. 

Dies ist in Hochsprachen nicht ohne 
weiteres programmierbar, man 
benötigt hier einen Satz Unterpro¬ 
gramme, die die entsprechenden 
AES- (oder auch VDI-) Funktionen 
aufrufen und dabei auch, falls nötig, 
das Umsetzen von Parametern besor¬ 
gen. Diese Unterprogramme sind die 
sogenannten “Bindings”, die man 
etwa bei jedem C-Compiler für den 
ATARI mitbekommt. In Prospero- 
Fortran sind, ab Version 2, solche 
Bindings nun ebenfalls, wohl¬ 
dokumentiert, enthalten. 

Einarbeiten mit 
Handbuch 

Für die AES- und VDI-Bindings 
von Prospero wird jeweils ein 
Handbuch mit etwa 250 Seiten Um¬ 
fang mitgeliefert. Die Qualität dieser 
Handbücher ist so gut, daß man sich 
damit auch ohne zusätzliche Literatur 
in die GEM-Programmierung einar- 
beiten kann. Zumindest die ersten 
Gehversuche werden gut unterstützt, 
wobei allerdings auch die mitgelie¬ 
ferten Beispielprogramme wertvolle 
Hilfestellung leisten. 
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85 

DUMMY = form alert( 1, '[1] ['// 

86 

'Gleich wird ein!'// 

87 

'TOS-Programm|' // 

88 

'eine Ausgabe abliefern]'// 

89 

'[Her damit!]'//char(0) ) 

90 

CALL EXECPG( '\TOSl.PRG', DUMMY ) 


!Tochterprogramm nachladen 

91 

IF (DUMMY .NE. 0) THEN 

92 

WRITE (TEXT, ' (14) ' ) DUMMY 

93 

DUMMY = form alert ( 1, '[3] [ '// 

94 

'Das TOS-Programm konnte \ 9 // 

95 

'nicht gestartet werden.!'// 

96 

'Fehlercode: '//TEXT//']'// 

97 

'[Ich habe gepfuscht]'//char(0) ) 

98 

ELSE 

99 

CALL menu_bar( MENUE_BAUM, .TRUE. ) 


!Bildschirm aufra"umen 

100 

ENDIF 

101 

ENDIF 

102 

★ 

103 

* {'Reverse Video' fu"r gewa"hltes Menue aufheben } 

104 

CALL menu tnormal( MENUE_BAUM, GEW_MENUE, 


.TRUE. ) 

105 

ENDIF 

106 

GOTO 10 

107 

999 CALL appl_exit 

108 

END 


Listing 2 (Ende) 


1 

PROGRAM GEM1 

2 

CALL appl_init 

3 

IF (AESret () .lt. 0) GOTO 999 


!Das ging schief! 

4 

DUMMY = form_alert ( 1, '[1][V/ 

5 

'Hier ist das!'// 

6 

' GEM-P rogramm \'// 

7 

'[Weiss ich!]'//char(0) ) 

8 

- 999 CALL appl_exit 

9 

END 

10 


Listing 3: GEM1 , ein ordentlicher GEM-Benutzer 


1 

PROGRAM TOS1 

2 

CHARACTER DUMMY 

3 

PRINT*, 


'Hallo, hier ist TOS1 ! 

4: 

: PRINT*, 


'Leider ist jetzt das Desktop nicht mehr scho"n.' 

5: 

: PRINT*, 

'Weiter geht es mit <RETURN> ' 

6 

READ (*, ' (A) ' ) DUMMY 

7 

STOP 

8 

END 

Listing 4: TOS1, ohne alle GEM-Zutaten 


Zu den Bindings 

Die originalen AES-Routinen geben 
meist einen Parameter zurück, der oft 
aber nicht benötigt wird. Viele AES- 
Funktionen werden daher in Fortran 
in SUBROUTINE-Aufrufe umge¬ 
setzt; wird der Ergebnisparameter 
doch einmal benötigt, so kann man 
ihn nachträglich noch mittels der 
Funktion AESret abholen. Datenaus¬ 
tausch mit den AES-Routinen des 
Betriebssystems geschieht über 
Speicherbereiche, deren Start¬ 


adressen der jeweiligen Funktion 
mitgeteilt werden. In den Fortran- 
Bindings wird dies über benannte 
COMMON-Bereiche realisiert, 
deren Namen alle mit den vier 
Zeichen “AES_” beginnen. Ähnlich 
ist es bei den VDI-Bindings. In den 
Bindings wird bei Bedarf noch eine 
Umwandlung von INTEGER*4- 
Konstanten (aus dem rufenden Pro¬ 
gramm) in INTEGER*2-Werte (zum 
Betriebssystem) vorgenommen. 
Einige für den Aufruf der GEM-Bin- 
dings nützliche Konstanten werden 


durch PARAMETER- und Typ- 
Anweisungen in der mitgelieferten 
Datei GEMCONST.FOR vereinbart, 
die der Programmierer mittels 1N- 
CLUDE-Anweisung ins Quellpro¬ 
gramm integrieren kann. In unserem 
Beispielprogramm in Listing 3 wird 
dies zur Erläuterung auch getan, 
obwohl lediglich die Konstante 
MN_SELECTED benötigt wird. 

Die Beispiel¬ 
programme 

Zur Demonstration der Anwendung 
einiger AES-Funktionen dienen die 
Programme PROG1, GEM1 und 
TOS1 aus den Listings 3, 4 und 5. In 
PROG1 wird ein Menü aufgebaut, 
mit dem im wesentlichen die Pro¬ 
gramme GEM1 und TOS1 hinzuge¬ 
laden und ausgeführt werden können. 
Dies sind vollkommen selbständige 
Programme, keine Unterprogramme! 
In diesem Sinne ist PROG1 eine soge¬ 
nannte “Shell". Das Programm 
erklärt sich durch die im Quellcode 
eingebrachten Kommentare weitge¬ 
hend selbst. Grundsätzlich wird zu 
Beginn jedes GEM-Programms mit 
appl_init Arbeitsspeicher reserviert, 
der am Ende mit appl_exit wieder 
freigegeben werden muß. GEM1 
zeigt einen kleinen Text unter GEM 
an und arbeitet mit PROG1 gut 
zusammen. TOS1 dagegen ist ein 
reines TOS-Programm und zerstört 
den Bildschirmaufbau des rufenden 
GEM-Programms. Um den Effekt 
vorzuführen, wird dies in PROG1 
nicht verhindert. Die Anzahl der For¬ 
malparameter der Routine 
menu_create weicht in den Bei¬ 
spielprogrammen von Prospero vom 
Handbuch ab; da es mit der Verdop¬ 
pelung des ersten Parameters 
(bisher!) keine Fehlfunktionen gab, 
haben wir uns hier an die Beispielpro¬ 
gramme gehalten. 

Bleibt also noch, unseren Lesern viel 
Spaß beim Fensterin in Fortran zu 
wünschen. In einer der nächsten 
Ausgaben werden wir ein größeres 
Programm vorstellen, bei dem die 
Möglichkeiten des GEM ausgiebig 
verwendet und erläutert werden. 

Dr. V. Kur: 


ENDE 
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DATA BECKER 
Führer 

zum ATARI ST 
240 Seiten 
DM 29,80 


DATA BECKER 
Führer 

zu GFA-BASIC 
254 Seiten 
DM 24,80 


Auspocken und gleich loslegen. 
Atari ST für Einsteiger macht’s 
möglich. Vom Aufstellen und 
Anschließen über die Arbeit mit 
dem GEM-Desktop bis hin zum ST- 
BASIC - mit diesem Buch haben 
Sie die optimale Einführung zu 
Ihrem neuen Rechner. So ist der 
Erfolg bei Ihrer späteren Arbeit 
sozusagen schon vorprogrammiert. 
ATARI ST für Einsteiger 
248 Seiten, DM 29,- 

Das meistverkaufte Buch zu GFA- 
BASIC - und das nicht ohne Grund. 
Denn hier lernen Sie den komplet¬ 
ten Befehlssatz des GFA-BASIC 
Version 2.0 und den GFA-Compiler 
anhand zahlreicher Beispielpro¬ 
gramme kennen. Ganz ohne die 
sonst übliche, nackte Befehlsüber¬ 
sicht. Das große GFA-BASIC-Buch - 
natürlich mit einem ausführlichen 
Einsteigerteil. 

Das große GFA-BASIC-Buch 
Hardcover, 574 Seiten 
DM 49,- 

Das Buch zum neuen Super-ST. 
Einstieg, DTP, Arbeiten mit Laser¬ 
drucker und Festplatte, TOS, Blit- 
ter, Betriebssystem-Programmie¬ 
rung - was Sie zum MEGA ST wis¬ 
sen müssen, finden Sie hier. Mit 
kommentiertem TOS-Blitter-Listing. 
Mit diesem Buch liegt Ihnen die 
gesamte Mega-Power zu Füßen. 
Das große MEGA-ST-Buch 
Hardcover, ca. 400 Seiten 
inkl. Diskette, DM 69,- 

Drei Bücher zum ATARI ST ersparen 
Ihnen das lange Suchen im Hand¬ 
buch oder in der Fachliteratur. 

Fehlt Ihnen eine bestimmte 
Information, können Sie immer 
ganz gezielt nachschlagen: 

Die DATA BECKER Führer - die 
erfolgreichste und kompletteste 
Serie ihrer Art. Kompetent, zuver¬ 
lässig und immer griffbereit. 




b 


Das Supergrafikbuch zum ST - 
vollgepackt mit dem Know-how, 
das jeder engagierte ST-Anwender 
braucht. Von den Grundlagen bis zu 
speziellen Problemlösungen wie 
Programmierung eines Rasterinter¬ 
rupts oder einer flackerfreien 
Animation finden Sie hier alles 
zum Thema Grafik. Mit zahlreichen 
Utilities in GFA-BASIC, C und 
Assembler. Ein Buch nicht nur für 
Grafik-Freaks. 

Das Supergrafikbuch zum 
ATARI ST 

Hardcover, 838 Seiten 
inkl. Diskette, DM 69,- 

Alles zu der Textverarbeitung 
Ist Word Plus - einschließlich der 
Zusatzprogramme Ist Mail, 

Ist Lektor, Ist Proportional und 
Ist Index. Mit vielen Tips und 
Lösungen aus der praktischen 
Arbeit. Nicht nur ein Lehrbuch, 
sondern auch ein hervorragendes 
Nachschlagewerk. 

Das große Buch zu 
Ist Word Plus 
Hardcover, 288 Seiten 
inkl. Diskette, DM 59,- 

Intern-Bände von DATA BECKER sind 
seit jeher Informationspakete ganz 
besonderer Art. So auch hier: Von 
der Pinbelegung bis hin zum kom¬ 
mentierten BIOS-Listing wird jedes 
Detail Ihres Rechners ausführlich 
beschrieben - natürlich auch der 
Atari-Blitter. Einfach die Pflicht¬ 
lektüre für den ST-Profi. 

ATARI ST Intern 
Hardcover, 637 Seiten 
DM 69,- 

COUPON 


DATA BECKER 
Führer 
zu Ist Word 
192 Seiten 
DM 24,80 


HIERMIT BESTELLE ICH 


NAME, VORNAME 


DATA BECKER 

Merowingerstr. 30 ■ 4000 Düsseldorf Tel. (0211) 310010 


STRASSE, ORT 

zzgl. DM 5,- Versandkosten unabhängig von der bestellten Stückzahl 
□ per Nachnahme □ Verrechnungsscheck liegt bei 
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HD-PACK 

Mehr Geschwindigkeit 
durch Ordnung auf der Festplatte 


HDPack: 


Version l.Z 18.10.1987 Florian Matthes 


Buchstabe des logischen Laufwerkes (z.B. ’C') ==>F 

Bitte bestätigen Sie die Optinierung für Laufwerk F; 
durch die Eingabe des Buchstabens 1 P 1 ! 

WARNUNG 

Unterbrechen Sie keinesfalls den Progrannablauf nach der 
Eingabe von 'P 1 , da dies sicher zun Verlust von Dateien und 
Directories führen würde! 

==> 


Welcher Besitzer einer Festplatte 
kennt nicht das Problem: Nach 
einiger Zeit scheinen Lese- und 
Schreiboperationen immer lang¬ 
samer zu werden. Neben dem psy¬ 
chologischen Phänomen der 
Gewöhnung des Benutzers an die 
Geschwindigkeit des neuen Ge¬ 
rätes liegt dies vor allem an der 
entstandenen Unordnung auf der 
Platte. Ordnung schafft zum 
Beispiel HD-Pack, geschrieben in 
Modula-2. 

Dieses Programm reorganisiert die 
Verteilung der Cluster aller Files und 
Directories innerhalb einer logischen 
Partition der Festplatte. Dabei wer¬ 
den Files und Directories in zwei 
Bereichen der Festplatte dicht an 
dicht gespeichert, um die Anzahl der 
Bewegungen der Leseköpfe auf der 
Festplatte bei der Suche in In¬ 
haltsverzeichnissen und beim Lesen 
und Schreiben von Files auf ein Mini¬ 
mum zu reduzieren. 

Das Ergebnis eines einmaligen Reor¬ 
ganisationslaufes ist eine deutlich 
erhöhte Geschwindigkeit bei nach¬ 
folgenden Lade- und Schreibopera¬ 
tionen für diese Partition. Insbeson¬ 
dere bei I/O-intensiven Programmen 
(z.B. ST-TeX, Modula- und C-Com- 
pilem) kann bei einer vollen Partition 
eine bis zu 6-fach kürzere Pro¬ 
grammlaufzeit erreicht werden. 

Bedienung des 
Programmes 

Nach dem Programmstart genügen 
die Eingabe des Laufwerksbuch¬ 
stabens der zu optimierenden Parti- 


So meldet sich HD-Pack 

tion (z.B. C’) und eine Bestätigung 
mit der Taste ‘P\ um die Reorganisa¬ 
tion zu starten. Die Arbeitszeit des 
Programmes hängt stark von der 
Belegung der Platte ab: Bei regel¬ 
mäßigen Reorganisationsläufen 
genügen 5 Minuten für eine 16- 
Megabyte-Partition, während der er¬ 
ste Lauf durchaus auch einmal eine 
halbe Stunde dauern kann. 

Am Ende des Programmes müssen 
Sie den Rechner mit der RESET- 
Taste neu booten, damit das GEM- 
Desktop wieder korrekt initialisiert. 
wird. Ein Abbruch des Programmes 
während der Programmausführung 
führt jedoch in 99% der Fälle zu 
einem Verlust großer Datenmengen 
in der bearbeiteten Partition. 
Außerdem sollten Sie das Programm 
direkt nach dem Abtippen erst einmal 
auf einer Partition laufen lassen, von 
deren Inhalt Sie sich Backup-Kopien 
erstellt haben. (Falls Sie sich so eine 
Partition völlig zerstört haben, hilft 
nur noch die Option ZERO im Pro¬ 
gramm HDX.PRG.) 


Aufräumen tut not 

Hier soll nicht zum x-ten Mal das 
Betriebssystem GEMDOS des 
ATARI beschrieben werden. Diese 
Informationen, das Verständnis der 
verwendeten Optimierungsmethode 
betreffend, finden Sie u.a. in den am 
Schluß des Artikel aufgelisteten 
Grundlagenartikeln. An dieser Stelle 
soll nur das Prinzip von HD-Pack 
Thema sein: 

GEMDOS, als die oberste Ebene des 
Betriebssystems TOS, besitzt unter 
anderem eine Mittlerrolle zwischen 
dem Anwenderprogramm, das mit 
Begriffen wie Datei, Directory, 
Laufwerk arbeitet, und der geräte¬ 
nahen Ebene des BIOS, das nur 
Geräte kennt, auf denen jeweils eine 
Anzahl von Blöcken (genannt Clu¬ 
ster) direkt adressiert werden kann. 
Jeder Cluster seinerseits umfaßt einen 
oder mehrere Sektoren, die jeweils 
eine feste Größe besitzen. 

geht weiter... 
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So ist z.B. die Partition C:’ für das 
BIOS ein Gerät mit der Nummer 2, 
das 16384 Cluster besitzt, von denen 
jeder 2 Sektoren mit je 512 Bytes 
umfaßt. Jedes Lesen eines In¬ 
haltsverzeichnisses, einer Datei, das 
Anlegen und Löschen von Dateien 
etc. wird von GEMDOS in eine Folge 
von Lese- und Schreibbefehlen für 
Sektoren auf einem bestimmten Gerät 
abgebildet, die an BIOS weitergelei¬ 
tet werden. 

Dabei geht GEMDOS davon aus, daß 
Cluster aufeinanderfolgender Num¬ 
mern auch physikalisch (auf der 
Floppy oder auf der Festplatte) nahe 
beieinander liegen, so daß Dateien, 
soweit möglich, nicht über viele weit 
auseinanderliegende Cluster ver¬ 
streut werden. Im Laufe der Zeit 
(nach vielen Schreib- und Lösch¬ 
vorgängen) ist GEMDOS jedoch 
gezwungen, dies dennoch zu tun. 
Besonders unangenehm ist das, falls 
es sich nicht um normale Dateien, 
sondern um Unterverzeichnisse (Di- 
rectories) handelt, da diese besonders 
häufig gelesen werden müssen. 

Schiebung 
auf der Platte 

Hier setzt nun HDPack ein: Für eine 
gegebene Plattenbelegung verschiebt 
es alle Directories direkt zum ‘An¬ 
fang’ der Festplatte (niedrige Cluster¬ 
nummern), während alle übrigen 
Dateien zum ‘Ende' der Festplatte 
verschoben werden. Außerdem wer¬ 
den alle Directories so sortiert, daß 
alle Subdirectory-Einträge vor den 
restlichen Dateinamen stehen. 

Sind im obigen Beispiel 1000 Cluster 
auf der Platte unbelegt, sowie 50 
Cluster für Unterverzeichnisse be¬ 
legt, ergibt sich die folgende optimi¬ 
erte Belegung: 

Cluster 0 bis 49 Directories 
Cluster 50 bis 1049 frei 
Cluster 1050 bis 16383 übrige Dateien 

Die Lücke direkt nach den Directories 
sorgt dafür, daß GEMDOS auch nach 
vielen Löschoperationen immci noch 
schnell freie Cluster finden wird. 

Da es nicht möglich ist, zunächst die 
Festplatte zu leeren, um anschließend 
die Files in einer besseren Reihen¬ 
folge zu speichern, wird die Festplatte 
durch eine Folge von Clusterver¬ 
tauschungen reorganisiert: Zum Re¬ 


organisieren einer Datei (oder eines 
Directories) werden ihre Cluster 
nacheinander durchlaufen. Für jeden 
Cluster wird seine Zielposition 
(DestCluster) bestimmt. Ist dieser 
Cluster frei, kann der Clusterinhalt 
direkt nach DestCluster geschrieben 
werden. Ansonsten wird der Inhalt 
des Clusters mit DestCluster ver¬ 
tauscht. 

Beispiel: Die erste zu verschiebende 
Datei befindet sich auf den Clustern 
15,300,500,501,502,503 und 1052. 
Sie soll (s.o.) zu den Clustern 1050, 
1051 bis 1056 verschoben werden. 
Dabei sind die Cluster 1052 bis 1054 
belegt. Dazu sind folgende Opera¬ 
tionen erforderlich: 

Schreibe Cluster 15 nach 1050 
Schreibe Cluster 300 nach 1051 
Tausche Cluster 500 mit 1052 
Tausche Cluster 501 mit 1053 
Tausche Cluster 502 mit 1054 
Schreibe Cluster 503 nach 1055 
Schreibe Cluster 500 nach 1056 (!) 


Bis auf die letzte Zeile sollten Ihnen 
diese Operationen klar sein. Jedoch 
wurde in der letzten Zeile nicht, wie 
erwartet, Cluster 1052 nach 1056 
geschrieben. Das liegt daran, daß 
bereits im 3. Schritt der Inhalt von 
Cluster 1052 nach Cluster 500 ver¬ 
schoben wurde. 

Programmdetails 

Dieser einfache Algorithmus ist der 
Kern des gesamten Programmes. Die 
Größe des Programmes resultiert 
daraus, daß es bei der Verschiebung 
einer Datei erforderlich ist, Verweise 
auf den jeweiligen Cluster zu aktuali¬ 
sieren: 

1. Die FAT enthält zu jedem 
belegten Cluster der Platte einen 
Verweis auf seinen Nachfolger 
(oder den Wert EOFCluster). 

2. Im Inhaltsverzeichnis existiert 
zu jedem Filenamen ein Verweis 
(StartCluster) auf den ersten 
belegten Cluster der Datei. 

Neben dieser Buchführungsarbeit 
werden alle Operationen am Bild¬ 
schirm protokolliert und Lese- oder 
Schreibfehler intelligent abgefangen, 
um Datenverluste zu vermeiden. 


Das Hauptprogramm (Listing auf- 
schlagen!) läßt sich in die folgenden 
Schritte aufteilen: Zunächst wird 
BIOS gebeten, nähere Details über 
die Festplattenpartition preiszugeben 
(BIOS(7) Routine, genannt BIOS. 
GetBPB). 

Hier wird nun überprüft, ob HD-Pack 
mit diesen Informationen arbeiten 
kann: Während auf einer Floppy jeder 
FAT-Eintrag 1.5 Bytes benötigt, sind 
auf einer Festplatte 2 Bytes erforder¬ 
lich, um die große Anzahl an Clustern 
indizieren zu können. Desweiteren 
wird die Größe von Sektoren, Cluster 
und Platte in globalen Variablen 
aufbewahrt. 

Nun werden die beiden File Alloca¬ 
tion Tables (FAT 1 und 2) gelesen und 
auf Gleichheit getestet. Nur wenn 
Ihre Festplatte schweren Schaden 
genommen hat, werden diese nicht 
übereinstimmen, so daß Sie vor dem 
Start von HDPACK.PRG mit dem 
von ATARI gelieferten Festplatten- 
Hilfsprogramm HDX.PRG und der 
Option MARKBAD retten müssen, 
was noch zu retten ist. 

Während des Vertauschungspro¬ 
zesses werden zwei Informationen 
für jeden Cluster benötigt: Wo stand 
dieser Cluster vor dem Beginn des 
Optimierens? Wohin ist der 
ursprüngliche Inhalt des Clusters 
verschoben worden? Diese Daten 
werden in den Arrays NewPos und 
OldPos ständig aktualisiert. Dem¬ 
entsprechend werden diese beiden 
Arrays vor dem Optimieren initiali¬ 
siert. 

Die Prozedur SortDirectory stellt 
Unterverzeichniseinträge in Ver¬ 
zeichnissen an den Anfang, so daß 
diese später von GEMDOS schneller 
gefunden werden können. Diese 
minimale Optimierung kann bei Be¬ 
darf ersatzlos gestrichen werden, da 
sie nicht Vorbedingung für die nach¬ 
folgenden Verschiebungen ist. 

Mit MakeNewFAT wird eine FAT 
erzeugt, in der alle Cluster als frei 
markiert sind. Wie später auch bei 
MoveFile werden defekte Sektoren, 
die in HDX.PRG mit der Option 
MARKBAD als unbrauchbar ge¬ 
kennzeichnet wurden, ausgelassen. 
Anschließend werden mit rekursiven 
Aufrufen von CompactDirectory die 
(geschachtelten) Inhaltsverzeich¬ 
nisse ab dem ersten verfügbaren Clu¬ 
ster auf Platte (FirstCluster) 
gespeichert. Dabei wird gleichzeitig 
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die Variable DestCluster erhöht. 
Nach den Inhaltsverzeichnissen wird 
eine maximal große Lücke von Num- 
berFree Clustern gelassen. Nach die¬ 
ser Lücke folgen nun die Dateien, die 
mit CompactFiles (ebenfalls rekur¬ 
siv) dicht an dicht gespeichert wer¬ 
den. Am Ende dieser Operation hat 
DestCluster den letzten adressier¬ 
baren Cluster auf der Platte erreicht. 
Während NewFAT bereits durch 
MoveFile aktualisiert wird, müssen 
die Verweise im Directory auf den 
Beginn jeder Datei und jedes Un¬ 
terverzeichnisses explizit mit Up- 
dateLinks (rekursiv) nachgetragen 
werden. 

Schließlich wird NewFAT in zwei¬ 
facher Ausfertigung zurück auf Platte 
geschrieben. 

Weitere Details finden sich im (hof¬ 
fentlich) ausreichend dokumentier¬ 
ten Listing, wobei Sie insbesondere 
auf die Kommentare bei den Varia¬ 
blen und Konstanten achten sollten. 


Andere Programmier¬ 
sprachen 

Für Pascal- und C-Programmierer, 
die ein wenig Verständnis von Mo¬ 
dula-2 haben, ist eine Umsetzung in 
ihre Lieblingssprache mit den obigen 
Hinweisen und dem Listing sicher 
nicht schwierig. Für BASIC-Pro- 
grammierer und absolute Assembler- 
Fanatiker könnte die Rekursion in 
CompactDirectory, CompactFiles 
sowie UpdateLinks problematisch 
sein. Hier hilft die Standardmethode, 
lokale Variablen (hier also i, x, r, 
StartCl) auf einem Stack zu spei¬ 
chern. 

Untypischerweise werden in HD- 
Pack fast keine Importe aus anderen 
Modulen vorgenommen, so daß nur 


die Operationen BIOS(4) (BIOS.RW 
Abs) und BIOS(7) (BIOS.GetBPB) 
und der Typ BIOS.BPBPtr (s. ca. 
Zeile 75 des Listings) extern dekla¬ 
riert werden müssen. 

Florian Matthes 


Referenzen 

Das Betriebssystem des Atari ST 
c't 6/86 

Das Betriebssystem des Atari ST 

c’t 10/86 S. 122 

FAT, Cluster und halbe Bytes 

mc 9/86 S. 46 

Das ST Betriebssystem (2) 

ST 5/86 S. 49 

Das ST Betriebssystem (4) 

ST 7/86 S. 30 
Floppy Spielereien (1) 

ST 6/87 S. 20 
Floppy-Spielereien (2) 
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1: MODULE HDPack; 

2: (* Optimiere Festplattenbelegung: 

3: - Sortiere Verzeichnisse so, daß Unterver¬ 

zeichnisse vor den Files stehen 
4: - Speichere alle (Unter-)Verzeichnisse ab 

dem 'Anfang' der Festplatte 
5: - Speichere alle Datenfiles ab dem 'Ende' 

der Festplatte 

6 : 

7: Florian Matthes 18.10.1987 (TDI-Modula 

Version 3.0) 

8 : 

9: *) 

10: FROM SYSTEM IMPORT ADR, ADDRESS, TSIZE; 

11: FROM InOut IMPORT WriteCard, WriteString, 

WriteLn, Write, Read; 


12: 

IMPORT 

BIOS; 


13: 

14: 

CONST 

(* Spezielle 

Einträge in der FAT: 

15: 


FreeCluster 

= 0; (* dieser Cluster 

16: 


FirstCluster 

ist unbelegt *) 
=2; (* Offset zur 

17: 


BadCluster 

Umwandlung Cluster-Sektor *) 
= 0FFF7H; (* dieser 

18: 

19: 


Cluster ist defekt *) 

(* z.B. Plattenfehler (nicht 
verwenden) *) 

EOFCluster = 0FFF8H; (* Cluster mit 


diesem oder einem höheren *) 


20: (* Index sind der letzte Cluster eines *) 

21: (* Files *) 

22: MaxPhysCluster= 03FFFH; (* maximale 

Clustergröße für HDPack *) 
23: (* ==> FAT ist kleiner als 64K *) 

24: MaxCluster = 0FFFFH; (* theoretisches 

Maximum und auch *) 
25: (* von ATARI-BIOS tatsächlich erwartetes *) 

26: (* EOFCluster *) 

27: 

28: • MaxDirectoryBlocks =64; (* beschränkt 

Sektorgröße in HDPack auf *) 
29: (* 64*TSIZE(DirectoryRecord)= 64K *) 

30: 

31: (* der Inhalt des ersten Buchstabens eines 

Filenamens in einem *) 

32: (* Directory kennzeichnet dessen Typ: *) 

33: FreeName = 0H; (* Eintrag noch 

nie benutzt *) 

34: UnusedName = 0E5H; (* Eintrag nicht 


35: 

36: 

37: 

38: 

39: 

40: 

41: 

42: 

43: 

44: 

45: 

46: 

47: 

48: 

49: 

50: 

51: 

52: 

53: 

54: 

55: 

56: 

57: 

58: 

59: 

60: 

61: 

62: 

63: 

64: 

65: 

66 : 

67: 

68: 

69: 

70: 


mehr benutzt *) 

SpecialName = 02EH; (* = ORD('.') 

reservierte Namen: *) 
(* '.' zeigt auf lfd. Directory *) 

(* '..' zeigt auf VaterDirectory *) 

TYPE Clusterlndex = [0..MaxCluster]; 

Clusterlndex8086 = CARDINAL; 

(* Wie bei 80xxx Prozessoren: H und L-Byte 

vertauscht *) 

attributset = SET OF (readonlyattr, 
hiddenattr, 
systemattr, 
volumeattr, 
subdirattr, 

(* dieses File ist ein Directory *) 
archivattr) ; 

DirectoryRecord = RECORD 

Name : 

ARRAY(0..10] OF CHAR; 

(* Filename und Extension *) 
Attr : 

attributset; 

(* Typ des Files *) 

res : 

ARRAY[0..13] OF CHAR; 

(* reserviert *) 

StartCluster: 
Clusterlndex; 

(* 1. Cluster des Files *) 

Size : 

LONG CARD; 

(* Filegröße in Bytes *) 

END; 

DirectoryArray = ARRAY 

(0..MaxDirectoryBlocks-1] OF DirectoryRecord; 

(* Struktur eines Sektors in einem Directory *) 

VAR (* Die 'File Allocation Table' enthält 

folgende Informationen: 

Index 0 Format Version 
1 unbenutzt 

2..MaxPhysCluster Belegung des 
jeweiligen Clusters 
OrgFAT : FAT vor dem Optimieren 
NewFAT : FAT nach dem Optimieren 

*) 

OrgFAT, NewFAT : ARRAY 

[0..MaxPhysCluster] OF Clusterlndex8086; 


geht weiter... 
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71: 

72: 

73: 

74: 

75: 

76: 

77: 

78: 

79: 

80: 

81: 

82: 

83: 

84: 

85: 

86 : 

87: 

88 : 

89: 

90: 

91: 

92: 

93: 

94: 

95: 

96: 

97: 

98: 

99: 

100 : 

101 : 

102: 

103: 

104: 

105: 

106: 

107: 

108: 

109: 

110 : 

111 : 

112 : 

113: 

114: 

115: 

116: 

117: 

118: 

119: 

120 : 

121 : 

122 : 

123: 

124: 

125: 

126: 

127: 

128: 

129: 

130: 

131: 

132: 

133: 

134: 


NewPos, OldPos : ARRAY 

[0..MaxPhysCluster] OF Clusterlndex; 

(* NewPos[i] liefert die momentane 
Position des ehemals i-ten Cluster 
OldPos[i] liefert die ehemalige Position 
des momentan i-ten Cluster 
*) 

BPBPtr : BIOS.BPBPtr; 

(* Zeiger auf BIOS Parameterblock für dev. 
Die Deklaration in BIOS ist: 

POINTER TO RECORD 

recsiz, clsiz, clsizb, 
rdlen, fsiz, 
fatrec, datrec, numcl, 
bflags: CARDINAL; 

END; 

*) 

dev : CARDINAL; 

(* Gerätenummer 0 = 'A: 7 , 1 = 7 B: 7 *) 

(* aus BPBPtr A abgeleitete Größen: *) 

SectorsPerCluster : CARDINAL; 

FirstDataSector : CARDINAL; 

DirectoryRecordsPerSector: CARDINAL; 
FirstDirectorySector : CARDINAL; 

PROCEDURE Abort(x: ARRAY OF CHAR; nochanges: 
BOOLEAN); 

(* Programmabbruch mit Fehlermeldung 
*) 

BEGIN 

WriteLn; WriteString(x); WriteLn; 

IF nochanges THEN 

WriteString('Keine Änderungen auf Platte 
durchgeführt. 7 ); 

ELSE 

WriteString('Leider sind wahrscheinlich 
einige Files zerstört worden. 7 ); 

END; 

WriteLn; 

WriteString('weiter mit einer beliebigen 

Taste_ 7 ); WriteLn; 

Read(CH); 

HALT; (* Beende Programmausführung mit 
Fehlermeldung *) 

END Abort; 

PROCEDURE SwapLH(x:CARDINAL): CARDINAL; 

(* Tausche Low und High-Byte (Umwandlung 
zwischen 80xx - 68000 Format) 

*) 

BEGIN 

RETURN 256 * (x MOD 256) + (x DIV 256) 

END SwapLH; 

PROCEDURE ClusterToSector(x: Clusterlndex): 
CARDINAL; 

(* Berechne den ersten Sektor, in dem der 
Cluster x beginnt 

*) 

BEGIN 

RETURN (x-FirstCluster) * 

SectorsPerCluster + FirstDataSector; 
END ClusterToSector; 

PROCEDURE SectorToCluster(x: CARDINAL): 

Clusterlndex; 

(* Berechne den Cluster, in dem sich der 
Sektor x befindet 

*) 

BEGIN 

RETURN (x-FirstDataSector) DIV 

SectorsPerCluster + FirstCluster; 
END SectorToCluster; 

PROCEDURE Next(x:ClusterIndex):ClusterIndex; 
(* liefere den Nachfolger des Clusters gemäß 
FAT 

*) 

BEGIN 

RETURN SwapLH(OrgFAT[ x ]) ; 

END Next; 

PROCEDURE ReadAbs(buf : ADDRESS; 

(* in diesen Puffer *) 
count : CARDINAL; 

(* Anzahl der Sektoren *) 


135: 

136: 

137: 

138: 

139: 

140: 

141: 

142: 

143: 

144: 

145: 

146: 

147: 

148: 

149: 

150: 


151: 

152: 

153: 

154: 

155: 

156: 

157: 

158: 

159: 

160: 

161: 

162: 

163: 

164: 

165: 

166: 

167: 

168: 

169: 

170: 

171: 

172: 

173: 

174: 

175: 

176: 

177: 

178: 

179: 

180: 

181: 

182: 

183: 

184: 

185: 

186: 

187: 

188: 

189: 

190: 


recno : CARDINAL; 

(* Index erster Sektor *) 
VAR errorcode: CARDINAL); 
(* BIOS-Erfolgsmeldung *) 

BEGIN 

errorcode:= CARDINAL(BIOS.RWAbs(BIOS.Read, 
buf,count,recno,dev)); 

END ReadAbs; 

PROCEDURE WriteAbs(buf : ADDRESS; 

(* in diesen Puffer *) 
count : CARDINAL; 

(* Anzahl der Sektoren *) 

recno : CARDINAL; 

(* Index erster Sektor *) 
VAR errorcode: CARDINAL); 
(* BIOS-Erfolgsmeldung *) 

BEGIN 

errorcode:=CARDINAL(BIOS.RWAbs(BIOS.Write, 
buf,count,recno,dev)); 

END WriteAbs; 


PROCEDURE LocateDirectoryRecord(Cluster, 
Index : CARDINAL; 

VAR Sector, Offset : 
CARDINAL) 

: BOOLEAN; 

(* Lokalisiere indizierten Directory-Eintrag 
auf der Platte. Beachte 

bereits stattgefundene Tauschoperationen. 
Das Funktionsergebnis ist FALSE, falls 
dieser Eintrag nicht existiert. 

Eingabe: 

Cluster: 1.Cluster des zu bearbeitenden 

Directories (Position 

vor dem Optimieren) . Ist Cluster = 0, 

so handelt es sich 

um das Wurzelverzeichnis. 

Index : Index des gewünschten 

Eintrages (ab 0 gezählt) 

Ausgabe: 

Sector : Sektor, in dem sich der 

Eintrag auf Platte befindet 
Offset : Index des Eintrages in diesem 
Sector (ab 0 gezählt) 

Beispiel : 

LocateDirectoryRecord(1234, 15, sec, 
offs) 

bestimmt den Sektor, in dem der 16. 
Filenamen des Unterverzeichnisses 
steht, das im Cluster 1234 beginnt. 
Innerhalb dieses Sektors (sec) steht 
der Filenamen an der Position offs. 

*) 

BEGIN 

IF Cluster = 0 THEN 

(* Suche im Wurzelverzeichnis *) 
Sector:* Index DIV 

DirectoryRecordsPerSector; 

IF Sector+l>BPBPtr A .rdlen THEN 

(* nicht über das Ende hinausgehen *) 
RETURN FALSE 
END; 

INC(Sector, FirstDirectorySector); 

ELSE 

LOOP 

(* durchlaufe das Directory sektorweise *) 
IF Cluster>= EOFCluster THEN 
(* nicht über das Ende hinausgehen *) 
RETURN FALSE 
END; 

IF Index<DirectoryRecordsPerSector* 
SectorsPerCluster THEN 


EXIT; 

END; 

Cluster:* Next(Cluster); 

DEC(Index, DirectoryRecordsPerSector* 
SectorsPerCluster); 


END; 


Sector:* 

ClusterToSector(NewPos[Cluster]) + 
Index DIV DirectoryRecordsPerSector; 

END; 

Offset:= 

Index MOD DirectoryRecordsPerSector; 


RETURN TRUE; 


Hehl weiter... 
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191 

192 

END LocateDirectoryRecord; 

193 

PROCEDURE GetDirectoryRecord(Cluster: 

CARDINAL; 

194: 

Index : CARDINAL; 

195: 

VAR r : DirectoryRecord): 

BOOLEAN; 

196: 

(* Hole Eintrag r mit diesem Index (0...). 

197: 

Ergebnis = FALSE, falls dieser Eintrag 
nicht existiert. 

198: 

*) 

199: 

VAR Sector, Offset : CARDINAL; 

200: 

DirectorySector: DirectoryArray; 

201: 

errorcode : CARDINAL; 

202: 

BEGIN 

203: 

IF LocateDirectoryRecord(Cluster, Index, 

Sector, Offset) THEN 

204: 

ReadAbs(ADR(DirectorySector),1,Sector, 
errorcode); 

205: 

r:= DirectorySector(Offset]; 

206: 

RETURN (errorcode=0) AND 
(ORD(r.Name (0])# FreeName); 

207 

ELSE 

208 

RETURN FALSE; 

209 

END; 

210 

211 

END GetDirectoryRecord; 

212 

PROCEDURE PutDirectoryRecord(Cluster: 

CARDINAL; 

213: 

Index : 

CARDINAL; 

214: 

r : 

DirectoryRecord): BOOLEAN; 

215: 

(* Schreibe Eintrag mit diesem Index (0...). 

216: 

Ergebnis = FALSE, falls dieser Eintrag 
nicht existiert. 

217 

*) 

218 

VAR Sector, Offset : CARDINAL; 

219 

DirectorySector: DirectoryArray; 

220 

errorcode : CARDINAL; 

221 

BEGIN 

222 

IF LocateDirectoryRecord(Cluster, Index, 

Sector, Offset) THEN 

223: 

ReadAbs(ADR(DirectorySector),1,Sector, 
errorcode); 

224 

IF errorcode#0 THEN 

225 

RETURN FALSE; 

226 

END; 

227 

DirectorySector[Offset]:= r; 

228 

WriteAbs(ADR(DirectorySector),1,Sector, 
errorcode); 

229 

RETURN errorcode=0; 

230 

ELSE 

231 

RETURN FALSE; 

232 

END; 

233 

234 

END PutDirectoryRecord; 

235 

PROCEDURE SortDirectory(StartCl: CARDINAL); 

236 

(* Sortiere (Unter-)Verzeichnisse so, daß 
Unterverzeichnisnamen vor 

237: 

: den 'normalen' Filenamen auftreten: Dabei 

ist kein Update der FAT 

238: 

: nötig, da alle Vertauschungen innerhalb 

des Files stattfinden. 

239 

Sortieralgorithmus: Direktes Einfügen 

240 

*) 

241 

VAR r,r2 : DirectoryRecord; 

242 

i,j,x,y: CARDINAL; 

243 

BEGIN 

244 

(* Zunächst rekursiv alle Söhne sortieren:*) 

245 

i := 0; 

246 

WHILE GetDirectoryRecord(StartCl,i, r) DO 

247 

WITH r DO 

248 

x:= ORD(Name[0]) ; 

249 

IF (x <> UnusedName) AND (x <> Special 

Name) AND 

250 

(subdirattr IN Attr) THEN 

251 

SortDirectory(SwapLH(StartCluster)) ; 

252 

END; 

253 

END; 

254 

INC(i); 

255 

256 

END; (* WHILE *) 

257 

(* jetzt eigenes Directory sortieren: *) 

258 

i := 0; 

259 

WHILE GetDirectoryRecord (StartCl, i, r) DO 


260: 

WITH r DO 

261: 

x:= ORD(Name[0]); 

262: 

IF (x <> UnusedName) AND (x <> Special 

263: 

Name) AND 

NOT (subdirattr IN Attr) THEN 

264: 

(* i zeigt auf den ersten Eintrag im 

265: 

Directory, der keinen 

Unterverzeichnisnamen enthält 

266: 

*) 

267: 

j:= i+1; 

268: 

LOOP 

269: 

IF NOT GetDirectoryRecord(StartCl, 

270: 

j,r2) THEN 

RETURN; 

271: 

(* Sortierung beendet, da kein 

272 

Unterverzeichniseintrag 
mehr gefunden wurde. 

273 

*) 

274 

END; 

275 

y := ORD (r2.Name[0]) ; 

276 

IF (y <> UnusedName) AND (y <> 

277: 

SpecialName) 

AND (subdirattr IN r2.Attr) THEN 

278: 

(* j zeigt auf den ersten 

279: 

Unterverzeichnisnamen nach i 

*) 

280: 

WriteString('Tausche 

281: 

Directory-Einträge: '); 
WriteString(Name); WriteString 

282: 

('mit '); 

WriteString(r2.Name); WriteLn; 

283: 

IF NOT PutDirectoryRecord 

284: 

(StartCl, j, r) THEN 

WriteString(r.Name); 

285: 

WriteString(" kann nicht 

286: 

geschrieben werden "); 

WriteLn; RETURN; 

287: 

ELSIF NOT PutDirectoryRecord 

288: 

(StartCl, i, r2) THEN 

WriteString(r2.Name); 

289: 

WriteString(" kann nicht 

290 

geschrieben werden "); 

WriteLn; RETUR^- 

291 

END; 

292 

EXIT; 

293 

END; 

294 

INC(j); 

295 

END; 

296 

END; (* IF *) 

297 

END; (* WITH *) 

298 

INC (i); 

299 

END; (* WHILE *) 

300 

END SortDirectory; 

301 

302 

PROCEDURE CountFree(): CARDINAL; 

303 

(* zähle die unbelegten Cluster auf der 

304 

Platte 

*) 

305 

VAR i,Free: CARDINAL; 

306 

BEGIN 

307 

Free:= 0; 

308 

FOR i:= FirstCluster TO BPBPtr A .numcl-1 DO 

309 

IF OrgFAT[i]=FreeCluster THEN INC(Free); 

310 

END; 

END; 

311 

RETURN Free; 

312 

END CountFree; 

313 

314 

(* Die folgenden Variablen werden global von 

315 

der Prozedur MoveFile 
verändert: 

316 

*) 

317 

VAR DestCluster : Clusterlndex; 

318 

(* Ziel für nächsten Cluster *) 

: FirstFreeDestCluster: Clusterlndex; 

319 

320 

(* Ziel für ersten Datencluster *) 

: PROCEDURE MoveFile(Cluster: CARDINAL); 

321 

: (* Tausche alle Cluster des Files mit den 

322 

Clustern ab DestCluster, 

: Als Seiteneffekt wird DestCluster erhöht 

323 

und Cluster in NewFAT 
: verkettet. 

324 

: *) 

325 

: TYPE Operation = (wr,rd); 

326 

: geht weiter... 
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QT C 1 D 11 Die einfach zu bedienende Finanzbuchhaltung 

O 1 ■ r 1 D U Professionell - Schnell - Bedienungsfreundlich 

MINI-LERN-FIBU 1.0 

- !!! Dialog-orientiertes Buchen!!! 

D. h. es werden immer alle erforderlichen Befehle am Bildschirm 
angezeigt, dadurch findet man sich sofort zurecht. 

- Konten anlegen beim Buchen möglich (Einfach und schnell) 

- Kontennummern auch mit Namen suchen (buchen) 

- Monatsjournal kann am Bildschirm angezeigt und nach verschie¬ 
denen Kriterien durchsucht werden! 

- Im Monatsjournal können Buchungsfehler berichtigt werden. 

- Der aktuelle Saldo erscheint beim Aufruf eines Kontos und des 
Gegenkontos auf dem Bildschirm. 

- Taschenrechner eingebaut 

- Verschiedene Sperren zur Vermeidung von Falschbuchungen 
sind eingebaut. 

- Bei Aufruf eines Kreditor- oder Debitor-Kontos erscheint auf 
Wunsch die Offene-Posten Liste auf dem Bildschirm. 

- Druck aller Listen (Saldenlisten, Kontenplan etc.) 

- Bilanz, G + V 

- Kontenblätter 

- Umsatzsteuervoranmeldung 

- Debitoren - Kreditoren - offene Posten - Listen. 

- und vieles mehr 

- kein Kopierschutz 

- gedrucktes Handbuch 

- Die Anzahl der Buchungen/Monat sind auf 52 Buchungen/Monat 
begrenzt. 

Hardwareanforderung: 

Atari ST mit mind. 512 KB Speicher. Betriebssystem im ROM 

1 einseitiges Laufwerk. Drucker, SW-Monitor (SM 124) 

Preis nur DM 98,- 

ST-FIBU 1.5 

zusätzlich: 

- Die Anzahl der Buchungen/Monat sind nur durch das jeweilige 
Speichermedium begrenzt. p rejs ^ ^ 

Mandantenfähig. Preis nur DM 398,- 

Hardwareanforderung: 

Atari ST mit mind. 1 MB Speicher. 1 doppelseitiges Laufwerk. 
Drucker, SW-Monitor (SM 124) 

ST-FIBU 2.0 

zusätzlich: 

- Mahnwesen mit Mahnvorschlagsliste 

- Textverarbeitung integriert mit Serienbrief 

- Formularbearbeitung 

- Die Anzahl der Buchungen/Monat sind nur durch das jeweilige 

Speichermedium begrenzt. ^ 4 gg . 

Mandantenfähig Preis nur DM 649,- 

Hardwareanforderung: 

Atari ST mit mind. 1 MB Speicher. 1 doppelseitiges Laufwerk. 
Drucker, SW-Monitor (SM 124) 

Funktionsfähige Demo 

(incl. Anleitung, wird bei Bestellung angerechnet). DM 60,- 

Alle unsere Fibu Versionen sind untereinander Datenkompatibel!!! 

Wenn Sie eine kleine Fibu Version besitzen, wird diese beim Kauf 
einer größeren Version angerechnet. 

=- ____. ^ _ _ - _ _ . ~ Lieferuna Der NN + DM 8. - Versandkosten 

—GEQRGi O 1 AHvK b. Vork./V-Scheck Versandkostenfrei 

saSmmtMLx Herzbergstraße 8 • D-6369 Niederdorfelden 
= = «S* 0 61 01 / 30 07 TELEFONISCHE HOTLINE BIS 22.00 UHR 


327: 

328: 

329: 

330: 

331: 

332: 
333: 
334 : 
335: 

336: 

337: 

338: 

339: 

340: 

341: 

342: 

343: 
344 : 

345: 

346: 

347: 

348: 

349: 

350: 

351: 

352: 

353: 

354: 


VAR SourceCluster: ClusterIndex; 

(* tatsächliche Position für Cluster *) 
OldDest : Clusterlndex; 

(* ehemalige Position für DestCluster*) 
Predecessor : Clusterlndex; 

(* zuletzt geschriebener Cluster *) 

Current : Clusterlndex; 

(* ehemalige Position lfd. Cluster *) 

A, B : DirectoryArray; 

(* Puffer für je einen Cluster *) 

PROCEDURE OK(Op : Operation; 

VAR X: DirectoryArray; 

CI: Clusterlndex): 

BOOLEAN; 

VAR err: CARDINAL; 


BEGIN 

IF Op = rd THEN 

ReadAbs(ADR(X), SectorsPerCluster, 
ClusterToSector(CI), err); 

IF err#0 THEN 

WriteString('Warnung: Fehler beim 
Lesen von Cluster '); 
WriteCard(CI/1); 

WriteString(' (Cluster nicht 

verschoben) '); 

END; 

ELSE 

WriteAbs(ADR(X) , SectorsPerCluster, 
ClusterToSector(CI), err); 
IF err#0 THEN 


WriteString('Warnung: Fehler beim 
Schreiben von Cluster '); 
WriteCard(CI,1); 

WriteString 

(' (Cluster nicht verschoben) '); 


END; 

END; 


RETURN err=0; 


355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 


384: 

385: 


386: 


END OK; 

BEGIN 

Predecessor:= 0; 

WHILE Cluster<EOFCluster DO 
LOOP 

(* Lasse defekte Cluster als Ziel aus: *) 
WHILE SwapLH(OrgFAT(DestCluster])= 
BadCluster DO 

INC(DestCluster) 

END; 

IF DestCluster<BPBPtr A .numcl THEN EXIT 
END; 

(* sollte eigentlich nicht passieren: *) 
WriteLn; 

WriteString('Warnung: Zu wenige freie 
Cluster '); 

WriteLn; 

IF FirstFreeDestCluster = 0 THEN 
(* vermeide Endlosschleife: *) 

Abort('Fataler Fehler: Keine freien 
Cluster mehr gefunden', FALSE); 

ELSE 

DestCluster:= FirstFreeDestCluster; 
FirstFreeDestCluster:= 0; 

END; 

END; 

(* Tausche jetzt NewPos(Cluster] mit 
DestCluster: *) 

SourceCluster:= NewPos[Cluster]; 

OldDest:= OldPos[DestCluster]; 

Current:= SourceCluster; 

(* vorläufig, wird überschrieben, falls 
Block-Austausch erfolgreich *) 

IF OrgFAT[OldDest]=FreeCluster THEN 
(* Ziel-Cluster ist frei, kann direkt 
überschrieben werden *) 

WriteCard(SourceCluster,6); 

WriteString('->'); 


4/88 


79 
























SOFTWARE 


420 


421 

(* Verkette mit Vorgänger *) 

422 

IF Predecessor#0 THEN 

423 

IF NewFAT[Predecessor]#FreeCluster 

THEN 

424: 

WriteLn; WriteString('Warnung: 

Cluster doppelt belegt '); 

425 

WriteCard(Predecessor/4); WriteLn; 

426 

END; 

427 

NewFAT[Predecessor]:= SwapLH(Current); 

428 

END; 

429 

Predecessor:= Current; 

430 

Cluster:= Next(Cluster); 

431 

INC(DestCluster); 

432 

433 

END; (* WHILE *) 

434 

IF Predecessor#0 THEN 

435 

IF NewFAT[Predecessor]#FreeCluster 

THEN 

436: 

WriteLn; WriteString('Warnung: 

Cluster doppelt belegt '); 

437 

WriteCard(Predecessor, 4); WriteLn; 

438 

END; 

439 

NewFAT[Predecessor]:=SwapLH(MaxCluster); 

440 

END; 

441 

442 

END MoveFile; 

443 

PROCEDURE CompactDirectory (StartCl: 

CARDINAL); 

444: 

(* Schreibe Subdirectories adjazent ab 

Cluster 2, aktualisiere NewFAT 

445: 

*) 

446: 

VAR i/x: CARDINAL; 

447: 

r : DirectoryRecord; 

448 


449: 

BEGIN 

450: 

(* Nur falls nicht Wurzelverzeichnis ist 
Verschieben möglich: *) 

451: 

IF StartCl#0 THEN MoveFile(StartCl); END; 

452 

geht weiter... 


387 

IF OK(rd,A,SourceCluster) AND OK(wr,A/ 
DestCluster) THEN 

388 

NewPos(Cluster]:= DestCluster; 

389 

NewPos[OldDest]:= SourceCluster; 

390 

OldPos[SourceCluster]:= OldDest; 

391 

OldPos[DestCluster]:= Cluster; 

392 

Current:= DestCluster; 

393 

END; 

394 

ELSIF SourceClusterlDestCluster THEN 

395 

WriteCard(SourceCluster,6); 

WriteString('<>'); 

396 

IF OK(rd,A,SourceCluster) THEN 

397 

IF OK(rd,B,DestCluster) THEN 

398 

IF OK(wr,B,SourceCluster) THEN 

399 

IF OK(wr,A,DestCluster) THEN 

400 

NewPos[Cluster]:=DestCluster; 

401 

NewPos[OldDest]:=SourceCluster; 

402 

OldPos[SourceCluster]:= 

OldDest; 

403 

OldPos[DestCluster]:= Cluster; 

404 

Current:= DestCluster; 

405 

ELSE 

406 

(* mache vorherigen 

Schreibvorgang rückgängig: *) 

407: 

: IF NOT OK(wr,A,SourceCluster) 

AND 

408: 

NOT OK(wr,A,SourceCluster) 

THEN (* 2-mal *) 

409: 

WriteLn; 

410: 

WriteString('Fataler Fehler: 

Inhalt des Clusters '); 

411: 

: WriteCard(SourceCluster,4); 

412: 

WriteString(' zerstört'); 

413: 

: WriteLn; 

414: 

: END; 

415: 

END; 

416: 

: END; 

417: 

END; 

418: 

: END; 

419: 

END; (* IF unused *) 


ik & ATARI ST iklklk 


Anwendersoftware 


Ist Word Plus 189,- 

Signum Zwei 399,- 

Publishing Partner 249,- 

Print Master Plus 99,- 

Superbase 249,- 

ST Heimfinanz 139,- 

dB-MAN 398,- 

Sprachen/Entwicklung/Grafik 
GFA Basic Vers. 2.0 89,- 

GFA Compiler 89,- 

GFA Draft plus CAD Prog. 329,- 
GFA Vektor 3D Grafik 89,- 

Lattice C-Compiler V. 3.04 289,- 
Megamax C-Compiler 398,- 

monoSTar 79,- 

colorSTar 79,- 

Art Director 139,- 

Film Director 139,- 

Degas Elite 179,- 

Spiele 

Bad Cat 54,- 

Barbarian 66,- 

Bard’s Tale 79,- 

Bureaucracy 89,- 

California Games 72,- 

Championship Wrestling 49,- 
Defender of the Crown 79,- 

Deja Vu 79,- 

Dungeon Master 72,- 

Fire Blaster 56,- 

Flight Simulator II 119,- 

Gauntlet 69,- 

Goldrunner 69,- 

Hellowoon 62,- 

Indiana Jones 54,- 


DCT Sofort kostenlos Preisliste 


Jagd auf Roter Oktober 

72,- 

Jinxter 

72,- 

Karate Kid II 

63,- 

Kings Quest III 

76,- 

Marble Madness 

79,- 

Mercenary 

*69,— 

Metrocross 

66,- 

Mission Elevator 

59,- 

Passengers on the Wind 

69,- 

Phantasie III 

69,- 

Psion Schach (deutsch) 

69,- 

Road Runner 

64,- 

Sentinel 

59,- 

Shuttle II 

66,- 

Solomons Key 

54,- 

Starglider 

63,- 

Star Trek 

69,- 

Super Cycle 

69,- 

Tanglewood 

54,- 

Tass Time in Tonetown 

69,- 

Temple of Apshai 

69,- 

Terrorpods 

66,- 

Test Drive 

79,- 

The Black Couldron 

79,- 

The Guild of Thieves 

69,- 

The Pawn 

69,- 

Ultima II 

79,-- 

Ultima III 

72,- 

Ultima IV 

69,- 

Vermeer 

76,- 

War Zone 

63,- 

Drucker 


NEC P 2200 

1049,- 

Epson LQ-500 

998,- 

Epson LX-800 

699,- 

Star LC10 

649,- 


\ Abteilung ST anfordern! 


DE“ Computer&Zubehör Versand “Ml 

Gerhard und Bernd Waller GbR 


Kieler Str. 623, 2000 Hamburg 54, S 040/5706007 + S70S2 75 


ATARI ST AUFRÜSTUNGEN 


Wir liefern alle hardwaremäBigen Voraussetzungen, so z. 8 


SPEICHERERWEITERUNGSKARTEN 


weitere Produkte 


passend für alle ST-Typen 

- sehr leichter Einbau ohne löten durch ausführlich be¬ 
bilderte Einbauanleitung 

- kostenloser Einbau durch uns möglich 

- vergoldete Microsteckkontakte ergeben optimalen 
Kontakt und flimmerfreien Bildschirm 

- keine zusätzliche Software erforderlich (TOS erkennt 
die Erweiterung) 

- mit 256K- oder 1 Mbit-Chip bis 4MByte (auch nachträg¬ 
lich) bestückbar 

- 1 Jahr Garantie 

- Option: batteriegepufferte Echtzeituhr auf der Erwei¬ 
terungsplatine incl. Software 

Preis: ab DM 261,00 incl. RAMDISK.Programm und MS- 

DOS-Format sowie weitere nützliche Programme 

48 STUNDEN RE PARAT 


Harddisk 20MByte DM1298 

Harddisk 30MByte DM 1698 

Harddisk 2* 20MByte DM 2398 

Harddisk 50MByte DM 2498 

Harddisk 60MByte DM 2698 

Harddisk 250MByte DM 6998 

Harddisk 20MByte DM 1298 

zum direkten Einbau in das 
MEGA ST Rechnergehäuse 
Hostadapter ST/PC DM 498 

zum Anschluß von bis zu 2 
normalen XT/AT Laufwerken 
Hostadapter ST/S DM 398 

Anschi, bis 7 SCSI laufw. 

CSH ST-PC 2,5MB RAM/ROMTOS 
MS-DOS/40MB HD/ a. Anfrage 
L'RSERVICE 


Unsere Produkte erhalten Sie direkt von uns oder im Fachhandel. 
Weitere Infos erhalten Sie gerne von uns 


CSH 


INGENIEURBUERO Dipl.-Ing. M. H. Krompasky 
Schillerring 19 - 8751 Grosswallstadt • Tel. 0 6022/244 05 


TtMWBFILE ST FUB 

Die Rechnerkopplung SHARP mit ATARI 

Übertragen von Daten und Programmen des SHARP-Rechners in beide Richtungen 
Das Editieren und Drucken der SHARP-Programme ist auf dem ATARI ST möglich 
Mit MERGE und RENUMBER für SHARP-Programme. Disassembler XDIS ST. 
Dekodieren von Variablen in ASCII-Dateien, Editorschnittstelle für alle ASCII-Editoren, 
Schnittstelle zum OMIKRON-BASIC, mit Schnittstelle für eigene Zusatzprogramme 
Für alle ATARI ST Rechner geeignet, auch die neuen MEGA ST mit Blitter-TOS! 
Unterstützt SHARP PC 12XX, 13XX und 14XX, ermöglicht das sichere Abspeichern 
der SHARP-Programme und Daten auf Diskette. Anzeigen und Drucken auf ATARI 
Besitzer alter Versionen fordern Update-Info an ! Informationen gegen Freiumschlag 


TRANSFILE ST PLUS komplett mit Interface. Disk und Anleitung.DM 129.00 

TRANSFILE ST 1600 für ATARI ST und PC 1600 komplett nur.DM 129.00 

Public-Domain-Software für SHARP-Pocketcomputer auf TRANSFILE-Disk 

Disk mit ca. 60 Prg Nr.1 / Nr.2 / Nr.3 je' Diskette.DM 20,00 


TRANSFILE ist auch fürC-64/ 128, MS-DOS-Rechner und AMIGA erhältlich 
Versand per Nachnahme oder Vorkasse, ins Ausland nur per Vorkasse 

YELLOW - COMPUTING Wolfram Herzog Joachim Kieser 

Im Weingarten 21 D-7101 Hardlhausen-Lampoklshausen Telefon 07139/8355 
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453 

(* Verschiebe jetzt die geschachtelten 

454 

Verzeichnisse: *) 

i := 0; 

455 

WHILE GetDirectoryRecord(StartCl, i,r) DO 

456 

WITH r DO 

457 

x:= ORD(Name[0]); 

458 

IF (x <> UnusedName) AND 

459 

(x <> SpecialName) AND 

460 

(* nicht und ! *) 

(subdirattr IN Attr) THEN 

461 

WriteLn; WriteString(Name); 

462 

Write(':'); WriteLn; 

CompactDirectory(SwapLH 

463 

(StartCluster)); 

END; 

464 

END; 

465 

INC(i); 

466 

END; (* WHILE *) 

467 

END CompactDirectory; 

468 

469 

PROCEDURE CompactFiles (StartCl: CARDINAL); 

470 

(* schreibe Datenfiles adjazent bis zum 

471 

Plattenende, aktualisiere NewFAT 

*) 

472 

VAR i, x: CARDINAL; 

473 

r : DirectoryRecord; 

474 

475 

BEGIN 

476 

o 

n 

•H 

477 

WHILE GetDirectoryRecord(StartCl,i,r) DO 

478 

WITH r DO 

479 

x:= ORD(Name [0]); 

480 

IF (x <> UnusedName) AND (x <> Special 

481 

Name) THEN 

IF subdirattr IN Attr THEN 

482 

(* rekursiv die Söhne bearbeiten *) 
CompactFiles(SwapLH(StartCluster)); 

483 

ELSE 

484 

WriteLn; WriteString(Name); 

485 

Write(':'); WriteLn; 

IF Size#0 THEN 

486 

MoveFile(SwapLH(StartCluster)); 

487 

END; 

488 

END; 

489 

END; 

490 

END; 

491 

INC(i); 

492 

END; (* WHILE *) 

493 

END CompactFiles; 

494 

495 

PROCEDURE UpdateLinks (StartCl: CARDINAL); 

496 

(* ersetzte Eintrag StartCluster für jedes 

497 

File und Unterverzeichnis 
durch seinen neuen Wert. 

498 

*) 

499 

VAR i, x, Start: CARDINAL; 

500 

r : DirectoryRecord; 

501 

502 

BEGIN 

503 

i := 0; 

504 

WHILE GetDirectoryRecord(StartCl,i,r) DO 

505 

WITH r DO 

506 

x:= ORD(Name[0]); 

507 

Start:= SwapLH(StartCluster) ; 

508 

IF (x <> UnusedName) THEN 

509: 

(* auch für '.' und ! *) 

IF (subdirattr IN Attr) AND 

510 

(xoSpecialName) THEN 

UpdateLinks(Start); 

511 

END; 

512 

WriteLn; WriteString(Name); 

513: 

Write (':'); 

IF (Start>=FirstCluster) AND 

514: 

(Start<=MaxPhysCluster) THEN 

StartCluster:= 

515: 

SwapLH(NewPos[Start]); 

WriteCard(SwapLH(StartCluster), 4) ; 

516: 

IF NOT PutDirectoryRecord(StartCl, 

517: 

i,r) THEN 

WriteLn; 

518: 

WriteString('Fehler: 

519: 

StartCluster für File '); 

WriteString(Name); 

520: 

WriteString(' konnte nicht auf 

521: 

den Wert '); 

WriteCard(SwapLH(StartCluster), 



4); 

522: 

WriteString(' aktualisiert 
werden!'); WriteLn; 

523 

END; 

524 

END; 

525 

END; 

526 

END; 

527 

INC(i); 

528 

END; (* WHILE *) 

529 

530 

END UpdateLinks; 

531 

PROCEDURE MakeNewFAT; 

532 

(* Erzeuge leere NewFAT, in der fehlerhafte 

Cluster bereits markiert sind 

533 

*) 

534 

BEGIN 

535 

NewFAT[0]:= OrgFAT[0 ] ; 

536 

NewFAT[1]:= OrgFAT[1] ; 

537 

FOR i:= FirstCluster TO BPBPtr*.numcl-1 DO 

538 

IF SwapLH(OrgFAT[i])=BadCluster THEN 

539 

NewFAT[i]:= SwapLH(BadCluster); 

540 

ELSE 

541 

NewFAT[i]:= FreeCluster; 

542 

END; 

543 

END; 

544 

545 

END MakeNewFAT; 

546 

VAR i : CARDINAL; 

547 

errorcode : CARDINAL; 

548 

CH : CHAR; 

549 

550 

NumberFree: CARDINAL; 

551 

BEGIN (* Hauptprogramm *) 

552 

Write(CHR(27)) ; Write ('v'); Write(CHR(27)) ; 

Write('E'); 

553 

WriteString('HDPack:'); WriteLn; 

554 

WriteString('-'); WriteLn; WriteLn; 

555 

WriteString('Version 1.2 18.10.1987 

Florian Matthes'); WriteLn; WriteLn; 

556 

REPEAT 

557 

CH: =/ 0'; WriteLn; 

558 

WriteString("Buchstabe des logischen 

Laufwerkes (z.B. 'C') ==>"); 

559: 

Read(CH); CH:= CAP(CH); Write(CH); 

WriteLn; 

560 

UNTIL (CH>='A') AND (CH<= / Z'); 

561 

562 

dev: = ORD(CH)-ORD("A"); 

563 

WriteLn; 

564 

WriteString('Bitte bestätigen Sie die 

Optimierung für Laufwerk '); 

565: 

Write(CHR(dev+ORD('A'))); WriteString(': '); 

WriteLn; 

566: 

WriteString("durch die Eingabe des 

Buchstabens 'P'!"); WriteLn; 

567: 

WriteLn; WriteString ('W A R N U N G') ; 

WriteLn; 

568: 

WriteString("Unterbrechen Sie keinesfalls 
den Programmablauf nach der"); 

569: 

WriteLn; 

570: 

WriteString("Eingabe von 'P # , da dies sicher 
zum Verlust von Dateien und "); 

571: 

WriteLn; 

572: 

WriteString('Directories führen würdeiM; 

WriteLn; WriteLn; 

57 3: 

WriteString('==>'); Read(CH); Write(CH); 

WriteLn; 

574: 

IF CAP(CH)#' P' THEN 

575: 

Abort('OK: Programmabbruch durch den 

Benutzer', TRUE); 

576 

577 

END; 

578 

BPBPtr:= BIOS.GetBPB(dev); 

579 

IF ADDRESS(BPBPtr) = ADDRESS(0) THEN 

580 

Abort('Parameter Block nicht gefunden 
(Laufwerksbuchstabe prüfen)!', TRUE); 

581: 

END; 

582: 

(* bestimme die geräteabhängingen Parameter 
und speichere sie global: *) 

583 

WITH BPBPtr* DO 

584 

SectorsPerCluster := clsiz; 

585 

FirstDataSector := datrec; 

586 

DirectoryRecordsPerSector:= recsiz DIV 

TSIZE(DirectoryRecord); 

587: 

FirstDirectorySector := BPBPtr*.fatrec 

geht weiter... 
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+BPBPtr A .fsiz; 


637 

WriteCard(NumberFree,1); 

588 

: IF numcl>MaxCluster THEN 


638 

WriteString(' Cluster noch unbelegt — '); 

589 

: Abort('Platte besitzt zu viele (>16384) 


639 

WriteLn; 


Cluster!', TRUE); 


640 


590 

ELSIF numcl<4096 THEN 


641 

WriteString('Sortiere Directories...'); 

591 

Abort( 



WriteLn; 

592 

'FAT ist nicht wortweise organisiert. 


642 

SortDirectory(0); 


HDPack läuft nicht für Floppies', 


643 



TRUE); 


644 

WriteLn; WriteString 

593 

ELSIF DirectoryRecordsPerSector> 



('Erstelle leere FAT...'); 


MaxDirectoryBlocks THEN 


645 

MakeNewFAT; 

594 

Abort('Sectorgröße auf dem Laufwerk zu 


64 6 

WriteLn; 


groß (>65355 Bytes)', TRUE); 


647 


595 

END; 


648 

DestCluster:= FirstCluster; 

596 

END; 


649 

FirstFreeDestCluster:= 0; (* noch nicht 

597 

WriteString('Parameter Block gelesen...'); 



bestimmt *) 


WriteLn; 


650 

CompactDirectory(0); 

598 



651 

WriteLn; 

599 

ReadAbs (ADR (OrgFAT), (* hole FAT *) 


652 


600 

BPBPtr A .fsiz, (* Anzahl Sektoren = 


653 

FirstFreeDestCluster:= DestCluster; 


Laenge FAT *) 


654 

(* erstes Cluster nach den Directories *) 

601 

1, errorcode);(* 1. Sektor = 


655 

DestCluster:= FirstFreeDestCluster + 


1. Sektor FAT *) 



NumberFree; 

602 

IF errorcode#0 THEN 


656 

CompactFiles(0); 

603 

WriteString('Errorcode ='); 


657 



WriteCard(errorcode, 4); WriteLn; 


658 

WriteLn; 

604 

Abort ('Fehler beim Lesen von FAT 1.', 


659 

WriteString 


TRUE); 



('Aktualisiere Anfangscluster...'); WriteLn; 

605; 

END; 


660 

UpdateLinks(0); 

606; 

WriteString('FAT 1 gelesen...'); WriteLn; 


661 

WriteLn; 

607 



662 


608; 

ReadAbs(ADR(OldPos), (* hole 2.FAT 


663 

WriteAbs(ADR(NewFAT), (* Schreibe FAT *) 

609; 

BPBPtr A .fsiz, (* Anzahl Sektoren = 


664 

BPBPtr A .fsiz, (* Anzahl Sektoren - 


Laenge FAT *) 



Laenge FAT *) 

610; 

: BPBPtr A .fatrec, (* 1. Sektor = 


665 

1, errorcode); (* 1. Sektor = 


1. Sektor FAT *) 



1. Sektor FAT *) 

611 

errorcode); 


666 

IF errorcode#0 THEN 

612 

IF errorcode#0 THEN 


667 

WriteString('Fehler beim Schreiben von 

613 

WriteString('Errorcode ='); 



FAT 1: Code ='); 


WriteCard(errorcode, 4); WriteLn; 


668 

WriteCard(errorcode,4); WriteLn; 

614: 

Abort('Fehler beim Lesen von FAT 2.', 


669 

END; 


TRUE); 


670 

WriteString('FAT 1 geschrieben...'); 

615 

END; 



WriteLn; 

616 

WriteString('FAT 2 gelesen...'); WriteLn; 


671 


617 



672 

WriteAbs(ADR(NewFAT), (* schreibe 2.FAT *) 

618 

errorcode:= 0; 


673 

BPBPtr A .fsiz, (* Anzahl Sektoren = 

619 

FOR i:= 0 TO BPBPtr A .numcl-1 DO 



Laenge FAT *) 

620 

IF OrgFAT[i] # OldPos[i] THEN 


674 

BPBPtr A .fatrec, (* 1. Sektor = 

621 

INC(errorcode); 



1. Sektor FAT *) 

622 

WriteCard(i,6); WriteCard(OrgFAT[i], 6) ; 


675 

errorcode) ; 


WriteCard(OldPos[i],6); 


676 

IF errorcode#0 THEN 

623 

WriteLn; 


677 

WriteString('Fehler beim Schreiben von FAT 

624 

END; 



2: Code ='); 

625 

END; 


678 

WriteCard(errorcode,4); WriteLn; 

626 

IF errorcode=0 THEN 


679 

END; 

627 

WriteString ('Gleichheit von FAT 1 und FAT 


680 

WriteString('FAT 2 geschrieben_');WriteLn; 


2 überprüft...'); WriteLn; 


681 

WriteString('HDPACK erfolgreich beendet.'); 

628: 

ELSE 



WriteLn; WriteLn; 

629: 

Abort('FAT1 unterscheidet sich von FAT2 in 


682 

WriteString('Bitte drücken Sie <RESET> um 


den obigen Clustern', TRUE); 



das System erneut zu booten!'); 

630 

END; 


683 

WriteLn; 

631 



684 

WriteString('(dies ist zur Initialisierung 

632 

FOR i := 0 TO BPBPtr A .numcl-1 DO 



des DESKTOP erforderlich)'); 

633 

NewPos[i]:= i; OldPos[i] := i; 


685 

WriteLn; 

634 

END; 


686 

LOOP END; (* Endlosschleife *) 

635 



687 

END HDPack. 

636 

NumberFree:= CountFree(); 





ENDE * 


82 
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GRUNDLAGEN 


ALGORITHMEN & 
DATENSTRUKTUREN 

TEILS 



Schon in der fünften Folge von Al¬ 
gorithmen & Datenstrukturen be¬ 
handelte ich eine spezielle Baum¬ 
struktur, die gegen Degenerierung 
geschützt ist: den AVL-Baum. 

In der heutigen Folge werde ich 
Ihnen eine ebenso geschützte 
Struktur vorstellen: den Bayer- 
Baum oder kurz B-Baum. 

Noch’n Baum, wieso? 

Alle bisher betrachteten Bäume 
entstammen der Gattung Binär¬ 
bäume, da sie maximal zwei Nachfol¬ 
ger je Knoten besitzen. Was von der 
Struktur her sehr schön, weil einfach 
ist, hat einen großen Nachteil: 

Wird wegen hohem Datenaufkom- 
men eine Baumrepräsentation auf 
Massenspeichern gewählt, so sind 
Binärbäume in hohem Maße unef¬ 
fektiv, da mit jedem Dateizugriff 
nur jeweils ein Knoten mit einem 
Schlüsselelement in den Haupt¬ 
speichergeladen wird. 

Abhilfe kann man sich verschaffen, 
indem man mehr als einen Schlüssel 
in jeden Knoten aufnimmt. 

Bezeichnung: Der Baum wird dann 
von einem Binärbaum 
zu einemMultiwegbaum. 
Die Knoten werden als 
Seiten bezeichnet. 

Als Blattseiten bezeich¬ 
nen wir die Seiten, die 
keine Nachfolger be¬ 
sitzen. 

Die erste und oberste 
aller Seiten bezeichnen 
wir als Wurzelseite. 


Dabei wird davon ausgegangen, daß 
die Schlüssel auf jeder Seite, entspre¬ 
chend der Schlüsselrelation angeord¬ 
net sind. Ist nun auf der besuchten 
Seite der erwünschte Schlüssel nicht 
auffindbar, so kann er, sofern es sich 
bei der Seite nicht um eine Blattseite 
handelt, zwischen seinem unmittel¬ 
baren Vorgänger und seinem unmit¬ 
telbaren Nachfolger gesucht werden. 
Zwei Spezialfälle gilt es dabei zu 
beachten: 

Zum einen können alle Schlüssel der 
Seite größer sein, als unser gesuchter 
Schlüssel. In diesem Fall ist Minks’ 
vom ersten (kleinsten) Schlüssel 
weiterzusuchen. 

Zum anderen können alle Schlüssel 
kleiner sein als der gesuchte. Hier ist 
‘rechts’ vom letzten (größten) 
Schlüssel weiterzusuchen. 


Einige grundsätzliche 
Überlegungen 

Leicht erkennt man, daß ein Baum 
mit m Schlüsseln maximal m+1- 
Nachfolger besitzen kann. Ebenso 
leicht ist einzusehen, daß eine ge¬ 
wisse Obergrenze für die Füllung der 
Seiten vorzugeben ist, da man sonst 
nicht wüßte, ob man einen zusätzli¬ 
chen Schlüssel in die Seite aufneh¬ 
men soll, oder ihn auf die Baumnach¬ 
folger verweist. Eine andere Überle¬ 
gung führt zu den Definitionen des 
Herrn Bayer: 

Unsere Multiwegbäume neigen näm¬ 
lich dazu, genauso leicht zu degene¬ 
rieren wie Binärbäume ohne Aus¬ 
gleichsmechanismen. Deshalb wer¬ 
den, ähnlich wie bei den AVL-Bäu- 
men, einige Limitierungen einge¬ 
führt, deren Beachtung die Degene- 
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rierung von Multiwegbäumen ver¬ 
hindert. 

1. Es wird die Ordnung n eines 
Baumes definiert. 

2. Sämtliche Seiten mit Ausnahme 
der Wurzelseite müssen zwi¬ 
schen n und 2n Elementen be¬ 
sitzen. 

3. Jede Seite ist Blattseite oder 
besitzt genau m+1 Nachfolger, 
wobei in die Anzahl der 
Schlüsselelemente der Seite ist. 

4. Alle Blattseiten liegen auf einer 
Höhe. 

Datenbankcharakter 

Um Ihnen heute eine möglichst ef¬ 
fektive Struktur an die Hand zu ge¬ 
ben, ist es notwendig, auf die Beson¬ 
derheiten von Datenbanken, die ja 
wohl das Hauptanwendungsgebiet 
von Indexstrukturen sind, einzuge¬ 
hen. 

Zunächst einmal: Zeigerstrukturen 
sind heute out. An ihre Stelle tritt der 
direkte Random-Access-Zugriff auf 
Diskettendatei. 

Was also in den letzten Folgen ein 
Pointer war, wird nun zu einer Re- 
cordnummer, also einer Zahl die den 
bezeichneten Datensatz in einer Dis¬ 
kettendatei charakterisiert. Eine wei¬ 
tere Besonderheiten ist die strikte 
Trennung zwischen Daten und 
Schlüsseln, worunter deren Abspei¬ 
cherung in unterschiedlichen Dateien 
zu verstehen ist. 

Grundsätzlich zu 
Random-Access unter 
Pascal+ 

Da Random-Access, wie oben ge¬ 
fordert, vom Vater Pascals, Niklaus 
Wirth, nicht vorgesehen war, wei¬ 
chen wir heute ein wenig vom Stan¬ 
dard ab. 

Entgegen der normalen Dateibehand¬ 
lung in Pascal, nach der eine Datei nur 
streng sequenziell, will sagen: Daten¬ 
satz für Datensatz, abgearbeitet wer¬ 
den kann, bietet Random-Access, wie 
schon der Name sagt, wahlfreien 
Zugriff auf alle Datensätze der be- 
zeichnctcn Datei. 

Dies geschieht unter Pascal* wie 
folgt: 

Eine Random-Access-Datei wird 


unter Pascal* mit der reset-Stan¬ 
dardprozedur zum Lesen und Schrei¬ 
ben geöffnet. 

Den beiden Standardoperationen get 
und put wird nun, als zusätzlicher 
Parameter, eine Recordnummer 
nachgestellt, die den entsprechenden 
Datensatz kennzeichnet. 

Zu beachten ist dabei, daß man bei 
den beiden Operationen nicht über 
das Dateiende hinausschießen sollte, 
also auf nicht vorhandene Elemente 
zugreift. Lediglich erlaubt ist ein 
schreibender Zugriff mit put auf ein 
Element, was eine Position außerhalb 
der Datei liegt, also das Anhängen 
eines neuen Elementes. 

Erschwert wird die Sache ein wenig 
dadurch, daß es seitens Pascals keine 
Prozedur gibt, mit der man die Re¬ 
cordanzahl bestimmen kann. (Zu- 
mindestens habe ich keine gefunden.) 
Ohne Dokumentation gebe ich Ihnen 
deshalb die Funktion dateilaenge 
(Listing 6b, Zeilen 28-72) an die 
Hand, mit der man, unter Angabe 
eines Dateinamens, der übrigens auch 
Wildcards beinhalten darf, die erfor¬ 
derlichen Daten erhält. 

Die Dateilänge wird dabei, per call- 
by-reference, als zweiter Parameter 
zurückgegeben. 

Als Boolschen Rückgabewert der 
Funktion erhält man ein Flag, was das 
Vorhandensein der Datei beschreibt. 
Dividiert man nun die Dateilänge 
durch das Format des Datentyps 
(sizeof(<Datentyp>), erhält man die 
Anzahl der Datensätze in der bezeich¬ 
neten Datei. 

Wird noch der Recordoffset (Position 
des ersten Records. In Pascal* die 
Position 0) in Random-Access-Datei- 
en beachtet, so ist vom erhaltenen 
Wert noch eins abzuziehen, um den 
letzten Datensatz zu markieren. 

Oder etwa nicht ? 

Eine Kleinigkeit gilt es noch zu 
beachten: Es besteht nämlich ein 
Unterschied zwischen der virtuellen 
Datei (Menge der geschriebenen 
Daten) und der physikalischen Datei 
(Daten die auf dem Massenspeicher 
schon angekommen sind.). 

Der Unterschied besteht genau im 
von Pascal* benutzten Puffer für 
Dateizugriffe. Hier kennen nämlich 
noch Datensätze ‘rumliegen’, die 
noch nicht geschrieben wurden und 
auf eine größere Sendung warten, um 
effektiv weggeschrieben zu werden. 


Dieser an sich recht löbliche Effekti¬ 
vitätsgrundsatz führt für unsere Be¬ 
lange dazu, daß aus der physikali¬ 
schen Dateilänge nicht immer die 
Anzahl der Datensätze berechnet 
werden kann. 

Dieses kleine Problemchen läßt sich 
auf zwei Arten umgehen: Entweder 
wird die Diskettendatei vor jeder da- 
teilaenge-Ausführung mit close ex¬ 
plizit geschlossen, womit wir Pascal 
den Befehl geben, seinen Dateipuffer 
zu leeren, oder die Anzahl der Daten¬ 
sätze wird nur bei der Initialisierung 
‘hart' ermittelt und in einer Variablen 
abgespeichert. 

Im späteren Verlauf muß man dann 
nur die Variable entsprechend än¬ 
dern. (Mit letzterer Variante werden 
wir uns auch rummühen.) 

Beim Ausfügen aus Random-Access- 
Dateien ist zu einem kleinen Trick zu 
greifen. Das Ausfügen eines einzel¬ 
nen Datensatzes aus einer Datei ist, 
wegen den dabei nötigen Datenver¬ 
schiebungen, sehr uneffektiv. Des¬ 
halb nimmt man in sämtliche Daten¬ 
sätze ein zusätzliches Flag auf, um 
gelöschte Datensätze markieren zu 
können. Beim Einfügen ist dieses 
Flag auf true zu setzen und beim ei¬ 
gentlichen Löschvorgang auf false. 
Durch einen speziellen Packalgorith¬ 
mus kann man, nachdem mehrere 
Einträge gelöscht wurden, die gülti¬ 
gen Daten (flag auf true) zusam¬ 
menfassen und die ungültigen aus der 
Datei entfernen. Doch dazu später 
mehr. 


Typstruktur 

Welche Typen aus den unterschied¬ 
lichen obigen Überlegungen resul¬ 
tieren, sehen Sie im Listing 6a. 

Da wären zunächst die beiden Typen 
key_type und data_type, die unseren 
normalen Typzerfall in Schlüssel und 
Daten symbolisieren. Die beiden 
Typen page ptr und dataptr sind 
nur noch der Bezeichnung nach als 
Zeiger zu erkennen. Sie symbolisie¬ 
ren den Zeigercharakter, den man mit 
Verweisen auf Recordnummern er¬ 
reicht, auch ohne Zeiger explizit an¬ 
zugeben. 

Der nächste Typ, base_type, ent¬ 
spricht den Einträgen der Datenbank. 
Er beinhaltet sämtliche Typen (key & 
data), die es diesmal zu verwalten gilt. 
Weiterhin ist hier noch ein Zeiger 
next vorgesehen, der es uns, wie 
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schon bei den Bäumen, erlaubt, 
Schlüsselgleichheit zu verarbeiten. 
Zusätzlich ist noch das oben erwähnte 
Archivierungsflag aufzunehmen. 

Die Seiten der Indexdatei, 
pagetype, sehen etwas komplizier¬ 
ter aus. Sie beinhalten zunächst auch 
ein Archivierungsflag. Die nächste 
Variable, anz, gibt den Füllungsgrad 
der Seite an. ptrO ist der äußerste linke 
Zeiger der besprochenen Baumstruk¬ 
tur. Die Schlüssel (key), ihre jeweili¬ 
gen rechten Nachfolger (ptr), und die 
Zeiger auf die entsprechenden Daten¬ 
sätze in der Datenbank (record_nr) 
sind zusätzlich in einer Eintragsstruk¬ 
tur item type zusammengefaßt. Von 
diesen ‘Einträgen’ benötigen wir 
maximal Baumordnung mal zwei, 
also l..nn Stück. Es bietet sich eine 
ARRAY- Repräsentation an, die Sie 
hier auch realisiert finden. 

Beide Seitenarten sind nun noch glo¬ 
bal (!) als FILE OF ... 
zu deklarieren, wobei 
die unterschiedlichen 
Intentionen in die Na¬ 
menswahl e ingehen 
(Listing 6c, Zeile 
21 + 22 ). 

Ein kleines Beispiel für 
eine B-Baumstruktur 
zweiten Grades mit 
Verzeigerung in die 
Datenbanken finden 
Sie in Abbildung 6a. 

Die (*)-Zeiger stellen 
dabei die Verzeigerung 
der Indexseiten dar. Die 
(**)-Zeiger symboli¬ 
sieren die Zeiger von 
der Indexdatei zur Datenbank. Und, 
last but not least, zeigen die (***)- 
Zeiger die Verknüpfung innerhalb 
der Datenbank zwecks Organisierung 
der Elementnachfolgerliste.Wie wei¬ 
ter oben bereits angeklungen ist, be¬ 
nötige ich heute auch einige Konstan¬ 
ten. Eine zusätzliche Präprozessor- 
Datei für die Konstanten möchte ich 
Ihnen allerdings ersparen, zumal es 
mit Pascal+ ab Version 2.0 möglich 
ist. Konstanten-, Typ- und Opera¬ 
tionsdefinitionen wild zu mischen. 
Für die B-Baumkonstanten bemühen 
Sie also jetzt bitte unser heutiges 
Demoprogramm (Listing 6c, Zeilen 
12-15). Die Konstante n beinhaltet 
den Baumgrad; nn den doppelten 
Baumgrad. Als Ersatz für die Kon¬ 
stante nil bei Pointern führe ich heute 
die Konstante leer für ein nicht spe¬ 
zifiziertes Random-Access-Element 


ein. Weiterhin treffe ich die Kon¬ 
vention, daß das B-Baumwurzelele- 
ment immer in erster Dateiposition 
(0) anzutreffen ist, um mir eine zu¬ 
sätzliche Informationsdatei zu er¬ 
sparen. Daher noch eine kleine Kon¬ 
stante, wurzel, zwecks besserer Les¬ 
barkeit. 

Die Operationen auf B-Bäumen im 
einzelnen (Listing 6b. ab Zeile 75): 

create_database 

Die Indexdatei und die Datenbank 
werden mit rewrite eröffnet, um sie 
neu zu erzeugen, und dabei gegebe¬ 
nenfalls alte Inhalte zu löschen. 

start_database 

Zunächst werden die beiden Da-tei- 
enderecords ermittelt (last_index 
und last data). Auf das darauffol¬ 


gende Öffnen der beiden Dateien zum 
Random-Access-Zugriff (reset) er¬ 
folgt noch eine Fallunterscheidung, 
die zwischen einer leeren Datei und 
einer Datei mit mindestens einem 
Element unterscheidet. Entsprechend 
dem Ergebis dieser Fallunter¬ 
scheidung ist der Anker unseres B- 
Baumes (tree) entweder auf leer oder 
auf wurzel zu setzen. 

insertdata 

Den Kern von insert_data bildet die 
Prozedur search. Mit ihr wird, ähn¬ 
lich der Suche in Binärbäumen, eine 
rekursive Suche in den B-Bäumen 
durchgeführt. Anders als bei den Bi¬ 
närbäumen sind allerdings je Seite 
maximal nn Wegentscheidung zu 


treffen. Da nn frei wählbar und so 
mitunter recht groß werden kann, 
bietet es sich an, eine binäre Suche auf 
dem Schlüsselarray item durchzu¬ 
führen (Zeilen 190-198). Ist das Ele¬ 
ment gefunden worden (Zeile 199: 1- 
r>l), dann ist am B-Baum keine Än¬ 
derung vorzunehmen. Das neue Ele¬ 
ment ist lediglich am Anfang der 
Nachfolgerliste in die Datenbank 
einzuhängen (Zeilen 201-206). An¬ 
dernfalls geht die rekursive Suche 
weiter (Zeilen 210-213), bis die re¬ 
kursive Abbruchbedingung (Zeile 
175) erfüllt ist. 

Da uns die B-Baumdefinition Num¬ 
mer 4 ein Einfügen unterhalb einer 
Blattseite verbietet, wird der neue 
Wert über den Parameter v von 
search zurückgegeben. Der Wert 
true des Parameters h symbolisiert 
dabei, daß ein Wert über den Parame¬ 
ter v zurückgereicht wurde und in 
einer höheren Seite ein¬ 
zufügen ist. Dies ge¬ 
schieht durch Check auf 
h nach dem rekursiven 
Aufruf von search (Zei¬ 
le 214). 

In diesem Fall wird die 
Prozedur insert aufgeru¬ 
fen, die das Einfügen 
von v in die entsprechen¬ 
de Blattseite ausführt 
und gegebenenfalls, bei 
wiederholtem Seiten¬ 
überlauf, einen neuen 
Wert für v bestimmt. 

Im nicht-trivialen Fall 
des Seitenüberlaufs 
(Zeilen 137-171) wer¬ 
den dabei einige Eintragsshiftereien 
vorgenommen, deren genaues Stu¬ 
dium # *ich dem interessierten Leser 
überlassen möchte, da die Details 
diesen ohnehin recht großen Beitrag 
wahrscheinlich sprengen würden. 

Im Rumpf der Prozedur insert_data 
wird vor dem Aufruf von search zu¬ 
nächst der Datenbankpuffer initiali- 
Ysiert und am Ende der Datenbank 
eingehängt. Dabei ist darauf zu ach¬ 
ten, daß zuvor die Datensatzanzahl, 
lastdata, inkrementiert wurde. 

Nach dem Aufruf von search besteht 
die Möglichkeit, daß sich noch ein 
Element in v befindet (Zeilen 232- 
250). Dieses Element wird dann das 
erste der neuen Baumwurzel. Hierbei 
haben wir auch noch daraufzu achten, 
daß unsere Vereinbarungen die Wur¬ 
zel betreffend (Wurzel ist immer in 
Position 0) eingehalten werden. Die- 



Abbildung 6a: Zeigerstruktur an einem Beispiel 3 Arten von Zeigern: (*) (**) (***) 


4/88 ff 


85 
































GRUNDLAGEN 


se Begebenheit macht normalerweise 
die Vertauschung von zwei Indexsei¬ 
ten notwendig. 

Einen allgemeinen Fall für das Einfü¬ 
gen (und auch Löschen) eines Ele¬ 
mentes in einem B-Baum zweiten 
Grades finden Sie in Abbildung 6b. 
Unser Algorithmus versucht das neue 
Element (91) zunächst in die äußerste 
linke Seite einzufügen. Da diese aber 
schon voll ist (Grad *2 = 4), wird die 
Seite aufgeteilt. Das mittlere Element 
der alten Seite (87) wandert dabei 
über den Parameter v unseres Algo¬ 
rithmus zurück und wird als Entschei¬ 
dungselement für die beiden neuen 
Seiten (61 66 / 91 98) in die obere 
Seite übernommen. Hier wird da¬ 
durch wiederum ein Überlauf ausge¬ 
löst, der letztendlich zu einer Steige¬ 
rung der Baumhöhe führt, indem eine 
neue Wurzelseite (36) angelegt wird. 
Anmerkung: Die Ran- 
dom-Access-Struktur ist 
leider nicht ganz so 
pflegeleicht, wie unsere 
bisherigen Zeigerstruk¬ 
turen. Deshalb muß man 
beim Arbeiten mit Ran- 
dom-Access sehr darauf 
bedacht sein, den Inhalt 
der Puffervariable recht¬ 
zeitig (vor eventuellen 
Änderungen wegzu¬ 
schreiben (put), um feh¬ 
lerhafte Variablenbele¬ 
gungen zu vermeiden. 

Die entsprechenden 
Programmstellen wirken dadurch al¬ 
lerdings nicht ganz so elegant, wie 
Sie das bisher gewohnt waren. 

Nicht bei insert, aber in einigen der 
nun folgenden Operationen wird so¬ 
gar das Anlegen von Kopien der 
Puffervariablen notwendig, nämlich 
genau dann, wenn auf mehrere der 
Indexseiten zugegriffen werden muß. 


delete_data 

delete data besitzt mit der Proze¬ 
dur search einen Programmteil, der 
sich durch sehr ähnlichen Auftau die 
Namensgleichheit mit der Prozedur 
search' unter insertdata verdient. 
Es wird hier ebenfalls der rekursive 
Baumdurchlauf betrieben, nur daß 
bei der Auffindung bzw. Nichtauffin¬ 
dung eines Elementes andere Konse¬ 
quenzen gezogen werden müssen. 


Wird ein Element nicht gefunden 
(Zeile 400, a=leer), ist der Job für 
delete_data erledigt, was Sie an den 
durchweg negativen Bekundungen in 
den Zeilen 402-404 leicht feststellen 
(false/leer/false). 

Andernfalls ist unser Problem nicht 
so einfach. 

Grundsätzlich haben wir beim Ausfü¬ 
gen aus Bayer-Bäumen eine ähnliche 
Situation wie beim Ausfügen aus den 
schon hinreichend bekannten Binär¬ 
bäumen. 

Der einfachste Fall, der auftreten 
kann, ist das Ausfügen aus einer 
Blattseite (Zeilen 429-433). Hier muß 
eben nur die Seite entsprechend zu¬ 
sammengerückt werden. 

Befindet sich unser auszufügendes 
Element nicht auf einer Blattseite, so 
ist es, genau wie bei den Binärbäu¬ 
men, durch den unmittelbaren Vor¬ 


gänger oder Nachfolger in der Rela¬ 
tion zu ersetzen. Der Abwechslung 
halber nehmen wir diesmal nicht den 
maximalen linken Nachfolger des 
rechten Blattelementes (lexikogra- 
phischer Nachfolger) sondern den 
maximalen rechten Nachfolger des 
linken Blattelementes (lexikographi- 
scher Vorgänger). Diesen ermittelt 
uns die, in ähnlicher Form schon 
häufig benutzte, Prozedur del, die auf 
rekursiven Wegen die Nachfolgerli¬ 
ste hinabsteigt. 

Unten angelangt (q=leer; Bedingung 
in 400; Ausführung in 387-394) ist 
der k-te Eintrag des Elementes a 
durch den letzten Eintrag der ermit¬ 
telten Blattseite p zu ersetzen. Anders 
als bei den Binärbäumen brauchen 
wir uns diesmal nicht um einen even¬ 
tuellen Nachfolger des letzten Ein¬ 
trages von p zu kümmern, denn der 
existiert ja laut B-Baumdefinitionen 
nicht. 


Die Krone der Unübersichtlichkeit 
wird von der Prozedur underflow 
erreicht, die benutzt wird, um Seiten 
mit weniger als n Blattelementen 
wieder aufzufüllen bzw. mit anderen 
Seiten zusammenzulegen. 

Sie wird immer dann angewandt, 
wenn man aus einem rekursiven 
Aufruf, entweder von search oder 
von del, zurückkommt und der Para¬ 
meter h true ist und somit einen Un¬ 
terlauf in der zurückgelassenen Seite 
aufweist. 

In diesem Fall ist der Prozedur un¬ 
derflow die Seite mit Unterlauf, a, 
deren Vorgängerseite, c, und die Ein¬ 
tragposition, s, mitzuteilen, die die 
genaue Stelle in c markiert, deren 
Nachfolger a ist. 

Die Seite b stellt nun den anderen 
direkten Vorgänger bzw. Nachfolger 
der Stelle s in c dar. 

Je nachdem, ob in a und 
b nun noch genügend 
Knoten vorhanden sind, 
um zwei Seiten zu fül¬ 
len, findet entweder ein 
Ausgleich zwischen den 
beiden Seiten statt (Zei¬ 
len 299-309 und 334- 
346), oder die Seiten 
werden zu einer Seite 
zusammengefaßt (Zei¬ 
len 313-320 und 350- 
357). 

Die genaue Verbalisie¬ 
rung dieser im Großen 
einsichtigen, im Detail 
aber unübersichtlichen Sache schen¬ 
ke ich mir und Ihnen. 

Zurück zum Hauptblock von 
delete_data. Nach dem Aufruf von 
search und den hier erfolgten Miß¬ 
handlungen unseres B-Baumes be¬ 
steht noch die Möglichkeit, daß ein 
Unterlauf in unserem Wurzelknoten 
aufgetreten ist. Wie Sie den bisheri¬ 
gen Beispielen sicherlich entnommen 
haben, ist dies bis zu einem gewissen 
Grad erlaubt: 

Entgegen den Definitionen für eine 
beliebige Seite muß sich lediglich 
ein Element im Wurzelknoten be¬ 
finden. 

Wenn es aber auch an diesem einen 
Element mangelt (Zeile 460), muß 
etwas unternommen werden: 

A: Bei leerem linken Nachfolger ist 
der Baum völlig entleert, und 
das ist unserem Programm durch 
Setzen der Variable tree auf leer 
mitzuteilen. 



Abbildung 6b: Einfügen/Löschen 
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B: Bei einem linken Nachfolger ist 
dieser zu unserer Wurzelseite zu 
machen, und die ehemalige 
Wurzel ist als gelöscht zu kenn¬ 
zeichnen (Setzen des Archivie¬ 
rungsflags). 

Beachten Sie dabei bitte auch, 
daß die beiden Datensätze q und 
tree auch physikalisch ausge¬ 
tauscht werden (Zeilen 470-473). 

Abschließend sind noch die Datensei¬ 
ten des gelöschten Schlüssels aus der 
Datenbank zu entfernen. Zu diesem 
Zwecke wird in einer WHILE-Schlei- 
fe die deMist durchlaufen, wobei die 
entsprechenden Archivierungsflags 
auf false gesetzt werden. 

search_ptr 

search_ptr stellt nun die dritte und 
letzte Variante des Suchens in B- 
Bäumen dar. 

Sie tut weiter nichts, als die Random- 
Access-Adresse eines durch kev be- 
zeichneten Datenbankeintrages (nicht 
Index) zu ermitteln. Der prinzipielle 
Aufbau ist gleich dem bei 
insertdata und delete data, nur das 
keine so verwegenen Operationen auf 
der ermittelten Seite ausgeführt wer¬ 
den. 

searchfirst und 
searchnext 

search first sucht den ersten Da¬ 
tensatz mit bezeichnetem Schlüssel 
key in der Datenbank. Hierzu wird die 
Funktion search_ptr benutzt. Der 
Erfolg oder Mißerfolg wird über ei¬ 
nen Boolschen Funktionsreturn 
kundgetan. 

Weiterhin ist die globale Variable 
nextjist zu erwähnen, die das Auf¬ 
finden eines dem ersten Datensatz 
nachfolgenden Elements mit 
search_next erst ermöglicht. Durch 
wiederholten Aufruf von 
search_next kann so die gesamte 
Elementnachfolgerliste durchschrit¬ 
ten werden. 

printjree 

Die Prozedur print_tree stellt eine 
Variante des Präorderdurchlaufs 
durch eine B-Baumstruktur dar. Zu¬ 
nächst werden dabei sämtliche 
Schlüsselelemente ausgegeben und 


hierauffolgend die Liste sämtlicher 
Nachfolger durchlaufen. 

Nebenbei wird dabei auch noch Ele¬ 
ment für Element die Elementnach¬ 
folgerliste in der Datenbank durch¬ 
laufen. Zusammen mit einer Baum¬ 
tiefevariablen, tiefe, die bei jedem 
rekursivem Abstieg inkrementiert 
und mit den Schlüsselelementen aus¬ 
gegeben wird, ergeben sich recht 
anschauliche Baumdarstellungen. 
Spielt man ein wenig mit den Baum¬ 
ordnungen herum, kann man mit 
print tree Informationen darüber 
gewinnen, wie schnell B-Bäume in 
Abhängigkeit von ihrer Ordnung 
wachsen. 

In Abbildung 6c erkennen Sie, daß die 
Baumtiefe schon bei leicht erhöhter 
Ordnung sehr stark abnimmt. Schluß¬ 
folgerungen, die man dadurch über 
die optimale Ordnung gewinnen 
kann, sind aber sehr von der Größe 
der Schlüssel und der Organisation 
auf Datenträgern abhängig. Sie kön¬ 
nen aber in den meisten Fällen davon 
ausgehen, daß eine Seite immer dann 
recht effektiv geladen wird, wenn das 
gesamte Seitenformat ungefähr der 
Verarbeitungsgröße auf dem benutz¬ 
ten Massenspeicher entspricht. 

Beispiel: Unser ST hat als Grund¬ 
größe für Dateien das 
Cluster (1 kByte). 

Unser Variablenformat 
(Schlüssel in integer) er¬ 
gibt sich zu 8+8*nn Byte 
(kleiner Überschlag der 
Typensumme des RE¬ 
CORD page_type). 

Hieraus würde sich eine 
‘günstige' Ordnung von 
etwa 63 ergeben. 

Testumgebung 

Zur Testumgebung (Listing 6c) ist 
nicht viel zu sagen. Über einen trivi¬ 
alen Operationsaufruf hinaus ist nur 
die Routine zur Erzeugung einer 
‘gewissen' Anzahl von Zufallseinträ¬ 
gen zu nennen, die einem beim Testen 
viel Tipperei abnimmt. 

Packen 

Den Packalgorithmus zur Entfer¬ 
nung der leeren Datensätze habe ich 
in einem gesonderten Programm un¬ 
tergebracht (Listing 6d). 

Um zu sehen, wie nötig man das 


Packen mal wieder gehabt hat, besitzt 
dieses Programm zunächst zwei klei¬ 
ne Funktionen, die durch einfachen 
Durchlauf der jeweiligen Datei den 
prozentualen Anteil der gefüllten 
Datensätze ermittelt (Zeilen 24-44 für 
die Indexdatei, Zeilen 46-66 für die 
Datenbank). Das eigentliche Packen 
geschieht in mehreren Phasen. 

A: abstand besorgen 

Zunächst wird die Anzahl der auf¬ 
einanderfolgenden gefüllten und lee¬ 
ren Datensätze der beiden Dateien in 
den Puffern p_index und p_data un¬ 
tergebracht. Dabei treffen wir die 
Konvention, daß immer mit einer 
Sequenz von gefüllten Datensätzen 
begonnen wird. In den ungeraden 
Indizes der Puffer haben wir hiernach 
die Längen der noch gültigen Sequen¬ 
zen; in den geraden Indizes die Län¬ 
gen der zu entfernenden Sequenzen. 

B: abstand kumulieren 

Durch das Rausschmeißen der lee¬ 
ren Datensätze ändern sich die mei¬ 
sten (fast alle) der page_ptr und 
data_ptr in den verbleibenden. 

Um die neuen Indizes dieser Daten¬ 
sätze mit möglichst geringem Auf¬ 
wand berechnen zu können, addieren 
wir die Anzahl der belegt/unbelegt- 
Sequenzen in den beiden Puffern auf. 
Und zwar auf folgende Weise: 

Von links beginnend, berechnen wir 
in den ungeraden Indizes die Ge¬ 
samtanzahl aller (belegt und unbe¬ 
legt) vorstehenden Sequenzen. In den 
geraden Indizes berechnen wir nur die 
Gesamtanzahl der vorstehenden un¬ 
belegten Sequenzen. 

Mit newindex (bzw. nevv data) 
können wir danach sehr leicht die 
neuen Indizes berechnen, indem wir 
die ungeraden Pufferstellen bis zur 
Überschreitung der alten Indexzahl 
entlangwandern. Der neue Wert er¬ 
gibt sich dann sehr leicht durch Dif¬ 
ferenzbildung mit dem vorstehenden 
geraden ARRAY-Index. 

C:index_packen und data packen 

In den eigentlichen Packroutinen 
sind nur noch, unter Auswechslung 
sämtlicher alter Indizes durch die 
neuen, die gültigen Datensätze in eine 
temporäre Datei zu kopieren. Hier¬ 
nach erfolgt die Umbenennung der 
temporären in die alte Dateibezeich¬ 
nung. 
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GRUNDLAGEN 


Vorausschau 


So, das wär’s !!! Die Bäume sind tot. 
In der nächsten Folge von Algorith¬ 
men & Datenstrukturen werden Sie 


Hashing-Verfahren kennenlernen, 
die mitunter auch recht hilfreich bei 
der DV sind. Sie können aufatmen. 


Die Listings werden dabei nämlich 
merklich kürzer und durchsichtiger. 
Bis dann! 

(Sig) 


1: 

( Listing 6a) 


3. 

Typdefinitionen fuer die Indexdatei und die 


Datenbank. 


5 

programmiert : 

Oktober 87 

6 

von : 

Dirk Brockhaus 

7 

8 

mit 

} 

PASCAL+ 

9 

10 

key_type 

= integer; 

11 



12 

data_type 

= integer; 

13 



14 

pagejptr 

= integer; 

15 



16 

data_ptr 

= integer; 

17 



18 

base type 

= RECORD 

19 


flag : boolean; 

20 


next : data_ptr; 

21 


key : key_type; 

22 


data : data_type; 

23 


END; 

24 



25 

item_type 

= RECORD 

26 


key : key_type; 

27 


record_nr : data_ptr; 

28 


ptr : pagejptr; 

29 


END; 

30 



31 

page_type 

= RECORD 

32 


flag : boolean; 

33 


anz : integer; 

34 


ptrO : page_ptr; 

35 


item : ARRAY [l..nn] OF item_type; 

36 


END; 


1 

( Listing 6b) 


2 



3 

A 

Einige Routinen zur Unterhaltung der Datenbank. 

5 

programmiert : 

: Oktober 87 

6 

von 

: Dirk Brockhaus 

7 

8 

9 

mit 

: PASCAL* 

Funktionalitaeten : 

10 



11 

( dateilaenge 

: string -> long_integer x boolean ) 

12 

createjbase 

: () -> FILE OF page_type x 


FILE OF 

base_type 

13 

: start_base 

: () —> FILE OF page_type x 


FILE OF 

base_type x 

14 


page_ptr x page_ptr x data_ptr 

15 

: insert_data 

: FILE OF page_type x 


FILE OF base_type x key_type x 

16 


data_type x pagejptr -> 



FILE OF page_type x 

17 

: 

FILE OF base_type x pagejptr 

18 

: delete_data 

: FILE OF page type x FILE OF base_type 


x key_type x 

19 


pagejptr —> FILE OF page_type x 



FILE OF base_type x 

20 


boolean x page_ptr 

21 

: ( search_ptr 

: FILE OF page_type x key_type x 


22 : 

23: 

24 : 

25 : 

26: 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 


page_ptr -> data_ptr ) 
search_first: FILE OF base_type x 

FILE OF page_type x key_type x 

page_ptr -> data_ptr x data_type x 
boolean 

search_next : FILE OF base_type x 
data_ptr -> data_type x 

data_ptr x boolean 
print_tree : FILE OF page_type x 
FILE OF base_type -> text 


} 


FUNCTION dateilaenge( name : string; 

VAR laenge : long_integer) : 
boolean; 

TYPE dta_type = RECORD 

reserviert : PACKED ARRAY [0..21] OF byte; 

zeit : integer; 

datum : integer; 

groesse : long_integer; 

name : PACKED ARRAY [1.-14] OF char; 

END; 

dt a_pt r_type = A dta_t ype; 

sys_str = PACKED ARRAY [1..80] OF char; 

VAR dta_ptr : dta_ptr_type; 

pfad : sys_str; 

FUNCTION fgetdta : dta_ptr_type; 

GEMDOS($2f) ; 

FUNCTION fsfirst (VAR path : sys_str; 

attr : integer) : integer; 

GEMDOS($4e); 

PROCEDURE copy_sys( str : string; 

VAR path : sys_str); 

VAR i : integer; 

BEGIN {copy_sys} 

FOR i:=l TO length(str) DO 
pathfi):=str(i]; 

FOR i:=length(str)+1 TO 80 DO 
path[i]:=chr(0); 

END; (copy_sys) 

BEGIN {dateilaenge} 

{$P-} 

dt a_pt r:=fgetdt a; 
copy_sys(name,pfad); 
dateilaenge:=fsfirst(pfad,$17)>=0; 
laenge:=dta_ptr A .groesse; 

{$P+} 

END; {dateilaenge} 

PROCEDURE create_database; 

VAR i : integer; 

BEGIN {create_database} 

rewrite(index,index_name); 
close(index); 

rewrite(datenbank,database_name); 

geht weiter... 
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> Wußten Sie eigentlich, wieviel Arbeit Ihnen 

L Ihr ST bei den täglichen Büro-Aufgaben abnehmen 

^ ^ kann ? Immer vorausgesetzt, daß Sie über eine Software 

^ verfügen, die alle nötigen Funktionen besitzt, komfortabel 

und schnell ist; wie die von der GFE R. Becker KG entwickelten 
Programme der Reihe SYBEX ST-Kontor (jeweils mit Trainingsbuch). 

Ihr ATARI ST(260-1040, MegaST2-4) sollte einen Speicher von 1 MB RAM 
(für TOS-Manager und Kundenverwaltung reichen auch 512 KB) und das Betriebs¬ 
system TOS im ROM haben. Die mächtige FiBu benötigt ein doub/e-sided Laufwerk mit 

1 MB, optimal wäre eine Festplatte. 


o hilft Ihnen der ST-Kontor TOS-Manager: 


r ist die neue Verwaltungszentrale Ihres ATARI-Rechners Von hier aus können Sie alle übrigen ST Kontor-Programme ohne 
mges Suchen aufrufen. Viele Accessories erleichtern Ihnen die Arbeit: RAMDisk. Taschenrechner. Terminkalender. ASCII- 
jbelle. Notizblock usw Die Diskettenverwaltung ersetzt die GEM-Benutzeroberflache und bietet ihnen viele zusätzliche Mog- 
chkeiten. wie.- Formatieren und Kopieren von Disketten. Bearbeiten von Ordnern und Dateien. Suchen von Dateien, 
estaurieren gelöschter Dateien. Druckereinstellung. Ein Programm, mit dem Sie Ihre tägliche Arbeit einfacher und effizienter 
esta/ten. 
est.-Nr. 
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3428. DM 98.-'/sFr. 98-/S 872.- 
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Und das kann die ST-Kontor Kundenverwaltung 


Als Basismodul der ST Kontor-Reihe ist die Kundenverwaltung für die Verwaltung Ihrer Adressen-Bestande zuständig: nur Ihre 
Festplatte bzw. das RAM können dabei Grenzen setzen. Die wichtigsten Features im Überblick: 

V Superschnelles Suchen (Suchen nach Von-ßis-Werten in max. 0.5 Sekunden) 

V Optimierte Datenspeicherung 

V Mehrere Datenfelder pro Adresse (Stammdaten. Zusatzdaten. Notizen u. a.) 

V Umfangreiche Se/ektionsmög/ichkeiten nach beliebig vielen Kriterien 

V Ausgabe auf Datei/Monitor/Drucker a/s Liste, auf Etikett, als Serienbrief 

Best. -Nr. 


3429. DM 149.-'/sfr. 149.-/S 1326- 


■in Bündel arbeitssparender Features enthält die ST-Kontor Lagerverwaltung b Fakturierung: 


Vit diesem starken Kombi-Programm bringen Sie Ihr Sortiment auf Vordermann: Stücklisten. Etiketten. Preislisten. Kataloge und 
imfangreiche Angebote mit Textbausteinen sind jetzt kein Problem mehr für Sie. Ebenso selbstverständlich sind verschiedene 
agerbestands-BeWertungsmethoden. Übersicht über den aktuellen Lagerbestand mit Bestellvorschlägen. Fakturierungsuber 
:icht mit Offenen Posten. Teilen und Zusammenlegen von Fakturierungen - und die Übernahme in die Finanzbuchhaltung. Nicht 
r u vergessen die Bildschirmkasse mit dem aktuellen Kassenstand. Anzeige des Wechselgeldes und Ausdruck eines Kaufbelegs 
Ind betriebswirtschaftliche Funktionen zur Betriebsoptimierung werden direkt mitgeliefert. 

3est. -Nr, L 
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3430. DM 398.-* j sFr. 398-/S 3542, 




Den aktuellen EG-Richtlinien entspricht die ST-Kontor Finanzbuchhaltung 


Die mehrfirmen - und mandantenfahige FiBu verdaut große Buchungsmengen mit einer erstaunlichen Geschwindigkeit. Unter 
anderem können Sie von ihr erwarten: 

V Kontenrahmen SKR 04 mit 6000 Konten + Linzelhandels-Kontenrahmen SKR 02 

V Verschiedene ßilanzierungs und Absch/ußmoglichkeiten mit einfacher Kostenstellen Rechnung. Anlagenspiegel. Abschrei 
bungs Verzeichnis und betriebswirtschaftlicher Auswertung 

V Verbuchen von Sammelbelegen mit maximal 10 Soll- und 10 Habenkonten sowie 4 Mehrwertsteuer-Sätzen pro Buchung 

V Abwicklung des Zahlungsverkehrs mit Offenen Posten und Mahnwesen 

V Ubernahmedatei für Fakturierung/Lohn Et Gehalt mit Korrekturmoglichkeiten 


Best. -Nr. 


3431. DM 498,-'/sFr. 498.-/S 4432, 


las erledigt ST-Kontor Lohn b Gehalt für Sie 


r Verwaltung der Mitarbeiterdaten samt Ausfullen aller Versicherungs- und Finanzamtsformulare 


Alle Lohn und Gehaltskonten auf einen Blick 

Verwaltung von Zeitkonten einschließlich Krankheits- und Urlaubstagen 
Abrechnung von Vermogensbi/dung. Direktversicherung und Lohnpfändung 
Komplette Erstellung der Lohnsteuer Jahresdaten ohne Rechenaufwand 
Abwickeln des Zahlungsverkehrs mit Mitarbeitern. Ämtern und Versicherungen inklusive Berechnung der Zahlungsbetrage 
und Vorbereitung der Buchung. Oie Daten können von der ST-Kontor FiBu übernommen und weiter bearbeitet werden 


Best. -Nr. 


3432. DM 198.-'/sFr. 198.-/S 1760- 


Unverbindliche Preisempfehlung 
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GRUNDLAGEN 


83 

close(datenbank) ; 

84 

END; {create database} 

85 


86 

PROCEDURE Start database; 

87 


88 

VAR laenge : long_integer; 

89 


90 

BEGIN {start_database} 

91 

IF dateilaenge(index_name,laenge) THEN 

92 

last_index:=int(laenge) DIV sizeof(page_type)-1; 

93 

IF dateilaenge(database_name,laenge) THEN 

94 

last_data:=int(laenge) DIV sizeof(base_type)-1; 

95 

reset(index,index name) ; 

96 

reset(datenbank,database name) ; 

97 

IF last index=leer THEN 

98 

tree:=leer 

99 

ELSE 

100 

tree:=wurzel; 

101 

END; (Start database) 

102 


103 

PROCEDURE insert data(new_key : key_type; 

104 

new data : data type) ; 

105 


106 

VAR h : boolean; 

107 

u : item type; 

108 


109 

PROCEDURE search( x : key_type; 

110 

a : page_ptr; 

111 

VAR h : boolean; 

112 

VAR v : item type) ; 

113 


114 

VAR k , 

115 

1 , 

116 

r : integer; 

117 

u ; item type; 

118 


119 

PROCEDURE insert; 

120 


121 

VAR i : integer; 

122 

b : page_type; 

123 


124 

BEGIN (insert) 

125 

get(index,a) ; 

126 

WITH index A DO 

127 

IF anz<nn THEN 

128 

BEGIN 

129 

anz:=anz+l; 

130 

h:=false; 

131 

FOR i:=anz DOWNTO r+2 DO 

132 

item[i]:=item[i-l] ; 

133 

item[r+l]:=u; 

134 

put(index,a) ; 

135 

END 

136 

ELSE 

137 

BEGIN 

138 

IF r<=n THEN 

139 

BEGIN 

140 

IF r=n THEN 

141 

v:=u 

142 

ELSE 

143 

BEGIN 

144 

v:=item[n] ; 

145 

FOR i:=n DOWNTO r+2 DO 

146 

item[i];=item[i-l] ; 

147 

item[r+l):=u; 

148 

END; 

149 

FOR i:=1 TO n DO 

150 

b.item[i]:=item[i+n] ; 

151 

END 

152 

ELSE 

153 

BEGIN 

154 

r:=r-n; 

155 

v:=item[n+l] ; 

156 

FOR i:=1 TO r-1 DO 

157 

b.item[i]:=item(i+n+l] ; 

158 

b.item[r]:=u; 

159 

FOR i:=r+l TO n DO 

160 

b.item(i]:=item[i+n] ; 

161 

END; 

162 

anz:=n; 

163 

put(index,a) ; 

164 

b.anz:=n; 

165 

b.ptr0:=v.ptr; 

166 

index A :=b; 

167 

index A . flag:=true; 

168 

last_index : =last_index+l ; 




169 

put(index, last_index) ; 

170 

v.ptr:=last_index; 

171 

END; 

172 

END; (insert) 

173 


174 

BEGIN (search) 

175 

IF a=leer THEN 

176 

BEGIN 

177 

h:=true; 

178 

WITH v DO 

179 

BEGIN 

180 

key:=x; 

181 

ptr:=leer; 

182 

record_nr:=last_data; 

183 

END; 

184 

END 

185 

ELSE 

186 

BEGIN 

187 

get(index,a) ; 

188 

WITH index A DO 

189 

BEGIN 

190 

1 :=1; 

191 

r:=anz; 

192 

REPEAT 

193 

k:=(1+r) DIV 2; 

194 

IF x<=item[k].key THEN 

195 

r:=k-l; 

196 

IF x>=item[k].key THEN 

197 

ls-k+1; 

198 

UNTIL r<l; 

199 

IF l-r>l THEN 

200 

BEGIN 

201 

get(datenbank,last_data) ; 

202 

datenbank A .next:=item[k).record_nr; 

203 

put(datenbank,last_data) ; 

204 

item[k] . record_nr : =last_data; 

205 

put(index,a) ; 

206 

h:=false; 

207 

END 

208 

ELSE 

209 

BEGIN 

210 

IF r=0 THEN 

211 

search(x,ptr0, h, u) 

212 

ELSE 

213 

search(x,itemfr].ptr, h, u) ; 

214 

IF h THEN 

215 

insert; 

216 

END; 

217 

END; 

218 

END; 

219 

END; (search) 

220 


221 

BEGIN (insert_data) 

222 

WITH datenbank A DO 

223 

BEGIN 

224 

flag:=true; 

225 

next:=leer; 

226 

key:=new_key; 

227 

data:=new data; 

228 

END; 

229 

last_data : =last_data+l ; 

230 

put(datenbank,last_data) ; 

231 

search(new_key,tree,h,u) ; 

232 

IF h THEN 

233 

BEGIN 

234 

IF last_index<>leer THEN 

235 

get(index,0) ; 

236 

index A . flag:=true; 

237 

last_index : =last_index+l ; 

238 

put (index,last_index) ; 

239 

tree:=wurzel; 

240 

WITH index A DO 

241 

BEGIN 

242 

anz:=l; 

243 

IF last_index=0 THEN 

244 

ptrO:=-l 

245 

ELSE 

246 

ptrO : =last_index; 

247 

item(l]:=u; 

248 

END; 

249 

put(index,wurzel) ; 

250 

END; 

251 

END; (insert_data) 

252 


253 

FUNCTION delete_data(key : key_type) : boolean; 

254 

geht weiter.... 
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„Wir machen Spitzentechnologie preiswert", lobt Atari seine ST-Reihe. 
Und das zu recht. Doch warum soll, was für die Hardware gilt, nicht 
auch bei der Software möglich sein? Schließlich gilt auch hier: Qualität 
ist keine Frage des Preises und der Preis eher eine Frage der Stückzahl. 
Deswegen vertreiben wir ausgereifte Programme in hohen Stück¬ 
zahlen. Zu Preisen, die Ihnen den heißersehnten Einstieg leicht 

. - 



Haben Sie ihn nicht schon länger 
gesucht - den Einstieg in ein pro¬ 
fessionelles Datenbank-Programm? 
Hier ist er. BECKERbase ST. Völlig 
unproblematische Installation und 
Bedienung. Zwei integrierte 
Programmiersprachen sorgen für 
eine hohe Flexibilität in der An¬ 
passung an spezifische Benutzerbe¬ 
dürfnisse. Besonderer Vorteil: die 
Datei-Beziehungen sind als Netz¬ 
werk angelegt. 

BECKERbase ST in Kürze: 

Unbegrenzte Anzahl von Dateien 
pro Datenbank - maximal 65535 
Sätze pro Datei - Satzlänge max. 
64 KByte - unbegrenzte Anzahl 
Felder pro Datensatz - maximal 
255 Zeichen pro Feld - integrierte, 
leicht erlernbare Datenbank¬ 
sprache DDL (Data Definition Lan- 
guage), TDL (Transaction Definition 
Language) zur individuellen Daten¬ 
bankerstellung - separater, voll in 
GEM integrierter Maskeneditor - 
implementierte Import-Funktion zur 
einfachen Übernahme von Daten¬ 
beständen anderer Programme - 
Export-Funktion zur Übergabe von 
Daten z. B. an eine Textverarbei¬ 
tung - Kompatibilität zu BECKER¬ 
base PC, so daß nicht nur Daten 
ausgetauscht werden können, 
sondern sogar die Literatur über 
BECKERbase PC verwendet werden 
kann. Empfohlen wird ROM-TOS 
und 1MByte RAM. 


BECKERbase ST 
DM 


99r 


Eine Sammlung kleiner, hilfreicher 
GEM-Programme als Accessories, 
die immer da sind, wenn der 
Anwender sie braucht. Dabei sind 
alle Tools jederzeit nachladbar, 
selbst wenn Sie sich innerhalb eines 
Programms befinden. 

BECKERtools ST in Kürze: 

Hebt praktisch alle Beschränkungen 
für die Accessory-Anwendung auf - 
belegt nur einen Eintrag im DESK- 
Menü, beinhaltet aber die Möglich¬ 
keit, bis zu 30 Tools (Accessories) 
aufzurufen - diese Tools können zu 
beliebiger Zeit nachgeladen wer¬ 
den, nicht nur beim Booten - Tools 
können jederzeit wieder entfernt 
werden - folgende Tools gehören 
unter anderem zum Programmpa¬ 
ket: DIR, übersichtliche Anzeige des 
Inhaltsverzeichnisses mit Editierung 
der Dateiparameter (Name, Datum, 
Zeit) - EDDY, praktischer Editor für 
ASCII-Dateien - FILECOPY kopiert 
Dateien - FORMAT, formatiert bis 
zu max. 820 KByte/Diskette - 
ORDNER, erzeugt Dateien - 
UNDELETE, restauriert gelöschte 
Dateien, falls irgend möglich - 
WIPEFILE, löscht eine Datei unwi¬ 
derruflich - Harddisk-Backup. 
Lauffähig mit Monochrom-Monitor. 


BECKERtools ST 
DM 
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Ist das wirklich das Profi-Programm, 
das Sie schon immer haben wollten, 
aber sich bisher nicht leisten konn¬ 
ten? Ja, Sie träumen nicht. Mit PLA¬ 
TINE ST erstellen Sie elektronische 
Leiterplatten mit einem Minimum an 
Kosten, Zeit und Arbeitsaufwand. 

PLATINE ST in Kürze: 

Pro Schaltung bis zu 250 Bauteile 
und 1100 Verbindungen - unter¬ 
stützt Leiterbahnen mit 45- und 90- 
Grad-Segmenten und zwei ver¬ 
schiedene Leiterbahnstärken - ein 
oder zwei Layer, bis Europakarten¬ 
format - selbstdefinierte Bauteile 
können verwendet werden - der 
Auto-Router kann durch umfang¬ 
reiche Optionen beeinflußt werden 

- flexible und interaktive Bauteile¬ 
plazierung - volle Menüsteuerung 

- Platinenüberprüfung, Verbin¬ 
dungslisten mit bestehenden Ver¬ 
bindungen - Bauteile können in 
90-Grad-Schritten gedreht werden 

- übersichtliche Bearbeitung der 
Platine durch übereinanderliegende 
Layer und Bestückungsplan - Aus¬ 
druck ist sehr genau und kann zur 
fototechnischen Bearbeitung wei¬ 
terverwendet werden - Treiber u.a. 
für die Drucker NEC P6/P7, Toshiba 
P 351 und HP-GL Plotter - mit aus¬ 
führlichem deutschen Handbuch - 
lauffähig mit Monochrom-Monitor. 


PLATINE ST 
DM 







GRUNDLAGEN 


255 

VAR del_list : data_ptr; 


342 

ic.item[s] :=index A . ’itemfmb] ; 

256 

q : page_pt r ; 


343 

ic.item[s].ptr:=a; 

257 

h : boolean; 


344 

index A . anz : =mb-l ; 

258 



345 

ia.anz:=n-l+k; 

259 

PROCEDURE search( x : key_type; 


346 

h:=false; 

260 

a : page_ptr; 


347 

END 

261 

VAR h : boolean) ; 


348 

ELSE 

262 



349 

BEGIN 

263 

VAR q : page_ptr; 


350 

index A . item[mb]:=ic.item[s] ; 

264 

i , 


351 

index A . item[mb].ptr:=ia.ptr0; 

265 

• k , 


352 

FOR i:=1 TO n-1 DO 

266 

1 , 


353 

index A . item[i+mb]:=ia.item[i] ; 

267 

r : integer; 


354 

index A .anz:=nn; 

268 



355 

ic.anz:=mc-l; 

269 

PROCEDURE underflow( c , 


356 

h : =mc<=n ; 

270 

a : page_ptr; 


357 

ia.flag:=false; 

271 

s : integer; 


358 

END; 

272 

VAR h : boolean) ; 


359 

END; 

273 



360 

put(index,b) ; 

274 

VAR b : pagejptr; 


361 

index A :=ia; 

275 

i , 


362 

put(index,a) ; 

276 

k , 


363 

index A :=ic; 

277 

mb , 


364 

put(index,c) ; 

278 

mc : integer; 


365 

END; {underflow} 

279 

ic , 


366 


280 

ia : page type; 


367 

PROCEDURE del ( p : pagejptr; 

281 



368 

VAR h : boolean) ; 

282 

BEGIN {underflow) 


369 


283 

get(index,c) ; 


370 

VAR q : page_ptr; 

284 

ic:=index A ; 


371 

ip : page_type; 

285 

get(index,a) ; 


372 


286 

ia:=index A ; 


373 

BEGIN {del} 

287 

mc:=ic.anz; 


374 

get(index,p) ; 

288 

IF s<mc THEN 


375 

ip:=index A ; 

289 

BEGIN • . 


376 

WITH ip DO 

290 

s:=s+l; 


377 

BEGIN 

291 

b:=ic.item[s].ptr; 


378 

q:=item[anz].ptr; 

292 

get(index,b) ; 


379 

IF qoleer THEN 

293 

mb : =index A . anz ; 


380 

BEGIN 

294 

k:=(mb-n+1) DIV 2; 


381 

del(q,h) ; 

295 

ia.item[n]:=ic.item[s] ; 


382 

IF h THEN 

296 

ia . item(n].ptr:=index A . pt rO ; 


383 

underflow(p,q,anz,h) ; 

297 

IF k>0 THEN 


384 

END 

298 

BEGIN 


385 

ELSE 

299 

FOR i:=1 TO k-1 DO 


386 

BEGIN 

300 

ia.item[i+n]:=index A . item[i] ; 


387 

get(index,a) ; 

301 

ic.item[s]:=index A . item[k] ; 


388 

item[anz].ptr:=index A . item[k].ptr; 

302 

ic.itemfs].ptr:=b; 


389 

index A . item[k]:=item[anz] ; 

303 

index A .ptrO:=index A . itemfk].ptr; 


390 

anz:=anz-l; 

304 

mb:=mb-k; 


391 

h:=anz<n; 

305 

FOR i:=1 TO mb DO 


392 

put(index,a) ; 

306 

index A . item[i]:=index'.item[i+k] ; 


393 

index A :=ip; 

307 

index A .anz:=mb; 


394 

put(index,p) ; 

308 

ia.anz:=n-l+k; 


395 

END; 

309 

h:=false; 


396 

END; 

310 

END 


397 

END; {del} 

311 

ELSE 


398 


312 

BEGIN 


399 

BEGIN {search} 

313 

FOR i:=1 TO n DO 


400 

IF a=leer THEN 

314 

ia.item[i+n]:=index A .item[i] ; 


401 

BEGIN 

315 

FOR i:=s TO mc-1 DO 


402 

h:=false; 

316 

ic.item[i]:=ic.item[i+l] ; 


403 

del_list:=leer; 

317 

ia.anz:=nn; 


404 

delete_data:=false; 

318 

ic.anz:=mc-l; 


405 

END 

319 

h:=mc<=n; 


406 

ELSE 

320 

index A . flag:=false; 


407 

BEGIN 

321 

END 


408 

get(index,a) ; 

322 

END 


409 

WITH index A DO 

323 

ELSE 


410 

BEGIN 

324 

BEGIN 


411 

1 :=1; 

325 

IF s=l THEN 


412 

r:=anz; 

326 

b:=ic.ptr0 


413 

REPEAT 

327 

ELSE 


414 

k:=(1+r) DIV 2; 

328 

b:=ic.item[s-l].ptr; 


415 

IF x<=item[k].key THEN 

329 

get (index,b) ; 


416 

r:=k-l; 

330 

mb : =index A . anz+1 ; 


417 

IF x>=item[k].key THEN 

331 

k:=(mb-n) DIV 2; 


418 

1:=k+l; 

332 

IF k>0 THEN 


419 

UNTIL r<l; 

333 

BEGIN 


420 

IF r=0 THEN 

334 

FOR i : =n-l DOWNTO 1 DO 


421 

q:=ptr0 

335 

ia . item[i+k) : =ia . item{i] ; 


422 

ELSE 

336 

ia.item[k]:=ic.item[s] ; 


423 

q:=item[r].ptr; 

337 

ia.item[k].ptr:=ia.ptr0; 


424 

IF l-r>l THEN 

338 

mb : =mb-k; 


425 

BEGIN 

339 

FOR i:=k-l DOWNTO 1 DO 


426 

del_list:=item[k].record_nr; 

340 

ia.item[i]:=index A .item[i+mb] ; 


427 

IF q=leer THEN 

(jefit ziviter... 

341 

ia.ptr0:=index A .item[mb].ptr; 
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Ist PROPORTIONAL 

(siehe Testbericht ST-Computer 6/87) 


Ist PROPORTIONAL ermöglicht Ausdrucke von Ist Word/Ist Word Plus Texten in Proportionalschrift 

im Blocksatz. Dadurch erhält man Ausdrucke, die gesetzten Texten in nichts nachstehen. Ist PROPOR¬ 
TIONAL unterstützt alle proportionalschriftfähigen Nadeldrucker (9. 18, 24 Nadeln) und proportional- 

schriftfähige Typenraddrucker (mit entsprechendem PS-Typenrad). 

- läuft vollständig unter GEM (SW-Monitor), unterstützt alle Optionen von Ist Word Plus 

- verschiedene Zeilenlineale in verschieden breiten Proporlionalschriften im Blocksatz! 

- im Text integrierte Grafik kann in 3 verschiedenen Größen gedruckt werden, dadurch Ausdruck exakt 
wie auf dem Bildschirm oder unverzerrter Ausdruck (Kreise bleiben rund, auch bei 24 N'D!) 

- Grafiktreiber für 9, 18, 24 Nadeldrucker, dadurch endlich satte Schwärzen auch auf 24 Nadeldruckern 

- Verkettung von bis zu 25 Texten im Ausdruck bei wahlfreien Druckoptionen für jeden Text und auto¬ 
matischer Durchnummerierung; wichtig bei umfangreichen (wissenschaftlichen) Arbeiten. 

- Ist PROPORTIONAL wird mit Druckertreibern für NEC P5/6/7, TA GABI 9009, Brother HR 15, 
HR 25, 35, EM 701, 711, 811, LQ 800, Seikosha SL 80 AI, STAR NL 10, FX 85, auf einer einseitigen 
Diskette mit 60-scitigem, deutschen Handbuch geliefert (weitere Druckeranpassungen auf Anfrage). 

- 7-seitiges Info mit Probeausdrucken anfordern - (bitte 2,00 DM in Briefmarken beilegen) 

Ist PROPORTIONAL kostet nur 95 DM 


Hans Christian Kniß • Adalbertstr. 44 • 5100 Aachen • 02 41/2 42 52 


ATARI ST 

nec P5/P6/P7 epson LQÖOO etc 

PLATINEN-LAYoUT 

MPK Printed Circuit Board Editor. Vorsion 3 4 _ new> 

Professionelles, voll mausgesteuertes Leiterplatten CAD Programm 
ohne Autorouter H.irdwarevorauss ATARI ST l MEGA ST ) mit 
1 Mb und ROM TOS. sowie ein 24nadel Drucker 
Platinen bis 203»240mm. beidseitig 1/180 Inch Auflösung. Semi- 
feinstleiter. 45 Grad Leiterbahnwinkei 

Gesamtbildfadenkreu/cursor mit einst Schrittweite. WYSIWYG, 
real-time-/oom und em sehr schneller Bildaufbau erleichtern die 
interaktive Layouterstellung ( Proqr lauft nur monochrom ) 
Jederzeit Top View oder Bottom View ( Spiegeln ) 

Ausdruck mit hoher Auflösung 1 t für Prototypen oder 2 1 in 
Produktionsqualitat < 1 garantier t pr axis-erprobt I ) 

Ausfullen der Lotaugenmittelpunkte beim Drucken möglich 
Getrennter Bohrpl.inausdruck I Lotstopmaske I 
Der MPK PCB Editor kommt voi wiegend im professionellen Bereich 
zum Einsatz 

MPK PCB EDITOR mit deutsch Handbuch DM 1/9,“ zu/gl Vers 
Ong.nalausdruck P6 P er Nachnahme 



Händlerkonditionen auf Anfr 1 


MPK 

Marek Petrik 
Vogelsbergstr. 13 
D - 3550 Marburg 7 
06421 / 47588 


‘PuUle- ^om mL n $ofao*te 

Alle Programme werden auf erstklassigem 
Dlskettenmaterijl geliefert! 

PO-Soft wäre, siehe PO-Llste dieser Ausgabe. 
Jede EJnzeldiskette (SS oder DS formatiert) 

nur: DM 7,50,"" 

Preis Je 10er Bock OS formatiert; S Disketten 

nur: DM 35,~ 

Preis Je 10er Bock SS formatiert; 10 Disketten 

nur: DM 70 

Senden Sie Ihre Bestellung bitte an: 

/\eOoe Seftioate 
Ostpteuflenstt. 4 
8400 T&eqevubuttQ 

[] Nachnahme: (Nur Infand zuzugl. DM 5,- 
__ Nachnahmegebühr). 

LJ Scheck über DM-liegt bei. 

Alle Preise inklusive Porto und Verpackung. 


Profi-Software liir die ST-Computer 


ST-Firmenbuch: Doppelte Buchführung 

| für jeden Selbständigen. DM 139.- 

AS-Haushalt: Haushaltsbuchführung für 

alle Privathaushalte. DM 99.- 

AS-Termin/Adress: kombinierte Adressen- 
und Terminverwaltung DM 129.- 

AS-Diskop: Alle Funktionen des Desktop 
als ACC. Immer griffbereit. DM 89.- 

Hardcopy+r Druckutility für alle 24- 

Nadeldrucker. Viele Optionen DM 49.- 

AS-Index: Erstellen von Indexverzeichnis¬ 
sen für Ist Word Plus Dateien. DM 35.- 

ST- Printerfont: Druckerzeichensatzeditor 
für alle 24-Nadeldrucker. DM 79.- 

Kostenlose Info 1/88 anfordemü! 

AS-Datentechnik A. Spitzbarth 
Mainzer Str. 69 6096 Raunheim 

l "ST 06142 / 2 26 77 o. 4 58 79 


y iks Public Domain y 

Angebot wie ’ST-Computer’ 
Elnzddtsk SS ab 6 Stück DM 100 

bis 5 Stück DM 100 

Doppddisk z.B 1/2.JM/82 u.s.w. (aufeinanderfolgend 
und ungerade beginnend DM 7jOO 

Pakete HO, H-20, 21-30, 31-40 u.s.w. 
auf 5 Disketten DS DM 30j00 

Preis mkl. Disk zzgl. Porto u. Verp. DM 5.00 
(Ausl. DM 10.00) NN plus 1.70, besser V.-Scbeck 

MS DOS Emulator 

Haben Sie Probleme Ihre 5,25“ MS Dos Software 
auf das 3£ a Format zu bringen. Wir lösen das 
für Sie! Wie? Rufen Sie uns an! Preis DM tfuOO 
ab 6 St. DM £00, ab 10 St. DM H00 je Disk 

iks 

Schönblickstraße 7 
7516 Karlsbad 4 
BT ab 18 Uhr 07202/6793 



r 


y 


/• 


"3 


, Heinrich Kersten 

C-Tutorfür 
alle Atari ST 
Computer 

1988, Diskette, 

DM 38, - (unverb. 
s Preisempfehlg.) 
ISBN 3-7785-1510-1 

Die Sprache C ist „in". Mit diesem Einfüh¬ 
rungskurs erlernen Sie die Grundzüge dieser 
Sprache, wobei der Bezug zum ST und sei¬ 
nem Betriebssystem stets gewahrt bleibt. 
Ausgearbeitete Programmbeispiele geben 
Anregung. (C-Compiler erforderlich) 


Heinrich Kersten 

Assembler-Tutor für alle 
Atari ST Computer 

1987, Diskette 

DM 38, - (unverb. Preisempfehlg.) 

ISBN 3-7785-1508-X 

Ein Programmierkurs auf Diskette mit 29 Lek¬ 
tionen und zusätzlichen Bildschirmtafeln er¬ 
möglicht es Ihnen schnell und bequem, am 
Rechner eine neue Programmiersprache zu 
erlernen, die mehr aus dem Atari ST heraus¬ 
holt. 


Volker Dittmar 

Omikron-BASIC GEM-Tutor 
für alle Atari ST Computer 

1988, Broschüre + Diskette 
DM 38, - (unverb. Preisempfehlg.) 

ISBN 3-7785-1509-8 

Jetzt können Sie ganz einfach eine GEM-Be- 
dienung in Ihre Omikron-BASIC-Programme 
einbauen: ein Programmskelett aus der Tool¬ 
box laden, eigene Routine einhängen und 
schon fertig. Die völlig neue GEM-Library die¬ 
ses Tutors ist weitgehend kompatibel zu C, 
sodaß Sie jetzt alle Atari-Handbücher auch 
für Omikron-BASIC nutzen können. 


BESTELLCOUPON 

einsenden an: Dr. Alfred Hüthig Verlag. 
Im Weiher 10, 6900 Heidelberg 


Titel 


Name. Vorname 


Straße. Nr 


PLZ. Ort 


Datum. Unterschrift 



Hüthig 
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GRUNDLAGEN 


514 

q:=item[r].ptr; 

515 

IF l-r>l THEN 

516 

search_ptr:=item[k].record_nr 

517 

ELSE 

518 

search_ptr:=search_ptr(q,key) ; 

519 

END; 

520 

END; 

521 

END; {search_ptr} 

522 


523 

FUNCTION search_first( key : key_type; 

524 

VAR data : data_type) : boolean; 

525 


526 

BEGIN {search_first} 

527 

next_list:=search_ptr(tree,key) ; 

528 

search_first:=next_list<>leer; 

529 

IF next_listoleer THEN 

530 

BEGIN 

531 

get(datenbank,next_list) ; 

532 

data : =datenbank A . data; 

533 

next_list:=datenbank A .next; 

534 

END; 

535 

END; {search_first} 

536 


537 

FUNCTION search_next(VAR data : data_type) : boolean; 

538 


539 

BEGIN {search_next} 

540 

search_next :=next_listoleer; 

541 

IF next_listoleer THEN 

542 

BEGIN 

543 

get(datenbank,next_list) ; 

544 

data:=datenbank A .data; 

545 

next_list:=datenbank A .next; 

546 

END; 

547 

END; {search_next} 

548 


549 

PROCEDURE print_tree(tree : page_ptr; 

550 

tiefe : integer) ; 

551 


552 

VAR i : integer; 

553 

copy : page_type; 

554 


555 

BEGIN (print_tree) 

556 

IF treeoleer THEN 

557 

BEGIN 

558 

write(tiefe, ' : '); 

559 

get(index,tree) ; 

560 

WITH index A DO 

561 

BEGIN 

562 

FOR i:=l TO anz DO 

563 

BEGIN 

564 

write(item[i].key, ' ('); 

565 

get(datenbank,item[i].record_nr) ; 

566 

write(datenbank A .data) ; 

567 

WHILE datenbank A .nextoleer DO 

568 

BEGIN 

569 

get(datenbank,datenbank A .next) ; 

570 

write( V' t datenbank A .data) ; 

571 

END; 

572 

write (') '); 

573 

END; 

574 

writeln; 

575 

copy:=index A ; 

576 

print_tree(ptrO,tiefe+1) ; 

577 

FOR i:=l TO copy.anz DO 

578 

print_tree(copy.item[i].ptr,tiefe+1) ; 

579 

END; 

580 

END; 

581 

END; (print_tree) 


Listing 6b (Ende) 


428 

BEGIN 

429 

anz:=anz-l; 

430 

h:=anz<n; 

431 

FOR i:=k TO anz DO 

432 

item[i]:=item[i+l] ; 

433 

put(index,a) ; 

434 

END 

435 

ELSE 

436 

BEGIN 

437 

del (q, h) ; 

438 

IF h THEN 

439 

underflow(a,q,r,h) ; 

440 

END; 

441 

END 

442 

ELSE 

443 

BEGIN 

444 

search(x,q,h) ; 

445 

IF h THEN 

446 

underflow(a,q,r,h) ; 

447 

END; 

448 

END; 

449 

END; 

450 

END; (search) 

451 


452 

BEGIN (delete data) 

453 

IF treeoleer THEN 

454 

BEGIN 

455 

delete data:=true; 

456 

search(key,tree,h) ; 

457 

IF h THEN 

458 

BEGIN 

459 

get(index,tree) ; 

460 

IF index A .anz=0 THEN 

461 

IF index A .ptr0=leer THEN 

462 

BEGIN 

463 

tree:=leer; 

464 

index A . flag:=false; 

465 

put(index,wurzel) ; 

466 

END 

467 

ELSE 

468 

BEGIN 

469 

q:=index A .ptrO; 

470 

get(index,q) ; 

471 

put(index , t ree) ; 

472 

index A . flag:=false; 

473 

put(index,q) ; 

474 

END; 

475 

END; 

476 

WHILE del_listoleer DO 

477 

BEGIN 

478 

get(datenbank,del_list) ; 

479 

datenbank A . flag:=false; 

480 

put(datenbank,del_list) ; 

481 

del_list:=datenbank A .next; 

482 

END; 

483 

END; 

484 

END; (delete_data) 

485 


486 

FUNCTION search_ptr(a : page_ptr; 

487 

key : key_type) : datajptr; 

488 


489 

VAR q : pagejptr; 

490 

1 , 

491 

r , 

492 

k : integer; 

493 


494 

BEGIN (search_ptr) 

495 

IF a=leer THEN 

496 

search_ptr:=leer 

497 

ELSE 

498 

BEGIN 

499 

get(index,a) ; 

500 

WITH index A DO 

501 

BEGIN 

502 

1:=1; 

503 

r:=anz; 

504 

REPEAT 

505 

k:=(1+r) DIV 2; 

506 

IF key<=item[k].key THEN 

507 

r:=k-l; 

508 

IF key>=item[k].key THEN 

509 

l:=k+l; 

510 

UNTIL r<l; 

511 

IF r=0 THEN 

512 

q:=ptr0 

513 

ELSE 


1: 

{ Listing 6c) 


2: 



3 

; Eine Testumgebung fuer unsere Datenbank 

mit Bayerbaum 

A 

indizierung. 


5 

programmiert : Oktober 87 


6 

von : Dirk Brockhaus 


7 

mit : PASCAL+ 


8 

) 


9 



10 

PROGRAM test_b_baeume (input,output) ; 


11 



12 

CONST nn = 4; 


13 

n =2; 

fielt! weiter.... 
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* unverbindliche Preisempfehlung 


...UND 

PLÖTZLICH 

IST DIE ENT¬ 

SCHEIDUNG 

GANZ 

EINFACH: 

VER¬ 

GLEICHEN 
SIE PREIS 

UND 

LEISTUNG 


vortex HDplus 
Festplatten-Systeme 

Das hat es bis jetzt noch nicht gegeben: Ein 
Festplatten-Programm für den ATARI ST 
bzw. MEGA ST mit Kapazitäten von 20 bis 
120 MB formatierte Speicherkapazität! 

Weitere Vorteile_ 

• Cache-Memory 

• Auto-Parker 

• bis zu 16 Partitionen 

• Disketten-Backup-Programm 

• bootfähig 

Natürlich im ATARI-Design und in vortex- 
Qualität. Komplett anschlußfertig mit 
System-Diskette, Buskabel und deutschem 
Handbuch. 

Holen Sie sich die kompletten 
Informationen. Sofort! 


von 20 bis 120 HB! 





r 


ST- 4/88 

N-F-O-S-C-H-E-C-K 



Senden Sie mir umgehend alle Informationen über Ihr 
HDplus-Programm und nennen Sie mir den nächstgelege¬ 
nen vortex-Vertragshändler. 


COfVIPUTE RSYS T E IS/I E 


...UND PLÖTZLICH LEISTET IHR COMPUTER MEHR 


vortex Computersysteme GmbH 

Falterstraße 51-53 • 7101 Flein • Telefon (071 31) 52061 






























GRUNDLAGEN 


14 

leer « -1; 

15 

wurzel =0; 

16 

database name = 'TEST.DBF'; 

17 

index name = 'TEST.NDX'; 

18 


19 

TYPE {$i bayertyp.pas} 

20 


21 

VAR index : FILE OF page_type; 

22 

datenbank : FILE OF base_type; 

23 

last data , 

24 

next_list : data_ptr; 

25 

last index , 

26 

tree : page^ptr; 

27 


28 

{$i bayersub.pas} 

29 


30 

FUNCTION random : integer; 

31 


32 

FUNCTION rnd : integer; 

33 

XBIOS (17) ; 

34 


35 

BEGIN {random} 

36 

random:=abs (rnd) MOD 100; 

37 

END; {random} 

38 


39 

PROCEDURE do main; 

40 


41 

VAR chl , 

42 

ch2 : char; 

43 

key : key_type; 

44 

data : data_type; 

45 

i / 

46 

anz : integer; 

47 


48 

BEGIN {do main} 

49 

REPEAT 

50 

writeln; 

51 

writeln('Testumgebung fuer Bayer-Baeume :' ) ; 

52 

writeln; 

53 

writeln('(1) Einfuegen') ; 

54 

writeln('(2) Loeschen'); 

55 

writeln('(3) Suchen'); 

56 

writeln('(4) Baumausgabe'); 

57 

writeln('(5) Loeschen aller Daten'); 

58 

writeln( ' (6) Random-Daten einfuegen') ; 

59 

writeln; 

60 

writeln('(0) Beenden'); 

61 

writeln; 

62 

write('Ihre Wahl —> ');• read(chl); 

63 

writeln; 

64 

writeln; 

65 

CASE chl OF 

66 

'1' : BEGIN 

67 

writeln; 

68 

writeln; 

69 

writeln('Einfuegen :' ) ; 

70 

writeln; 

71 

write ('Schluessel (integer) ? '); 


readln(key) ; 

72 

: write('Daten (integer) ? '); 


readln(data) ; 

73 

insert_data(key , data) ; 

74 

writeln ( 'Daten eingefuegt !'); 

75 

readln; 

76 

END; 

77 

'2' : BEGIN 

78 

writeln; 

79 

writeln; 

80 

writeln('Loeschen :' ) ; 

81 

writeln; 

82 

write ( 'Schluessel (integer) ? '); 


readln(key) ; 

83 

: IF NOT delete_data(key) THEN 

84 

: writeln('Dieser Schluessel existiert 


nicht !') 

85 

ELSE 

86 

writeln ( 'Eintrag geloescht !'); 

87 

readln; 

88 

END; 

89 

'3' : BEGIN 

90 

writeln; 

91 

writeln; 

92 

writeln('Suche :' ) ; 

93 

writeln; 

94 

write('Schluessel (integer) ? '); 


readln(key) ; 

95 

: IF search_first(key,data) THEN 


96 

BEGIN 

97 

write('(',data); 

98 

WHILE search_next(data) DO 

99 

write('V,data); 

100 

writeln (')'); 

101 

writeln('Ausgabe komplett !'); 

102 

END 

103 

ELSE 

104 

writeln('Eintrag nicht gefunden !'); 

105 

readln; 

106 

END; 

107 

'4' : BEGIN 

108 

writeln; 

109 

writeln; 

110 

writeln('Ausgabe des gesamten 

Baumes:'); 

111: 

writeln; 

112: 

write('Ausgabe auf (B)ildschirm oder 
(D)rucker'); 

113 

read(ch2) ; 

114 

IF ch2 IN ['d','D'] THEN 

115 

rewrite(output,'PRN:'); 

116 

writeln; 

117 

writeln; 

118 

print_tree(tree, 1); 

119 

writeln; 

120 

writeln; 

121 

rewrite(output,'CON:'); 

122 

writeln('Ausgabe komplett !'); 

123 

readln; 

124 

END; 

125 

'5' : BEGIN 

126 

create_database; 

127 

Start_da t aba s e; 

128 

END; 

129 

'6' : BEGIN 

130 

writeln; 

131 

writeln; 

132 

writeln('Zufallszahlen einfuegen:'); 

133 

writeln; 

134 

write('Anzahl ? '); readln(anz); 

135 

FOR i:=l TO anz DO 

136 

BEGIN 

137 

key:=random; 

138 

data:=random; 

139 

insert_data(key,data); 

140 

END; 

141 

writeln('Einfuegen abgeschlossen.'); 

142 

readln; 

143 

END; 

144 

END; 

145 

UNTIL chl='0'; 

146 

147 

END; {do_main} 

148 

BEGIN 

149 

c re a t e_dat aba s e; 

150 

start_database; 

151 

do_main; Listing 6c (Ende) 

152 

END. 


1: 

{ Listing 6d) 



2: 




3: 

A • 

Packen einer 

Datenbank mit Bayerbaumindizierung. 

5: 

programmiert : 

; Oktober '87 


6: 

von 

: Dirk Brockhaus 


7: 

mit 

: PASCAL+ (CCD) 


8: 

} 



9: 




10: 

PROGRAM pack (input,output); 


11: 




12: 

CONST nn 

= 4; 


13: 

n 

= 2; 


14: 

leer 

= -1; 


15: 

wurzel 

= 0; 


16: 

databasej 

name = 'TEST.DBF'; 


17: 

index_name = 'TEST.NDX' ; 


18: 




19: 

TYPE {$i bayertyp.pas} 


20: 




21: 

VAR index 

: FILE OF page_type; 


22: 

datenbank 

: FILE OF base_type; 


23: 




24: 

FUNCTION index_belegung : real; 


25: 




26: 

VAR gesamt , 


geht weiter... 
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GRUNDLAGEN 


27 

belegt : integer; 


113 

p_index.anz:=p_index.anz+1; 

28 



114 

p_index.b[i]:=anz; 

29 

BEGIN {index_belegung} 


115 

anz:=1; 

30 

reset (index,index_name); 


116 

on:=NOT on; 

31 

gesamt:=0; 


117 

i:=i+l; 

32 

belegt:=0; 


118 

END; 

33 

WHILE NOT eof(index) DO 


119 

get(index); 

34 

BEGIN 


120 

END; 

35 

gesamt:=gesamt+1; 


121 

END; {abstand_besorgen} 

36 

IF index*.flag THEN 


122 


37 

belegt:=belegt+l; 


123 

PROCEDURE abstand_kumulieren(VAR p : puffer); 

38 

get(index); 


124 


39 

END; 


125 

VAR i : integer; 

40 

IF gesamt<>0 THEN 


126 


41 

index_belegung:=belegt/gesamt 


127 

BEGIN (abstand_kumulieren) 

42 

ELSE 


128 

WITH p DO 

43 

index_belegung:=1; 


129 

BEGIN 

44 

END; {index_belegung} 


130 

i :=3; 

45 



131 

WHILE i<=anz DO 

46 

FUNCTION data_belegung : real; 


132 

BEGIN 

47 



133 

b[i]:=b[i]+b[i-l]+b[i-2]; 

48 

VAR gesamt , 


134 

i:=i+2; 

49 

belegt : integer; 


135 

END; 

50 



136 

i; =4; 

51 

BEGIN (data_belegung) 


137 

WHILE i<=anz DO 

52 

reset(datenbank,database_name); 


138 

BEGIN 

53 

gesamt:=0; 


139 

b[i]: =b [i] +b [i-2]; 

54 

belegt:=0; 


140 

i:=i+2; 

55 

WHILE NOT eof(datenbank) DO 


141 

END; 

56 

BEGIN 


142 

END; 

57 

gesamt:=gesamt+l; 


143 

END; (abstand_kumulieren) 

58 

IF datenbank*.flag THEN 


144 


59 

belegt:=belegt+l; 


145 

FUNCTION new_index(old : page_ptr) : page_ptr; 

60 

get(datenbank); 


146 


61 

END; 


147 

VAR i : integer; 

62 

IF gesamtoO THEN 


148 


63 

data_belegung:=belegt/gesamt 


149 

BEGIN (new_index) 

64 

ELSE 


150 

IF oldoleer THEN 

65 

databelegung:=1; 


151 

WITH p_index DO 

66 

END; (data_belegung) 


152 

BEGIN 

67 



153 

i;=l; 

68 

PROCEDURE packen; 


154 

WHILE (b[i]<old) AND (i<=anz) DO 

69 



155 

i:=i+2; 

70 

TYPE puffer = RECORD 


156 

IF i=l THEN 

71 

anz ; integer; 


157 

new_index:=old 

72 

b : ARRAY [1..1000J OF integer; 


158 

ELSE 

73 

END; 


159 

IF i-l<=anz THEN 

74 



160 

new_index;=old-b[i-1] 

75 

VAR p_index , 


161 

ELSE 

76 

p_data : puffer; 


162 

IF odd(anz) THEN 

77 



163 

new_index:=old-b[anz] 

78 

PROCEDURE abstand_besorgen; 


164 

ELSE 

79 



165 

new_index:=old-b[anz-l]; 

80 

VAR i 


166 

END 

81 

anz : integer; 


167 

ELSE 

82 

on : boolean; 


168 

new_index:=1ee r; 

83 



169 

END; {new_index} 

84 

BEGIN (abstand_besorgen) 


170 


85 

anz:=0; 


171 

FUNCTION new_data(old : datajptr) : datajptr; 

86 

i :=1; 


172 


87 

on:=true; 


173 

VAR i : integer; 

88 

p_data.anz:=0; 


174 


89 

WHILE NOT eof(datenbank) DO 


175 

BEGIN {new_data} 

90 

BEGIN 


176 

IF oldoleer THEN 

91 

IF datenbank*.flag=on THEN 


177 

WITH p_data DO 

92 

anz;=anz+l 


178 

BEGIN 

93 

ELSE 


179 

i:-l; 

94 

BEGIN 


180 

WHILE (b[i]<old) AND (i<=anz) DO 

95 

p_data.anz:=p_data.anz+1; 


181 

i:=i+2; 

96 

p_data.b[i]:=anz; 


182 

IF i=l THEN 

97 

anz:=1; 


183 

new_data:=old 

98 

on:=NOT on; 


184 

ELSE 

99 

i:=i+l; 


185 

IF i-l<=anz THEN 

100 

END; 


186 

new_data:=old-b[i-1] 

101 

get(datenbank); 


187 

ELSE 

102 

END; 


188 

IF odd(anz) THEN 

103 

anz:=0; 


189 

new_data:=old-b[anz] 

104 

i: =1; 


190 

ELSE 

105 

on:=true; 


191 

new_data:=old-b[anz-l]; 

106 

p_index.anz:=0; 


192 

END 

107 

WHILE NOT eof(index) DO 


193 

ELSE 

108 

BEGIN 


194 

new_data:=leer; 

109 

IF index*.flag=on THEN 


195 

END; (new_data) 

110 

anz:=anz+l 


196 


111 

ELSE 


197 

PROCEDURE index_packen; 

112 

BEGIN 


198 

geht weiter.. 


4/88 /r j 


97 







GRUNDLAGEN 


199 

VAR t : FILE OF page_type; 


238 

t A :=datenbank A ; 

200 

i : integer; 


239 

t A .next:=new_data(t A .next) ; 

201 



240 

put (t) ; 

202 

BEGIN (index_packen) 


241 

END; 

203 

reset(index,indexname) ; 


242 

get(datenbank) ; 

204 

rewrite(t, ' temp') ; 


243 

END; 

205 

WHILE NOT eof(index) DO 


244 

rename(t,datenbank) ; 

206 

BEGIN 


245 

END; {data_packen} 

207 

IF index A . flag THEN 


246 


208 

BEGIN 


247 

BEGIN (packen) 

209 

t A :=index A ; 


248 

reset(datenbank,database_name) ; 

210 

WITH t A DO 


249 

reset(index,index_name) ; 

211 

BEGIN 


250 

abstand_besorgen; 

212 

ptrO:=new index(ptrO); 


251 

abstand_kumulieren(p_index) ; 

213 

FOR i:=l TO anz DO 


252 

abstand_kumulieren(p_data) ; 

214 

BEGIN 


253 

index_packen; 

215 

item[i].ptr:= 


254 

data_packen; 


new index(item[i].ptr) ; 


255 

END; (packen) 

216: 

item[i] . record_nr : = 


256 



new_data(item[i).record_nr) ; 


257 

BEGIN 

217 

END; 


258 

writeln('Packen der Dateien ',database_name, ' und \ 

218 

END; 



index_name) ; 

219 

put (t) ; 


259 

writeln; 

220 

END; 


260 

writeln('Belegungsgrad ', database_name, ' = ', 

221 

get(index) ; 


261 

data_belegung*100:6:2, ' %') ; 

222 

END; 


262 

writeln('Belegungsgrad ', index_name, ' = ', 

223 

rename(t,index) ; 


263 

index_belegung*100 : 6:2, ' %') ; 

224 

END ; (index_packen} 


264 

writeln; 

225 



265 

writeln('Beginne Packen.'); 

226 

PROCEDURE data_packen; 


266 

packen; 

227 



267 

writeln('Packen beendet.'); 

228 

VAR t : FILE OF base_type; 


268 

writeln; 

229 

i : integer; 


269 

writeln('Teste Belegungsgrad: ' ) ; 

230 



270 

writeln; 

231 

BEGIN (data_packen) 


271 

writeln('Belegungsgrad ', database_name, ' = ', 

232 

reset(datenbank,database_name) ; 


272 

data belegung*100:6:2, ' %') ; 

233 

rewrite(t,'temp') ; 


273 

writeln('Belegungsgrad ', index_name, ' = ', 

234 

WHILE NOT eof(datenbank) DO 


274 

index_belegung*100:6:2,'%') ; 

235 

BEGIN 


275 

writeln; 

236 

IF datenbank A .flag THEN 


276 

END. 

237 

BEGIN 



Listing 6d (Ende) 


ENDE 


MWNG 


COMPUTERSYSTEME 


HANS-HEINZ & SABINE BIELING GbR 


-^ 

Spitzwegstraße 11 4350 Recklinghausen Tel. 02361 /18 1485 

Nur Versand. Besuche nach Terminabsprache. 


Floppy Typ DL-1 . 339,- 

3,5 Zoll Einzellaufwerk, 1Mb, Netzteil nach VDE-Norm, 
Laufwerk NEC FD 1037 A, superleise, 100% SF 314 kom¬ 
patibel, Gehäusefarbe grau, anschlußfertig. 


Floppy Typ DL-2 . 598,- 

3,5 Zoll Doppelstation (übereinander), ansonsten wie 
DL-1. 

Floppy Typ DL-3 . 448,- 


5,25 Zoll Einzellaufwerk, 1 Mb, Laufwerk TEAC, 40/80 
Track Umschaltung, Gehäusefarbe grau, anschlußfertig. 


Modems: 


Discovery 1200 C+ .... 369,— 

0-300, 1200 Baud, Voll- und Halbduplex, 100% Hayes 
kompatibel, ohne Post-Zulassung. 

Discovery 2400 E .... 598,— 

0-300, 1200, & 2400 Baud, Voll- und Halbduplex, 100% 
Hayes kompatibel, ohne Post-Zulassung. 

Uhr-Modul.99,— 

Incl. Sofware, ohne Löten, Romport bleibt frei, Software 
kann in ROM-TOS gebrannt werden. 

— Weitere Artikel auf Anfrage — 


Zubehör: 

Druckerkabel.29,— 

Industriegefertigt, Atari auf Centronics. 

Floppystecker. 8,— 

Floppybuchse. 9,- 

NEC FD 1037 A. 224,- 

1 Mb 3,5 Zoll Laufwerk, neuestes Modell. 

Speichererweiterung . ab 198,- 

1 Mb, ohne Löten, steckbar. 


* 


Prg. für alle ST-Modelle - Exzellent in Struktur, Grafik, Sound 
- alle Prg. in Deutsch - alle Prg. S/W und Farbe 


ASTROLOGISCHES KOSMOGRAMM 

- Nach Eingabe von Namen. Geb- 

Ort (geogr. Lage) und Zeit werden er-' 
rechnet: Siderische Zeit, Aszendent. 
Medium Coeli. Planetenstände im Zo- 
diak, Häuser nach Dr. Koch/Schäck 
(Horoskop-Daten m. Ephemeriden) - 
Auch Ausdruck auf 2 DIN A4 mit äll- 
gemeinem Persönlichkeitsbild und 
Partnerschaft 75, - 

BIORHYTHMUS zur Trendbestimmung 
des see!isch-/geistig-/körperlichen 
Gleichgewichts. Zeitraum bestimmbar 

- Ausdruck per Bildschirm und/oder 

Drucker mit ausführlicher Beschrei¬ 
bung über beliebigen Zeitraum mit 
Tagesanalyse. Ideal für Partnerver¬ 
gleich 56, - 

KALORIEN-POLIZEI - Nach Einga¬ 
be von Größe, Gewicht. Geschlecht. 
Arbeitsleistung erfolgt Bedarfsrech¬ 
nung und Vergleich m. d. tatsächli¬ 
chen Ernährung (Fett. Eiweiß, Kohle¬ 
hydrate). Idealgewicht. Vitalstoffe, auf 
Wunsch Ausdruck Verbrauchsliste 
für Aktivitäten 56, - 


GELD - 25 Rechenroutinen mit Aus¬ 
druck für Anlage - Sparen - Vermö¬ 
gensbildung - Amortisation - Zinsen 
(Effektiv-/Nominal) - Diskontierung 
- Konvertierung - Kredit — Zah¬ 
lungsplan usw 96, - 

GESCHÄFT - Bestellung. Auftrags¬ 
bestätigung. Rechnung. Lieferschein, 
Mahnung, 6 Briefrahmen mit Firmen¬ 
daten zur ständigen Verfügung (An¬ 
schrift. Konten usw.. Menge/Preis. 
Rabatt/Aufschlag. MwSt., Skonto. Ver¬ 
packung, Versandweg usw.) Mit Ein¬ 
bindung von abgespeicherten Adres¬ 
sen und Artikeln 196, - 

ETIKETTENDRUCK - bedruckt 40 
gängige Computer-Haftetiketten-For- 
mate nach Wahl und Auflagebestim¬ 
mung. kinderleichte Gestaltung, Abla¬ 
ge für wiederholten Gebrauch 89, - 

BACKGAMMON - überragende Gra¬ 
fik. gänzlich mausgesteuert, ausführ¬ 
liche Spielanleitung, lehrreiche Stra¬ 
tegie des Computers, in 6 Farben 
bzw. Grauabstufungen bei S/W 58, - 


GLOBALER STERNENHIMMEL - 

zeigt aktuellen Sternenhimmel für Zeit 
+ Ort nach Eingabe Anklicken eines 
Objekts gibt Namen aus. Anklicken 
eines Namens zeigt das Objekt blin¬ 
kend oder im Sternbild verbunden. 
Lupe für Großdarstellung mit Hellig¬ 
keiten. 'Wandern’ simuliert Bewegung 
oder Drehung der Erde. 89, - 


FONT EDITOR unter DEGAS - 12 

bekannte Schriftarten m. deutschem 
Zeichensatz 64, - 

CASINO-Roulett - Mit Schnellsimu¬ 
lation. Chancentest. Sequenzenverfol¬ 
gung, Kassenführung. Häufigkeitsana¬ 
lyse. Setzen d. Anklicken d. Chancen 
auf Tischgrafik 68, - 


usw. usw. - Fordern Sie mit Freiumschlag unsere Liste an! 

Im Compuler-Center oder bei uns zu obigen, unverbindlich empfoh¬ 
lenen Preisen OM 3. - bei Vorkasse oder DM 4.70 bei Nachnahme 

ADRESSEN.66,- 

BIBLIOTHEK .86.- 

LAGERARTIKEL.86.- 

INVENTUR fibugerecht.96. - 

EXPONATE, DOKUMENTE. 

DISKOTHEK.je 96, - 

I. Dinkler • Idee-Soft 

Am Schneiderhaus 17 • D-5760 Arnsberg 1 • Tel. 0 2932/32947 






































SOFTWARE 


DYNASTIEN 

The British Way of Pascal 

im Vergleich mit einem Produkt aus deutschen Landen, 

frisch auf den Tisch. 


Desk File Block Find 


u 


| BEGIN 

exit != false; 

REPEfiT 

write CWhich nunbef 


Link Run Options 


Conpile 


Conpile FIGURES 
Conpile and link 
Check syntax 


SK 

KY 

■Oil] 


IF nun < 0 THEN exi conpile other file 

_ Cross reference 

IF nun > 19 THEN ' u r uein ruui u t ran ye- j 

ELSE 

BEGIN 

seek (Hf,nun); writeln (wf A :28); 

END; 

UNTIL exit; 

END {access}; 

BEGIN 

rewrite (wf); 

Nritefile; 


(nun); 



Bild I: Die W ockbench von Prospero Pascal 


Zwei der ältesten Pascal-Systeme 
für den ST, das Prospero ProPas- 
cal-System (das jetzt den Untertitel 
‘for GEIVr trägt, um seine Anpas¬ 
sung an das DR GEM-System zu 
dokumentieren - übrigens auch für 
den MS-DOS Bereich erhältlich) 
und das CCD Pascal Plus liegen seit 
kurzem in neuen Versionen vor. 
Die Veteranen haben sich, diese 
Bemerkung sei vorab erlaubt, 
wirklich gut gehalten, was ihrem 
Überleben auch sehr förderlich 
sein dürfte, angesichts einer ganzen 
Flut von angekündigten neuen 
Pascal-Compilern und Entwick¬ 
lungssystemen, die zum Teil zum 
Zeitpunkt des Erscheinens dieses 
Berichtes bereits erhältlich sein 
dürften. 

Zuerst ein paar Gemeinsamkeiten: 
Beide Pascal-Systeme werden 
vollständig aus einer GEM-Shell 
bedient, das Verlassen dieser Shell 
dürfte während der Entwicklung 
eines Programmes in den seltensten 
Fällen notwendig sein. Bei Pascal 
Plus ist eine derartige Bediener¬ 
führung ja nichts neues, bereits in der 
älteren Version war eine Shell 
vorgesehen, auf den Komfort eines 
GEM-Texteditors mußten CCD-User 
aber bisher verzichten, es sei denn, sie 
waren stolze Besitzer des CCD-Edi- 
tors TEMPUS, der seinen Beinamen 
‘DER Editor’ nicht zu Unrecht trägt. 
Ein GEM-Editor mit allen notwendi¬ 
gen Funktionen (zwar nicht TEM¬ 
PUS, aber auch nicht schlecht) ist in 
Pascal Plus jetzt enthalten, die Shell 


ist erheblich umfangreicher gewor¬ 
den. 

Auch Prospero Pascal, dessen Hand¬ 
ling bisher eher ein Denkmal der 
Vorzeit war, wurde völlig neu 
eingekleidet, und zwar in eine sehr 
funktionale Shell. Die Besonderheit 
dieser Shell ist, daß der Editor hier 
nicht als Overlay nachgeladen wird, 
wie es sich gebührt, sondern fest in 
die Shell integriert ist. Das ist hübsch, 
weil man einen Text compilieren 
kann, ohne ihn vorher abzuspeichem, 
einfach so, wie er im Rechner steht. 
Besonders schön ist dann allerdings, 
wenn man nach getaner Arbeit und 
dem Griff zum Ausschalter des Rech¬ 
ners feststellt, daß man sein Pro¬ 
gramm auch nach erfolgreicher 
Kompilierung nicht abgepeichert hat. 
Frohes Tippen. Die Shell gefällt aber 
ebenfalls sehr. 


Lieferumfang 

Beide Systeme sind im Grunde ähn¬ 
lich aufgebaut: Geliefert werden 
Shell, Editor, Compiler und Linker. 
Zusätzlich enthält das CCD-Paket 
einen sehr leistungsfähigen und auch 
ausreichend schnellen Quelltextfor¬ 
matierer, der sehr übersichtliche und 
informative Listings liefert (z.B. re¬ 
servierte Worte fettgedruckt, korrekt 
eingerückt, am Rande die Schach¬ 
telungstiefe der Zeile angegeben 
usw.). Prospero liefert einen Cross- 
Reference-Generator, der leider nicht 
der schnellste ist, sowie ein Library- 
Utility mit. Einige Hilfsbibliotheken 
(für GEM, TOS, Nützliches) sind 
ebenfalls beiden gemeinsam. Eine 
große Besonderheit, die sich jedoch 
in den illustren Kreisen der Compiler¬ 
bauer immer mehr durchzusetzen 
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Bild 2: Die l ’ileselektorbox von ST Pascal Plus 


beginnt, hat das ProPascal-System 
seiner deutschen Konkurrenz voraus: 
Einen Source-Level Debugger. Häh ? 
Nun, einige findige Entwickler auf 
größeren Rechnern und Workstations 
sagten sich vor geraumer Zeit, daß es 
doch eine Schande sei, über modern¬ 
ste Sprachen, Compiler usw. zu ver¬ 
fügen, aber bei der Fehlersuche nach 
obligatorischem Absturz auf die reine 
Intuition oder gar -igitt- auf Maschi¬ 
nensprache-Kenntnisse angewiesen 
zu sein. Auch Debugger wie SID, der 
ja zum C-Entwicklungspaket des 
Atari gehört, helfen nicht allzuviel, 
wenn es darum geht, lokale Variablen 
in einer zweieinhalbtausendmal re¬ 
kursiv aufgerufenen Prozedur zu fin¬ 
den, oder auch einfach eine bestimm¬ 
te Variable während der Ausführung 
des Programmes zu verändern - ohne 
erneuten Compilerlauf, versteht sich. 
Kurzum, herkömmliche Werkzeuge 
für die Fehlersuche lassen einen ge¬ 
plagten Programmierer immer dann 
im Stich, wenn er sie am nötigsten 
braucht, nämlich dann, wenn man die 
Möglichkeiten einer Hochsprache 
zur Strukturierung und ähnliche 
Annehmlichkeiten des modernen 
Programmierens nutzen will und 
Fehler in derartigen Gebilden auch 
halbwegs schnell beseitigen will. Um 
es kurz zu machen: So entstanden die 
ersten Source-Level Debugger, die 
eben genau die Fähigkeit besitzen, die 
ihr Name andeutet: In einem Testlauf 
eines kompilierten Programmes je¬ 
derzeit Zugriff auf den Source-Text 

100 iT“ 


des gerade ausgeführten Programmes 
zu haben, Breakpunkte im Source- 
Code zu setzen. Variablen (auch rein 
lokal) tracen und ändern oder die 
Ausführung des Programmes an be¬ 
liebiger Stelle fortsetzen zu können. 
Sie sehen also, ein guter Source-Le¬ 
vel Debugger ist eine Art eierlegen¬ 
des Wollmilchsau-Raubtier in der 
Welt der Wanzen. 

Ein solcher Source-Level-Debugger, 
der über wirklich beachtenswerte 
Fähigkeiten verfügt, ist im ProPascal- 
System enthalten - und der Autor ist 
nach seinen ersten Erfahrungen mit 
diesem wohl ersten auf dem ST er¬ 
hältlichen Muster seiner Art ganz 
hingerissen. Aber auf diesem Feld ist 
Konkurrenz bereits in Sicht: Die 
Version 2.0 des Pascal-Systems von 


Bild 3: Die Compiler-Optionen von Prospero Pascal 


Metacomco, das bei Erscheinen die¬ 
ser Ausgabe ebenfalls erhältlich sein 
soll, verfügt ebenfalls über einen der¬ 
artigen Debugger, über den man sich 
wahre Wunderdinge erzählt - nun, 
man wird sehen. 

GEM-Einbindung 

Der nächste Punkt der allgemeinen 
Ausführungen über die Herren Pascal 
betrifft die Einbindung der GEM- 
Aufrufe ins System. Hier scheiden 
sich die Geister ganz erheblich. Pro¬ 
spero hat sich für einen sehr eleganten 
Weg entschieden, nämlich den, sämt¬ 
liche Datentypen, Konstanten und 
Prozeduraufrufe des Betriebssystem 
in Include- und Linkdateien zur Ver¬ 
fügung zu stellen, wodurch GEM- 
Programme aus anderen Sprachen, 
z.B. aus C, leicht nach Prospero Pas¬ 
cal (oder Fortran, das im letzten Heft 
getestet wurde und sich lediglich im 
Compiler von dem Pascal-System 
unterscheidet) übersetzt werden kön¬ 
nen bzw. umgekehrt. Die Implemen¬ 
tierung der GEM-Aufrufe ist extrem 
geschickt gelöst, die unflexible 
Handhabung von Prozeduren versus 
Funktionen in Pascal ist elegant 
umgangen worden. Zusätzliche 
Funktionen, die nicht direkt in GEM 
enthalten sind, erleichtern manch 
unangenehme Arbeit. Leider hat man 
an einem Punkt, der allerdings alles 
andere als selbstverständlich ist, eine 
Möglichkeit versäumt: In die Objekt- 
Library wurde keine Routine einge- 
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Desk ST Pascal Plus Optionen 


Optionen 


Reservierte Mörter groß schreiben 


Reservierte Wörter hervorheben 


Zeilennunnern schreiben 


Verschachtellungstiefe 


anzeigen 


Include Files einfügen 


Kopf u, Fußzeile anzeigen 


Text Fornatieren 


I Abbruch 


für die vielen, vielen GEM-Funktio- 
nen in seinen Computer einzutippen, 
da ein Include-File mit solchen Defi¬ 
nitionen leider nie vorgesehen war. 
Mit der verbesserten GEM-Biblio- 
thek der neuesten Pascal-Plus Ver¬ 
sion ist das nicht mehr ganz so pro¬ 
blemlos: Zwar wurden viele Fehler 
aus der alten GEM-Library entfernt 
und viele Einschränkungen durch neu 
eingeführte Funktionen hinfällig, 
doch leider wurde im Zuge dieser 
Verbesserungen auch einiges verän¬ 
dert, so daß es nicht mehr so ohne 
weiteres möglich ist, einfach eine 
GEM-Prozedur zu definieren und sie 
dann durch linken mit ‘aesbind' oder 
‘vdibind’ auch tatsächlich nutzen zu 
können. Nein, etwas Mühe gehört 
dazu; einige Spezialvariablen, die 
beim alten System automatisch defi¬ 
niert waren, sind jetzt in die Include- 
Dateien, die zur CCD-GEM-Library 
gehören, abgewandert, so daß man 
diese mitkompilieren, außerdem aber 
auch die GEM-Library von CCD 
mitlinken muß, um ein Programm mit 
Standard-GEM lauffähig zu machen, 
was die ganze Sache etwas unbequem 
macht. Dummerweise tragen einige 
Prozedur-Aufrufe in der CCD-Li- 
brary in der neuen Version aber doch 
wieder Standard-Namen, was dazu 
führt, das unter Umständen auch noch 
einiges an Änderungen fällig wird, 
damit ein älteres Programm fehlerfrei 
kompiliert und gelinkt werden kann. 
Mir erscheint diese Art der GEM- 
Einbindung recht ungeschickt, nichts 


Bild 5: Formatierte Ausgabemöglichkeit bei ST Pascal Plus 


fügt, die es ermöglicht, Pascal-Proze¬ 
duren zur Bearbeitung von ‘Userdef’- 
Objektstrukturen zu verwenden, was 
wunderhübsch, die Krönung sozusa¬ 
gen, gewesen wäre, eben weil es in 
Pascal (in korrektem Pascal) völlig 
unmöglich ist, so etwas zu program¬ 
mieren. Aber wie gesagt, das war 
eigentlich auch nicht zu erwarten, 
aber bei der Qualität der GEM-Bin- 
dings wird man schnell unverschämt. 
Ein dickes Lob für die Prospero 
GEM-Library. 

CCD macht es dem an die Standard- 
Aufrufe gewöhnten Programmierer 
da erheblich schwerer. Benutzern äl¬ 
terer Pascal Plus-Versionen ist die 
GEM-Library des Systems bekannt, 
Newcomern sei berichtet, daß in der 
Library eine Auswahl von Funktio¬ 
nen des GEM vorhanden ist, die ent¬ 
weder einige Standard-GEM-Aufru- 
fe unter neuem Namen zusammen¬ 
faßt oder für Verwirrung sorgt, indem 
sie nur einen einzigen Standard- 
GEM-Aufruf mit neuem Namen ent¬ 
hält oder gar, um das Durcheinander 
komplett zu machen, gar einzelne 
Aufrufe unter ihrem Original-Namen 
verwendet. Manche der so entstande¬ 
nen Aufrufe machen es dem Neuling 
möglicherweise leichter, ans GEM 
heranzutreten, aber im allgemeinen 
möchte ich bestreiten, daß diese Art 
der GEM-Einbindung sehr nützlich 
ist, zumal, entgegen der anderslauten¬ 
den Werbung, der Handbuchteil, der 
sich mit diesen Bindings beschäftigt, 
keineswegs sehr viel leichter ver- 


Bild 4: Die Compiler-Optionen von ST Pascal Plus 

ständlich und kürzer als viele der bis¬ 
her erschienenen Bücher über die 
Standard-Aufrufe ist. Der Umstieg 
auf andere Sprachen oder die Ver¬ 
wendung von Hilfsroutinen für be¬ 
sondere Aufgaben, die man zum Bei¬ 
spiel in Zeitungen entdecken kann, 
wird meines Erachtens durch eine 
solche GEM-Einbindung unnötig 
erschwert. Außerdem sind, wie be¬ 
reits erwähnt, nicht alle GEM-Funk- 
tionen enthalten, einige zusätzliche 
hinzugefügt usw. In der bisherigen 
Version des Pascal Plus Systems 
konnte man ja wenigstens völlig pro¬ 
blemlos mit Hilfe der Dateien ‘aes- 
bind’ und ‘vdibind’ die Originalfunk¬ 
tionen verwenden, vorrausgesetzt, 
man brachte den Fleiß auf, erst einmal 
die korrekten Procedurdefinitionen 


Desk ST Pascal Plus EE 
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ran ncci 
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Debug - Optionen * 
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ProPascal 

Pascal Plus 

Floattest 

C: 15 sec. 

C: 5 sec. 

S00.000 Multiplika- 

L: 17 sec. 

L: 5 sec. 

tionen; 50.000 Sinus; 

1 externe Library, 20 KByte 

1 externe Library, 11 KByte 

25.000 Matnx*Vektor 

Multiplikation: 1 Minute 15 Sekunden, 

1 :S0 

(4*4 — Matrix) 

Sinus: 1 Minute 30 Sekunden 

3:15 

Matrix/Vektor: i Minute 23 Sekunden 

2:05 

Tower 

C: 10 sec. 

4 rfC 

Türme von Hanoi 

L 1 7 sec. 

L: 3 sec. 


1 externe Library, 20K 

1 externe Library, 6K 


17 Scheiben: 29 Sekunden 

17 Scheiben: 20 Sekunden 

Sieve 

C: 11 sec. 

C: 5 sec. 

Primzahlen —Sieb 

L: 17 sec. 

L: 3 sec. 


1 externe Library, 20 Kbyte 

1 externe Library, 6 K 


10 Durchlufe bis 1001, mit Ausgabe: 


9 Sekunden 

11 Sekunden 

Benchmark—Ergebnisse; Mathematik mit normaler Genauigkeit ProPascal Linker ohne 
Selectiv—Scan — Option für optimale Code — Länge. 


gegen Erleichterungsversuche für 
geplagte Anfänger, aber bitte doch 
mit Wahrung der Kompatibilität, 
ohne den Standard-gewöhnten durch 
große Mühen zu verschrecken oder 
quasi zur Benutzung eines unelegan¬ 
ten Bindings zu zwingen. 

Sehr gelungen ist dagegen eine Bi¬ 
bliothek namens PASTRIX (welch 
hübscher Name...), die wirklich äu¬ 
ßerst nützliche Funktionen enthält, 
die es z.B. ermöglichen, ganze Bild¬ 
schirminhalte in einer Variable abzu- 
speichem, zu peeken und poken, 
Adressen von Variablen zu finden, 
Datum und Zeit und Strings zu kon¬ 
vertieren usw., usw. Einige Proble¬ 
me, die die strenge Pascal-Typüber¬ 
prüfung besonders bei der systemna¬ 
hen oder GEM-Programmierung bie¬ 
tet, lassen sich mit Hilfe dieser Funk¬ 
tionen recht einfach umgehen. 

Bei Prospero sind derartige Funktio¬ 
nen bereits im Sprachumfang ent¬ 
halten (Peek, Poke usw.) bzw. in die 
TOS-Bibliothek integriert (Zeit-/Da- 
tums-Konvertierung). 

Dokumentation 

Das CCD-Pascal wird selbstver¬ 
ständlich mit einem deutschen Hand¬ 
buch geliefert. Die gesamte Doku¬ 
mentation besteht aus dem Original- 
Handbuch der letzten Pascal-Plus- 
Version sowie einem dünnen Ergän¬ 
zungsband, der die Erweiterungen 
und Änderungen der neuen Version 
beschreibt. Die Anleitung ist gut 
brauchbar, aber nicht immer optimal 
übersichtlich. 

Für ProPascal gibt es, wie könnte es 
auch anders sein, nur eine englische 
Anleitung. Drei Bände sind es, einer 
für den Compiler, die TOS- und Hilfs¬ 
bibliotheken, sowie jeweils einer für 
die VDI- und AES-Bindings. Die 
Anleitung ist gut und leicht verständ¬ 
lich geschrieben; ärgerlich in der 
AES-Anleitung ist, daß dort auch alle 
Funktionen der GEM-Version 2.0 
(unter MS-DOS) enthalten sind, was 
an sich nicht weiter schlimm wäre, 
wenn man nicht vergessen hätte, ir¬ 
gendwo aufzulisten, was das GEM im 
Atari nun eigentlich kann und was 
nicht. Etwas ungeschickt ist auch der 
Compiler-Band, der sich aus mehre¬ 


Tabelle: Pascal Benchmarks 

ren Teilen zusammensetzt, die leider 
kein gemeinsames Register haben, so 
daß man, wenn man nicht weiß, wo 
genau man etwas suchen soll, immer 
etwas blättern muß. 

Spracherweiterungen 

Beide Pascal-Compiler sind in eini¬ 
gen Punkten gegenüber der Norm 
erweitert. Fast schon Standard ist der 
Stringtyp samt den dazugehörigen 
Funktionen zu seiner Manipulation. 
In ProPascal sind Strings voll dy¬ 
namisch, das heißt, ihre Länge (bis zu 
32KByte) muß nicht festgelegt wer¬ 
den. 

Beide Compiler erlauben auch modu¬ 
lares Kompilieren. Dabei können 
globale Variablen von allen Pro¬ 
grammteilen genutzt werden, aber 
auch geschützte Variablenbereiche 
sind möglich. 

In Sachen Zahlen: Der Prospero- 
Compiler versteht verschiedene 
Real-Formate, nämlich mit 7 und 16 
Stellen Genauigkeit, sowie 32-Bit- 
Integer-Zahlen. Vordefiniert sind 
Subranges mit 8 und 16 Bit Größe mit 
und ohne Vorzeichen. 

Ein genereller Pointer-Typ ist vor¬ 
handen, der mit jedem beliebigen 
Pointer kompatibel ist. 

Bei CCD gibt es ein Real-Format, das 
11 Stellen Genauigkeit bietet. Inte- 
ger-Zahlen sind 16 Bit, vordefiniert 
ist der Unterbereich Byte, 


Long_Integer-Zahlen sind für 32 Bit- 
Werte vorgesehen. 

Weitere gängige Erweiterungen wie 
‘Else’ in ‘CASE’-Anweisungen, 
Random Access-Files und bitweise 
logische Operationen sind ebenfalls 
in beiden Compilern enthalten. 

Eine hochinteressante Erweiterung 
bietet nur ProPascal: Eine ‘ownerr’- 
Routine erlaubt es, Run-Time-Fehler, 
wie z.B. Division durch Null, an eine 
eigene Fehlerbehandlungsroutine zu 
übergeben. Auf diese Weise kann 
man Programme sehr sicher gegen 
Fehler machen. 

Der CCD-Compiler erlaubt noch 
etwas, das eigentlich der Pascal-Phi¬ 
losophie strikt entgegengeht: Varia¬ 
blen dürfen, wie in Basic, an jeder 
beliebigen Stelle des Programms de¬ 
finiert werden und sind dann nur allen 
später definierten Teilen des Pro¬ 
grammes bekannt. Eine besonders 
glückliche Idee scheint mir das nicht 
zu sein, aber CCD hat diese Möglich¬ 
keit laut Handbuch auf Wunsch zahl¬ 
reicher Kunden implementiert. 

Praxis 

Mit beiden Systemen, dem Manager 
von CCD und der Prospero-Work- 
bench, kann man vernünftig und 
schnell arbeiten. Mir persönlich ge¬ 
fällt die Prospero-Workbench etwas 
besser, weil bei ihr die Ladezeiten für 
den Editor entfallen. Dafür ist der 
CCD-Editor etwas besser, denn der 
ProPascal-Editor hat ein kleines Pro- 
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PREISKNÜLLER 


SIGNUM! ZWEI 

355- 

OMIKRONJBASIC 

149- 

STAD 1.2 

149.- 

T1MEWORKS 

346- 

ASTERIX 

55.- 

BAD CAT 

49- 

DEFENDER OF THE CROWN 

59.- 

INDIANA JONES 

47.- 

KAISER 

121- 

NINJA MISSION 

30.- 

PSION CHESS 

63.- 

VEGAS GAMBLER 

49.- 

GRATISKATALOG (20-Seiten+PD) anfordern 


Software Michael Gruber 

WEINGERT 27, D-8411 PETTENDORF 
Tel.: 09409/2271 (24-h-Service) 


SCANNER 

für Atari ST an den Dreckern: NEC P6 
STAR NL 10, EPSON RX 80, FX 80, FX ÄS 


S cannen Sie Terwacklungsfrei durch den festen Sitz des 
Scankopfes. Die Leistungsmerfcmale des Scanners: 

- Anschluß der Hardware an der RS 232 Schnittstelle, kein 
öffnen des Rechners und keine Lötarbeiten erforderlich. 

- Die Software ermöglicht durch bkürektkmalea (!) Scannen 
eine Halbierung der Scanzeit (bei den Epson Druckern). 

- Justierung des Scankontrastes während des Scannens. 

- Komfortable Einstellung von Scanparametem. 

- Inverses Scannen und Zoomen ist möglich. 

- Grafikformate: Screen/Doodle- und Degasformat. 

SCANNER (fertig aufgebaut und getestet) mit Diskette, 
incl. ausführlicher deutscher Anleitung DM 298,- per NN 
zzgl. DM 9,- Versandkosten. 


Dipl.-Ing. Gerhard Porada, Dürriewingstr. 27 
7000 Stuttgart 80, ff 0711 / 74 47 75. 


Computer Tfiotoßrapfty 

- Ihr Partner für Photo Publishing - 

Photo Workstation: mit Software erweiterte 
und ergänzte Photographie. Das exzellente 
System für die digitale Bild- und Graphikverarbeitung mit 
8 Bits/pixel 498 DM 

Slide Maker: Das neue Verfahren auf dem 
Monochrom Monitor zur Herstellung von Dias, bei 
voller Auflösung, nach Wahl mit 256 Graustufen oder 
256000 verschiedenen Farben. Zusätzliche 
Hardware wird nicht benötigt! 298 DM 

B i 1 d V i s i o n • Millionen (u.a. kaleidoskopische) 
Möglichkeiten der digitalen Bildverarbeitung; Quellen¬ 
unabhängig (Easytizer, Scanner, Degas, P & T, STAD, 
etc.) 149 DM 

A-Frisur: die neue digitale Frisur, selbst 
entworfen, ohne die Schere anzusetzen! 249 DM 

Andere professionelle Systeme auf Anfrage! 

Computer Hhotograpfiy 
Slcgemühlenweg 48 
3400 Göttingen 


A-NET 

DAS NETZWERK FÜR ATARI 

Verbinden Sie Ihre Atari Computer 
störungsfrei mittels modernster 
Lichtwellenleitertechnik. Greifen Sie 
auf gemeinsam genutzte Daten und 
Ressourcen zu! 

Und das alles mit der gewohnten 
Einfachheit der DESKTOP Opera¬ 
tionen ! 

A-NET Grundeinheit 1650.- 

ein Master- u. zwei Slave¬ 
interfaces, 15 m LWL, 

Software 

FLASH ACCESS a.A. 

Multiuser Datenbank für 
Softwareentwickler 


PRIVATLIQUIDATION ST 525- 

Abrechnung nach GOÄ/GOZ, 
Patientenverwaltung, Mahnung, 
Kostenstellen. 

(für Tierärzte in Vorbereitung) 


LOHN & GEHALT ST 725 - 

GEM unterstützte Bruttolohn- und 
Nettolohnabrechnung, Auswertung, 
Formulare, Überweisungen. 



DM COMPUTER GMBH 

Durlacherstraße 39 
7530 Pforzheim 
Tel.:07231-13939 
Tlx.:783248 


i 

Schönaich Soft & Hardware 

bietet GFA Basic Interpreter 

99 — DM 

an: GFA Basic Compailer 

99 — DM 

GFA Basic Buch ATARI ST 

79.— DM 

GFA Handbuch TOS u. GEM 

49,— DM 

GFA Draft plus 

349.— DM 

GFA Objekt 

198,— DM 

GFA Vehtor 

99,— DM 

GFA Stata 

59,— DM 

GFA Movie 

149,— DM 

GFA Artist 

149,— DM 

Mono Star plus 

149,— DM 

Color Star 

99.— DM 

ST Digidrom 

79,— DM 

Ein GFA Einsteiger-Set Basic. 

Interpreter u. Compiler, 


Vehtor u. Lexikon 

198,— DM 

PD Software wie ST- 


Ausgabe jeweils 

7,50 DM 

Versandkostenanteilbetrag 

7,50 DM 

Schönaich Soft & Hardware 

Berliner Straße 4 


4048 Grevenbroich ■ Telefon (0 21 81) 4 2114 


Software zum fairen Preis 


SlgnumiZwei.DM 369,- 

STAD 1.2 DM 158,- 

T1M 1.1.DM 279- 

CADproJekt.DM 288,- 

PC-Ditto.DM 188- 

GFA-ARTIST.DM 129,- 

GFA-DRAFT plus.DM 298,- 

Tempus V 2.00.DM 99,- 


W»lt «r» Soft war«: »nfofdtm (fr»nklft«n Rückun^chlig b»ll»yn)l 

Wir sind vom 19. März bis zum 06. Apr* in den Ferien ! 

Bel Nachnahme (nicht ins Ausland) zuzüglich DM 5,- 
Auslandsversand nur gegen Vorkasse zuzüglich DM 10 ,- 

BtJ Voricttie (Euroscheck beilegen) keine Verundkosttn ! 

RIA BEERS Software-Vertrieb 

GoddardstraBe 42, 5300 Bonn 1 


GDATA 

Unsere Produkte sowie fachliche 
und freundliche Beratung erhalten 
Sie u.a. bei folgenden Fachhändlern: 


alpha Computer, Kurfürsten¬ 
damm 121a, 1000 Berlin 31 
DATAPLAY, Bundesallee 25, 

1000 Berlin 31 

Computare OHG, Keithstr. 18- 
20, 1000 Berlin 30 
Behrendt Computer, Fürbringerstr. 
26, 1000 Berlin 61 
Karstadt Computer Center, Her¬ 
mannplatz, 1000 Berlin 61 
Bit Computershop, Osterstr. 173, 
2000 Hamburg 20 
Computer & Zubehör Shop, Kie¬ 
ler Str. 623, 2000 Hamburg 54 
Createam, Bramfelder Chaussee 
300, 2000 Hamburg 71 
GMA, Wandsbeker Chaussee 58, 
2000 Hamburg 76 
MCC, Dreiecksplatz 7, 2300 Kiel 
Wöltje Computer-Center, Heili- 
gengeiststr. 6, 2900 Oldenburg 
Computer Haus Gifhorn, Pom¬ 
mernring 38, 3170 Gifhorn 
Computercenter Horten, Almstr. 
41, 3200 Hildcsheim 
City Computer, Kornturmgasse 
5, 4030 Ratingen 
Mega Team, Kirchhellener Str. 

262, 4250 Bottrop 
Karstadt Comp. Center, Große 
Weilstr. 18-20, 4320 Hattingen 
Basis Computer Systeme, Daim¬ 
lerweg 39, 4400 Münster 
R. Schuster Elektronik, Obere Mün- 
sterstr. 33-35, 4620 Castrop-R. 

BO DATA, Querenburger Höhe 
209, 4630 Bochum 
Computer Center, Buchholzstr. 1, 
5060 Bergisch-Gladbach 2 
Plasmann Computer Center, 
Heerstr. 175-179, 5300 Bonn 1 
Megabyte, Friedrich-Engels-Allee 
162, 5600 Wuppertal-Barmen 
Elphotec, Walpodenstr. 10, 

6500 Mainz 

Computer-Center am Haupt¬ 
bahnhof, 6800 Mannheim 
Wollschläger Computer Technik, 
Cobellstr. 13, 6800 Mannheim 
BNT, Marklstr. 48, 

7000 Stuttgart 

Walliser & Co., Mönchseestr. 99, 
7100 Heilbronn 

Vortex Computershop, Falterstr., 
7171 Flein 

Weeske Computer, Potsdamer 
Ring 10, 7150 Backnang 
Computershop, Federnscestr. 17, 
7410 Reutlingen 

Soft&Easy Computer, Am Rapp- 
gässle, 7480 Sigmaringen 
MKV, Kriegsstr. 77, 

7500 Karlsruhe 1 

Leonhardt Electronic, Gew.gebiet 
Waltersweier, 7600 Offen bürg 
U. Meier Comp.syst.. Am Post- 
halterswäldle 8, 7700 Singen 
Computertechnik Rösler, Rhein- 
gutstr. 1, 7750 Konstan/ 

Hcttler, Lenzburger Str. 4, 

7890 Waldshut 1 
CSE, Bachstr. 52, 

7980 Ravensburg 
Expert Grahle, Eisenbahnstr. 33, 
7980 Ravensburg 
ABAC München, Kellerslr. 11, 
8000 München 80 
Comp. + Grafik Shop, Wasser¬ 
burger L’str. 244, 8000 Mü. 82 
PRO CE, Pusinger Str. 94, 8032 
Gräfeling 

Elektroland Zimmermann, Mcra- 
ner Str. 5, 8390 Passau 
A&P-SHOP, Auf der Schanze 4, 
8490 Cham 

Adolf&Schmoll, Schwalbenstr. 1, 
8900 Augsburg 
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blem, das man von den ersten lst_ 
Word-Versionen kennt: Der Cursor 
läuft nach. Sehr nützlich bei der CCD- 
Shell sind die Kopier-kommandos, so 
daß man die Shell nicht dauernd ver¬ 
lassen muß. In der Praxis ist das Pas¬ 
cal Plus-Paket wegen der kürzeren 
Tum-around-Zeiten immer dann im 
Vorteil, wenn keine schwierigeren 
Fehler zu suchen sind. Durch den 
integrierten Source-Level-Debugger 
macht ProPascal die Fehlersuche ex¬ 
trem angenehm, was manchen Com¬ 
piler-Zyklus spart. Auf der Disk 
braucht der CCD-Compiler weniger 
Platz, weil er ohne Zwischenfiles 
auskommt. ProPascal erzeugt eines. 
Der Compiler-Output von CCD ist 
kompatibel zu anderen Sprachen, 
oder besser gesagt, der CCD-Linker 
versteht das Digital-Research-Link- 
format. 

Prospero benutzt, wie schon in der 
alten Version, das Objektcode-For¬ 
mat von GST. 

Beim Testen der Compiler entstand 
bei mir immer stärker der Wunsch, 
einen Compiler zu besitzen, der die 
guten Eigenschaften beider Systeme 
in sich vereinigt. Beide Compiler 
haben nützliche Bibliotheken, prak¬ 
tische Verbesserungen gegenüber der 
Pascal-Norm, es erlauben z.B. beide 
modulare Kompilierung. Ich hätte 
gerne die Erweiterungen beider. 
Beide Shells haben einiges für sich. 
Besonders deutlich wird der Wunsch 
aber bei den Benchmark-Tests: Wäh¬ 
rend der CCD-Compiler wirklich in 
Windeseile arbeitet (er ist in der neu¬ 
en Version noch schneller geworden; 
als er sowieso schon war), also für 
extrem niedrige Turn-around Zeiten 
sorgt, ist das ProPascal eher etwas 
gemächlich. Leider gilt für die Ergeb¬ 
nisse der Entwicklung, vor allem im 
Bereich Fließkommarech-nung, ge¬ 
nau das Gegenteil: Der CCD-Compi¬ 


ler hat hier seine deutliche Achilles¬ 
ferse. Den kompakteren Code erzeugt 
nun wiederum das CCD-System, die 
Fehlersuche bei ProPascal ist durch 
Probe, wie der Source-Level-Debug¬ 
ger sich zu nennen beliebt, natürlich 
ganz erheblich vereinfacht. 

Zur Dokumentation einige Bench¬ 
marks im einzelnen (siehe Tabelle ). 
Zusammenfassung: Dieser Com¬ 
piler-Vergleich ist irgendwie frus¬ 
trierend. Beide Compiler haben in be¬ 
stimmten Gebieten ganz besondere 
Vorzüge. Im Handling erweist sich 
der CCD-Compiler wegen seiner 
Geschwindigkeit als etwas angeneh¬ 
mer, mir persönlich gefällt das Arbei¬ 
ten mit der Prospero-Shell etwas bes¬ 
ser, aber der Compiler ist leider ein 
bißchen langsam. Debuggen ist na¬ 
türlich die Stärke von ProPascal, was 
bei komplexen Programmen den 
Nachteil der niedrigen Geschwindig¬ 
keit durchaus aufwiegen kann. Beim 
Arbeiten mit GEM ist die Bibliothek 
des ProPascal-Systems klarer Sieger. 
Bei den fertigen Programmen dreht 
sich das Bild: Prosperos Pascal ist 


plötzlich viel schneller, die Pro¬ 
gramme sind allerdings um einiges 
länger, weil anscheinend grund-sätz- 
lich ein aufwendigeres RunTime- 
Paket dazugelinkt wird (je länger die 
Programme, desto weniger fällt die¬ 
ser Anteil ins Gewicht...). CCD Pas¬ 
cal rechnet arg langsam, eine Version 
für den Arithmetik-Coprozessor soll 
da demnächst Abhilfe schaffen. Aber 
auch außerhalb der Arithmetik ist 
CCD-Pascal langsamer in der Aus¬ 
führung, wie die Benchmarks erwei¬ 
sen. 

Das Preis-/Leistungs-Verhältnis der 
Pakete ist in Ordnung. 

Kurzum: Es soll jeder nach seiner 
Fasson selig werden, mir gefallen die 
Pascals beide sehr gut, weil man mit 
beiden Systemen vernünftig und pro¬ 
fessionell arbeiten kann. Trotzdem 
bin ich sehr gespannt auf das, was die 
Konkurrenz, allen voran Metacomco, 
in Kürze auf dem Pascal-Sektor zu 
bieten hat. Vielleicht findet sich ja 
doch noch das Pascal meiner 
Wunschträume, das frei von Fehl und 
Tadel mir nur zur Freude dienet... 


CS 


74 

1 

out_char(#27) ; out_char ( 'f ' ) ; { Cursor off } 

75 

1 

{ zeichnen } 

76 

1 

REPEAT 

77 

2 

FOR index := 0 TO max_draw_lines DO 

78 

2 

BEGIN 

79 

3 

FOR i := 0 TO 3 DO 

80 

3 

BEGIN 

81 

4 

t := ball[i] + vel[i]; 

82 

4 

IF t >= max[i] 

83 

4 

THEN 

84 

4 

BEGIN 

85 

5 

t := max[i] * 2 - ball[i] - vel[i]; 

86 

5 

vel[i] := -vel[i] 

87 

4 

END; 

88 

4 

IF odd(i) THEN min := min_y ELSE min := min_x; 

89 

4 

IF t < min 

90 

4 

THEN 

91 

4 

BEGIN 

92 

5 

IF t < 0 THEN t := -t ELSE t := min; 

93 

5 

vel[i] := -vel[i] 


Beispiel einer formatierten Ausgabe mit Pascal Plus 


ENDE 
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BILDERSPIELE 

TEILS 


Mit den bisher dargestellten Mit¬ 
teln können Sie einfache Strich¬ 
zeichnungen auf den Bildschirm 
eines Computers bringen. So be¬ 
sonders hübsch ist das aber noch 
nicht. Etwas mehr gibt es doch zu 
tun. Werfen wir also einen Blick 
auf die Schritte, die hinführen zur 
künstlichen Wirklichkeit aus dem 
Computer... 

Eine Strichzeichnung in bisheriger 
Form ist aus verschiedenen Gründen 
nicht besonders wirklichkeitsnah. 
Der erste und deutlichste Grund ist 
der, daß die ‘Wirklichkeit’ nicht aus 
lauter dünnen Strichen besteht, son¬ 
dern aus Objekten, die meist ziemlich 
massiv (Spinnen weghören) und auch 
nur in den seltensten Fällen durch¬ 
sichtig sind. 

Nehmen wir an, dieses Problem sei 
gelöst. Wir haben massive Oberflä¬ 
chen. Jetzt stellt sich die Frage, war¬ 
um natürliche Oberflächen aussehen, 
wie sie es eben nun mal tun. Die 
Antwort auf diese Frage heißt zuerst 
einmal ‘Beleuchtung’. Die Art des 
Lichtes, das auf ein Objekt fällt und 
von diesem reflektiert wird, ist ent¬ 
scheidend für sein Aussehen. Na gut, 
seien wir ehrlich, auch dies genügt 
nicht, man muß sagen: Die Art des 
Lichtes, das auf ein Objekt fällt, zu¬ 
sammen mit der Art, wie das Objekt 
Licht reflektiert, entscheidet über 
sein Aussehen. 

Ein Objekt ? Wo Licht ist, ist auch 
Schatten. Sobald es zwei Objekte 
gibt, besteht die Chance, daß man 
den Schatten des einen Objektes auf 


dem anderen Objekt sieht. Sehr un¬ 
angenehm und auch nicht leicht zu 
lösen, dieses Problem. 

Nehmen wir einmal an, ein Objekt 
reflektiert nicht nur Licht sondern 
läßt auch noch Licht hindurch, sei 
also transparent. Hier spielen, mehr 
noch als bei der Reflektion, Material¬ 
einflüsse eine große Rolle, schließ¬ 
lich werden Lichtstrahlen im allge¬ 
meinen beim Übergang vom einen in 
ein anderes Medium gebrochen. 
Daran, wie oft in den letzten Sätzen 
das Wort Licht gefallen ist, sehen Sie, 
wie wichtig dieser Punkt in Zukunft 
sein wird. Aber darüber machen wir 
uns später Gedanken. Zuerst einmal 
sollen uns die massiven Oberflächen 
interessieren. 

Die Probleme mit guten Realismus- 
Effekten, die die herkömmlichen 
Verfahren bieten, werden uns dann 
zum Ende dieser Serie zu einem 
Verfahren führen, das mit großer 
Einfachheit und Eleganz, leider aber 
extremem Bedarf an Rechenzeit, fast 
alle Probleme herkömmlicher Ver¬ 
fahren zu beheben vermag, und das 
deshalb für professionelle Computer¬ 
grafik heute unverzichtbar geworden 
ist. Es hört auf den bezeichnenden 
Namen Ray Tracing. Aber dazu an 
anderer Stelle mehr... 

Wie kann man ein massives Objekt 
modellieren ? Dieses Problem ist uns 
nicht neu, wir haben darüber bereits 
nachgedacht und uns der Einfachheit 
halber dafür entschieden, es aus Flä¬ 
chenstücken, die aneinandergesetzt 
sind, aufzubauen. Ein Würfel zum 
Beispiel besteht dann aus... Na ? 
...Richtig, 6 Flächen, 12 Linien und 8 


Punkten. Wir müssen also nur unse¬ 
ren Objektdatentyp um eine Fläche 
erweitern, die aus einer Reihe von 
Linien zusammengesetzt ist. Das war 
nicht schwer. Nun stellt sich aller¬ 
dings die Frage, wie man dem Com¬ 
puter klarmacht, welche Flächen ei¬ 
gentlich von einem beliebigen Blick¬ 
punkt aus sichtbar sind. 

Dieses Problem beschäftigt die Pro¬ 
grammierer von Grafiksystemen 
schon lange, und, um das gleich zu 
Beginn zu sagen, eine optimale Lö¬ 
sung gibt es nicht. Leider hat hier 
jeder bekannte Algorithmus einen 
Nachteil: entweder er ist langsam 
oder er ist schlecht, er braucht riesige 
Speichermengen (1000*1000 Pixel 
z.B. 7 MByte) oder ist nur für sehr 
spezielle Anwendungen brauchbar. 
Aus der ungeheuren Vielzahl der 
Möglichkeiten sollen in dieser Serie 
zwei Algorithmen, die in der Praxis 
besonders häufig zur Anwendung 
kommen, vorgestellt werden. 
Erwähnt sei zu der Vielzahl der Hid- 
den-Surface-Algorithmen noch, daß 
auch das oben angesprochene Ray 
Tracing ursprünglich nur für diesen 
Zweck erdacht wurde. Welche Mög¬ 
lichkeiten in diesem Verfahren 
stecken, entdeckte man erst im Zuge 
der Beschäftigung mit Beleuchtungs¬ 
modellen usw. langsam Schritt für 
Schritt. Sie sehen, ich will Sie neugie¬ 
rig machen. 

Diese Hidden-Surface-Routinen 
werden nicht mehr implementiert 
werden. Im Rahmen dieser Serie 
wäre eine vollständige Implementie¬ 
rung einfach zu umfangreich und in 
verständlicher Form auch zu wenig 
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effizient. Ich möchte daher versu¬ 
chen, Sie in die Lage zu versetzen, mit 
möglichst wenig Aufwand selbst 
entsprechende Routinen zu schrei¬ 
ben. 

Zum Warmwerden ein etwas verein¬ 
fachtes Problem. Wir beschränken 
uns auf ein harmloses Objekt, z.B. 
den berühmten Würfel. Welche Teile 
sind von schräg oben sichtbar, wel¬ 
che nicht ? 

Stellen Sie sich einmal ein Viereck 
vor, dessen Ecken Sie streng im 
Uhrzeigersinn der Reihe nach nume¬ 
riert haben. Jetzt drehen Sie das Vier¬ 
eck auf den Rücken. Fällt Ihnen etwas 
auf ? Jawohl, die Reihenfolge der 
Numerierung ändert sich. Wenn Sie 
ein im Uhrzeigersinn numeriertes 
Viereck umdrehen, ändert sich der 
Drehsinn der Numerierung. Diese 
kleine Nettigkeit werden wir verwen¬ 
den, um dem Computer die Arbeit ein 
wenig zu erleichtern. Wie das ? Sie 
legen sich die sechs Flächen auf den 
Tisch, aus denen der Würfel besteht 
und numerieren ihre Ecken in der 
gleichen Reihenfolge durch, immer 
auf der gleichen Seite. Jetzt kleben 
Sie den Würfel so zusammen, daß die 
numerierte Seite immer außen ist. 
Wenn Sie den fertigen Würfel von 
einer Seite aus anschauen und Sie ihn 
aus transparentem Material gebaut 
haben, werden Sie sehen, daß die 
Rückseite jetzt einen anderen Dreh¬ 
sinn der Numerierung zeigt als die 
Vorderseite. Wenn Sie alle Seiten im 
Uhrzeigersinn numeriert haben, ist 
die Rückseite von Ihrem Blickpunkt 
aus jetzt entgegen dem Uhrzeigersinn 
numeriert. Bild 1 zur Illustration. 



Bild 1 : Die Reihenfolge der Punkte eines 
Polygons definiert den Drehsinn und die 
Richtung des Normalenvektors 


Wie bringt man das dem Computer 
bei ? Ganz einfach. Sie erinnern sich 
an das Skalarprodukt zweier Vekto¬ 
ren ? Betrag von Vektor 1 mal Betrag 
von Vektor 2 mal Cosinus des einge¬ 
schlossenen Winkels. Wunderbar. 
Sie kennen den Vektor, entlang dem 
Sie den Würfel betrachten (Vom 
Aug- zum Blickpunkt). Sie werden in 
Kürze einen Vektor kennen, der auf 
einer Fläche senkrecht steht, und 
dessen Richtung vom Drehsinn der 
Eckpunktnumerierung abhängt. Der 
senkrechte Vektor ist natürlich die 
Ebenennormale einer Seite, deren 
Richtung vom Drehsinn abhängt. 
Doch dazu später mehr, nehmen wir 
jetzt einfach mal an, wir kennten ei¬ 
nen Vektor, der auf der Ebene senk¬ 
recht steht, und zwar so, daß er die 
Fläche immer auf der Seite verläßt, 
auf die Sie vorhin die Nummern ge¬ 
schrieben haben. Schauen Sie sich 
Bild 2 an. Das Vorzeichen des Skalar¬ 
produkts hängt nur vom Cosinus ab. 
Wenn der Cosinus positiv ist, ist es 
auch das Skalarprodukt. Und umge¬ 
kehrt, wie Sie aus der letzen Folge 
wissen. Das Skalarprodukt ist, wie 
sich einfach aus dem Cosinus ergibt, 
immer dann positiv, wenn die beiden 
Vektoren in einem Winkel zwischen 
270 und 90 Grad aufeinanderstehen. 
Bild 3 zeigt die Bedeutung dieser 
Aussage: Wenn der Sichtvektor und 
der Normalenvektor der Fläche wie 
oben definiert, aufeinanderzuzeigen, 
dann ist die Fläche eine Vorderseite 
und somit sichtbar (Vom vorgegebe¬ 
nen Blickpunkt aus). Andernfalls ist 
sie eben unsichtbar, weil sie eine 
Rückseite des Objektes ist, und 
Rückseiten kann man nicht sehen. 



Bild 2: Das Vorzeichen des Cosinus ist vom 
eingeschlossenen Winkel bestimmt. 


Das funktioniert so natürlich nur bei 
konvexen Körpern und dann, wenn 
Sie die Oberflächen alle im gleichen 
Drehsinn numerieren. Aber zurück 
zu der Oberflächennormalen. Sie er¬ 
innern sich an das Kreuzprodukt 
zweier Vektoren. Das Ergebnis ist ein 
Vektor, der auf beiden Vektoren 
senkrecht steht, also auf der von Ih¬ 
nen aufgespannten Ebene. Bild 1 
zeigt, daß sich die Richtung des 
Kreuzvektors aus dem Drehsinn er¬ 
gibt, wenn man bei allen Polygonen 
der Fläche nach der Objekttransfor¬ 
mation mit dem vom Sichtpunkt aus 
gleichen Punkt beginnend aus zwei 
Vektoren den Normalenvektor bil¬ 
det. Man sucht sich also einen Punkt 
aus, zum Beispiel den am weitesten 
oben liegenden Punkt. Dann nimmt 
man den Vorgängerpunkt und errech¬ 
net aus beiden Punkten einen Seiten¬ 
vektor. Das gleiche tut man mit dem 
folgenden Punkt. Bevor man daraus 
jetzt ein Kreuzprodukt bildet, sollte 
man feststellen, ob die Punkte auf 
einer Linie liegen, denn sonst ist das 
Kreuzprodukt gleich 0, was nicht sehr 
sinnvolle Folgen für das Skalarpro¬ 
dukt mit dem Sichtbarkeitsvektor 
hätte. Wenn alle Punkte der Fläche 
auf einer Linie liegen, sieht man sie 
genau von der Seite und kann die 
Fläche ignorieren, als sei sie unsicht¬ 
bar. Wenn die Punkte nicht auf einer 
Linie liegen, wird also das Kreuzpro¬ 
dukt der zwei errechneten Vektoren 
gebildet und dann das Skalarprodukt 
mit dem Sichtvektor. Ist dieses klei¬ 
ner 0, ist die Fläche sichtbar, andern¬ 
falls nicht. Dieser Test muß natürlich 
für jedes Polygon eines Objektes 



Bild 3 . Die Seiten des Würfels wurden im 
Uhrzeigersinn numeriert. Daher zeigt die 
Normale der Rückseite jetzt in die entgegenge¬ 
setzte Richtung. Aus dem Sichtvektor a der 
Bildebene ergibt sich die Sichtbarkeit jeder 
Fläche. 
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Für jedes Polygon 


Suche obersten Punkt (oder einen anderen Extrempunkt) 

Errechne Seitenvektor a mit Vorgängerpunkt 

Errechne Seitenvektor b mit nachfolgendem Punkt 

Punkte auf einer Linie ? 

Solange Punkte durchpro — 
bieren, bis einer gefunden 
ist, der nicht auf einer Linie 
liegt, oder alle Punkte ver— 
braucht sind. In letzterem 

Fall ist die Fläche unsichtbar, 
sonst gehts rechts weiter. 

Normale n= a b berechnen 

Skalarprodukt mit Sichwektor 
bilden 

v _Skalarprodukt < 0 ? 

Fläche sicht— Fläche unsicht¬ 
bar bar 


Bild 4: Struktogrumm für llackface-Removal. Dieser Algorithmus, der so nur JUr konvexe k önnen 
gilt, erleichtert einem nachgeschalteten Hidden Surface-Prozessor die Arbeit. 


durchgeführt werden. Das ganze 
Ablaufdiagramm für diesen ‘Back- 
face-Removar genannten Vorgang 
finden Sie in Bild 4. 

Falls Sie ein Grafiksystem vereinfa¬ 
chen wollen und dem Hidden-Sur- 
face-Algorithmus einige Arbeit spa¬ 
ren wollen, lohnt es sich, eine Backfa- 
ce-Removal-Routine vor die eigent¬ 
lichen Hidden-Surface-Tests zu set¬ 
zen. Die Anzahl der zu testenden 
Flächen wird nämlich radikal redu¬ 
ziert. Bei mehreren Objekten ist eine 
solche Routine alleine natürlich des¬ 
halb nicht ausreichend, weil sie nicht 
feststellen kann, ob eine dem Be¬ 
trachter zugewandte Oberfläche von 
einer ebenfalls dem Betrachter zuge¬ 
wandten Oberfläche eines anderen 
Objekts verdeckt wird. 

Das Verfahren setzt voraus, daß das 
Objekt bereits entsprechend dem 
Blickpunkt transformiert wurde, es 
muß allerdings vor der Projektion 
verwendet werden (Natürlich). 

Hidden-Surface- 

Algorithmen 

Es gibt grundsätzlich zwei Klassen 
von Hidden-Surface-Routinen: Sol¬ 
che, die die auszublendenden Ober¬ 
flächen mit Hilfe einer Sortierung 
ermitteln und solche die es ohne Sor¬ 
tierung tun. Ich habe für beide Klas¬ 
sen einen vielverwendeten Algorith¬ 
mus ausgesucht. 

Zum Aufwärmen: 
z-Buffer 

Der erste nennt sich ‘z-Buffer-Al- 
gorithmus’ und hat den Vorteil ex¬ 
trem einfach zu sein, vielleicht sogar 
der einfachste aller Hidden-Surface- 
Algorithmen. Gleichzeitig ist er 
schnell und kann leicht für Oberflä¬ 
chenschattierungen, also einfache 
Lichteffekte auf Oberflächen, erwei¬ 
tert werden. Hauptnachteil des Ver¬ 
fahrens ist der wahnsinnige Speicher¬ 
bedarf. Im Zuge des Speicherpreis¬ 
verfalls ist dieser Punkt allerdings 
nicht mehr so kritisch. Unangeneh¬ 
mer ist die Schwierigkeit, Transpa¬ 
renzeffekte und Bildqualitätsverbes¬ 
serung mit Hilfe von Antialiasing 


(sorgt dafür, daß man die Computer¬ 
treppchen in den Linien nicht so 
sieht) zu implementieren. 

Der z-Buffer-Algorithmus ist unab¬ 
hängig von der Komplexität der Sze¬ 
ne, soweit es die Qualität und Fehler¬ 
häufigkeit der Ergebnisse betrifft. 
Egal, wie wild Sie die Polygone im 
Raum verteilen - so einfach der z- 
Buffer zu programmieren ist, er ver¬ 
arbeitet alles, was viele seiner kom¬ 
plexeren Kollegen nicht von sich 
behaupten können. Wie bei allen 
derartigen Verfahren leidet natürlich 
die Effizienz - je mehr Polygone, 
desto länger dauert’s. 

Das Verfahren arbeitet im Bild¬ 
schirmkoordinatensystem, da ja In¬ 
formationen, die auf die einzelnen 
Bildpunkte des Bildschirms bezogen 
sind, verarbeitet werden. Allerdings 
muß bei der Projektion die z-Koordi- 
nate jedes Punktes zwischengespei¬ 
chert werden, da sonst ja keine Tie¬ 
feninformation mehr vorliegt, nach 
der man über Sichtbarkeit entschei¬ 
den könnte. 

Wie funktionierte ? 

Der Algorithmus bearbeitet jedes 
Polygon, also jede Fläche, einzeln; 
die Reihenfolge, in der die Flächen 
geliefert werden, spielt keine Rolle. 
Zu Beginn baut der Algorithmus ei¬ 


nen großen Buffer auf, der in x- und y- 
Richtung die Größe des Bildschirms 
hat. In diesem Buffer wird jetzt für 
jedes bearbeitete Pixel eine Tiefenin¬ 
formation gespeichert, wobei man im 
allgemeinen 20 Bit Tiefe für ausrei¬ 
chend hält. Bei einem Bildschirm mit 
1000*1000 Pixeln ist das aber schon 
ein Speicherbedarf von 6 Megabyte, 
allerdings kann man auf Kosten der 
Effizienz auch Speicher sparen, in¬ 
dem man immer nur ein Viertel oder 
die Hälfte des Bildschirms auf einmal 
bearbeitet (Na, wie groß muß ein z- 
Buffer für einen Bildschirm mit 
ATARI-Auflösung sein ???). Initiali¬ 
siert wird dieser Buffer auf die größt¬ 
mögliche Tiefe, nämlich unendlich, 
entsprechend dem Wert 0 oder auch 
SFFFFF. ganz nach Geschmack. 

Für jedes Pixel, das innerhalb des 
Polygons liegt, wird jetzt aus den 
Koordinaten der Eckpunkte die z- 
Koordinate berechnet. Dafür gibt es 
verschiedene Möglichkeiten. 

Dann wird der errechnete Wert mit 
dem im z-Buffer befindlichen Wert 
für die entsprechende Pixelposition 
verglichen. Liegt der errechnete Wert 
näher beim Betrachter, wird das Pixel 
auf den Bildschirm gemalt, mit der 
diesem Polygon zugeordneten Farbe. 
Außerdem wird der z-Buffer-Wert 
durch den neuen Wert ersetzt. Ist der 
z-Wert des Pixels weiter weg als der 
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letzte z-Buffer-Wert passiert einfach 
gar nichts. 

Ein einfaches Verfahren, nicht? 
Struktogrammsüchtige finden den 
Ablauf etwas formaler gestaltet in 
Bild 5. Etwas anschaulicher kann 
man das ganze vielleicht so erklären: 
Zuerst stellt man fest, welchen Teil 
(also welche Pixel) des Bildschirms 
ein Polygon bedeckt. Dann errechnet 
man für jedes dieser Pixel die Entfer¬ 
nung zum Betrachter (Die Lage des 
Polygons im Raum ist ja bekannt, die 
z-Koordinate der Eckpunkte wurde 
bei der Transformation zwischenge¬ 
speichert). Wenn noch kein Punkt 
gefunden wurde, der an der entspre¬ 
chenden Pixel-Position näher beim 
Betrachter liegt (was im z-Buffer 
notiert wäre), wird das Pixel auf dem 
Bildschirm mit den Polygonattribu¬ 
ten (Farbe, Helligkeit o.ä) gezeich¬ 
net, andernfalls passiert überhaupt 
nichts. Damit bei der Bearbeitung des 
nächsten Polygons nichts schiefgeht, 
muß natürlich die Tiefe eines ge¬ 
zeichneten Punktes im z-Buffer no¬ 
tiert werden, damit sichergestellt ist, 
daß nur näher beim Betrachter liegen¬ 
de Punkte einen gezeichneten Punkt 
übermalen dürfen. 

Der z-Buffer ist also nichts weiter als 
ein Notizblock, auf dem für jeden 
Bildschirmpunkt notiert wird, wie 
weit entfernt ein eventuell an dieser 
Stelle des Bildschirms gezeichnetes 
Objekt vom Betrachter entfernt ist. 
Nur wenn ein von dem Objekt besetz¬ 
tes Pixel näher ist, als die im z-Buffer 
gespeicherte Entfernung, ist es sicht¬ 
bar, wenn es weiter entfernt ist, wird 
es einfach übermalt. Die Objekte 
müssen also vor dem Zeichnen nicht 
sortiert werden, es ist völlig egal, in 
welcher Reihenfolge Polygone bei 
einem z-Buffer bearbeitet werden. 
Für jedes Pixel merkt der Algorith¬ 
mus sich, wie groß die aktuelle Min- 
destentfemung vom Betrachter ist, ab 
der ein Pixel gezeichnet wird, bzw. 
verdeckt ist. Deshalb muß am Anfang 
der z-Buffer auch auf einen festen 
Wert initialisiert werden, der die 
maximal mögliche Entfernung an¬ 
gibt. Punkte des ersten Polygons, das 
bearbeitet wird, liegen dann auf jeden 
Fall näher, als jeder bisherige Punkt. 


Bildschirm auf Hintergrundfarbe setzen (oder, wenn gewünscht, Hintergrundbild) 


z-Buffer auf höchste Entfernung initialisieren 


Für jedes Polygon 


Für jedes Pixel innerhalb des Polygons 


z—Wert für Pixel berechnen 

z < z —Buffer an der Position des aktuellen Pixels? 

z - Buffer an der Position mit neuem 
Z—Wert überschreiben 

Dieses Pixel ist bereits von einem 
näher liegenden Objekt belegt. 

Also geht's weiter mit dem nächsten 
Pixel. 

Pixel am Bildschirm entsprechend 
den Attributen des in Arbeit befind¬ 
lichen Polygons setzen. 



Bild 5: Der z-Buffer Algorithmus als Struktogramm. 


Beim nächsten Polygon könnten 
schon Teile übergangen werden, die 
weiter entfernt liegen, als das erste 
bearbeitete Polygon. 

Hier zeigt sich auch ein Vorteil, der 
sich aus dem 3D-Clipping ergibt. Die 
Tiefe des z-Buffers ist leichter sinn¬ 
voll auf einen bestimmten Wert zu 
begrenzen, wenn man die Tiefe 
‘unendlich’ für den Ausschnitt der 
‘Welt’, der gezeigt werden soll, aus¬ 
schließen kann. Nach dem 3D-Clip- 
ping ist ja nur noch ein in der Tiefe 
beschränkter und bekannter Teil der 
‘Welt’ übrig. 

Hier kann man dann für die Tiefenin¬ 
formation im z-Buffer auf Fließkom¬ 
mazahlen verzichten; eine Fließkom¬ 
mazahl, die üblicherweise minde¬ 
stens 7 Stellen Genauigkeit aufweist, 
benötigt mindestens 4 Byte, was den 
z-Buffer doch etwas unhandlich groß 
macht. Wenn die x- und y-Genauig- 
keit im Bereich von 1000 Schritten 
(Bedenken Sie: Unsere ‘Welt’ befin¬ 
det sich ja in dem Stadium der Dar¬ 
stellung, in dem der z-Buffer zur 
Anwendung kommt, bereits in der zu 
Bildschirmkoordinaten transfor¬ 
mierten Form !) in jeder Richtung 
liegt, muß man ja nicht in z-Richtung 
10 M Schritte, jeweils mit 6 Stellen 
Genauigkeit vorsehen. Üblicherwei¬ 
se geht man davon aus, daß bei der 
genannten Bildauflösung eine Tie¬ 
fengenauigkeit von 1 bis 16 Millio¬ 
nen Schritten völlig ausreichend ist, 
entsprechend 20 - 24 Bit. Sichtbare 
Fehler durch falsch errechnete Tie¬ 


feninformation (Rundungsfehler 
müssen ja schließlich vermieden 
bzw, berücksichtigt werden) treten 
bei dieser Auflösung dann nicht mehr 
auf. 

Als Zahlenformat wird meist Fest¬ 
kommadarstellung verwendet, da 
kaum ein System von Haus aus über 
ein Zahlenformat mit 20 oder 24 Bit 
Größe verfügt (meist nur 16 oder 32 
Bit). Integer, oder in diesem Fall 
Long_Integer-Darstellung tut’s na¬ 
türlich auch, beide Darstellungen 
haben gegenüber dem Fließkomma¬ 
format auch noch den nicht unbe¬ 
trächtlichen Vorteil, daß sich damit 
erheblich schneller rechnen läßt. 
Schließlich muß noch das Problem 
betrachtet werden, wie man die Ent¬ 
fernung eines beliebigen in einem 
Polygon enthaltenen Punkts vom 
Betrachter errechnet. Eine einfache 
und komfortable Lösung sei hier kurz 
skizziert; weil sie aber so einfach ist, 
nicht im Detail ausgeführt: 

Polygone liegen in einer Ebene. Ein 
Polygon besteht aus mindestens drei 
Punkten, was es möglich macht, eine 
eindeutige Ebenengleichung für es 
aufzustellen bzw. zu errechnen. 
Damit lassen sich aber die Koordina¬ 
ten jedes einzelnen Punktes in der 
Ebene, also auch innerhalb des Poly¬ 
gons berechnen. Was will das Herz 
mehr? 
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SOFTWARE 


EXKLUSIV 


Multi-Tasking-C-Shell 



• Multi-Tasking Betrieb 

• Multi User Betrieb (2. Ter¬ 
minal an RS-232) 

• Electronic Mail 

• Beseitigt TOS Fehler 
* 298,-DM 


Regent 
Base 2.0 

Zwei leistungsfähige Komponenten in 
einem: GEM und SQL. Mit der professio¬ 
nellen Datenbank Sprache SQL und den 
komfortablen GEM Formularen, steht 
Ihnen in Regent Base ein flexibles relatio¬ 
nales Datenbank System zur Lösung Ihrer 
Probleme zur Verfügung. Zum Lieferum¬ 
fang gehört REGENT WORD II**. *349,-DM. 


The Informer 


AnsiTerm 



• GEM Oberfläche 

• ANSI X3.64 (VT100, 

VT102) 

• Protokolle: KERMIT, 
XMODEM. , 

• Multi-Tasking fähig: 
Transfer von Dateien im 
Hintergrund. 

• Programmierbar für 
Auto-Logons o.ä. durch 
Script-(Befehls-) Dateien. 
* 89,-DM. 


Programmierer 

gesucht! 


The Informer ist eine leicht zu bedienen¬ 
de Datenbank unter GEM. Alle Funktio¬ 
nen sind schnell über die Maus oder die 
Tastatur (wahlweise) aufzurufen und ma¬ 
chen eine Programmierung überflüssig. 
The Informer ist unglaublich schnell, da 
alle Daten im Speicher verfügbar sind. 
Zum Lieferumfang gehört REGENT 
WORD II**. *249,-DM. 


Hard Disk Sentry 


NEU! 


überprüft Ihre Festplatte, erkennt und 
behebt vorhandene Fehler, BEVOR sie 
einen Schaden anrichten können. Eine 
weitere Funktion ist die Optimierung der 
Datei-Belegung, um schnellere Zugriffs¬ 
zeiten zu erreichen. *139,-DM. 


*' Regent Word II ist eine funktionelle Textverarbeitung 
unter GEM. Ein integrierter Taschenrechner und die 
Möglichkeit Serienbriefe zu erstellen, sind nur einige 
der vielen Funktionen. 


Hard Disk Toolkit 



• Daten werden direkt 
(gepackt) auf der 
Diskette gespeichert. 

• Verify des Backups. 

• Sichern/Zurückschrei¬ 
ben von einem Ordner, 
Baum oder der gesam¬ 
ten Partion. 

• Sichern von geänderten 
Dateien. 

• 89,-DM. 


Hard Disk Accelerator 



• Die Hard Disk ist bis 
300% schneller. 

• Arbeitet schon mit 
32kRAM. 

• Cache Größe kann 
leicht verstellt werden. 

* 98,-DM. 


'Unverbindliche 

Preisempfehlung 


COMPUTERWARE 

Gerd Sender, Moselstraße 39, 5000 Köln 50, Tel.: 0221-392583. Schweiz: Senn Computer AG, Langstraße 31, CH-8021 Zürich 
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Für Ästheten: 

Der Painters-Algorithm 

Besonders elegant kann man den 
Ansatz des z-Buffer-Algorithmus 
eigentlich nicht nennen, denn jedes 
Pixel muß auf seine Tiefe geprüft 
werden, alle Pixel, die überhaupt 
Vorkommen, müssen mindestens ein¬ 
mal bearbeitet werden. Wenn nur 
zwei Polygone gezeichnet werden 
sollen, die dazu noch weit auseinan¬ 
derliegen, müssen trotzdem alle Pi¬ 
xel, die in diesen Polygonen liegen, 
einzeln getestet werden, obwohl ganz 
offensichtlich ist, das diese Objekte 
sich nicht verdecken können - Kurz: 
der z-Buffer-Algorithmus ist zwar 
relativ effizient, aber irgendwo eine 
‘Brüte Force’-Methode, also rohe 
Gewalt. Der Maleralgorithmus, wie 
die deutsche Übersetzung seines 
Namens lautet, arbeitet da ganz an¬ 
ders. Er nutzt, wenn auch nur in be¬ 
scheidenem Maße im Vergleich zu 
wiederum komplexeren Algorith¬ 
men, die Eigenschaften der Szene, 
die zu zeichnen ist, aus. Der Name 
bezeichnet das Prinzip: Ein Maler 
malt auf die Leinwand zuerst die am 
weitesten hinten liegenden Teile der 
Szene und übermalt sie dann teilwei¬ 
se mit weiter vorne liegenden Bildtei¬ 
len. Genauso tut es der Painters-Al¬ 
gorithm: 

Stelle fest, wie weit hinten jedes 
Objekt liegt, sortiere und male die 
Objekte dann von hinten nach vorne. 
Das Problem ist klar: Wie stellt man 
fest, wie weit hinten ein Objekt liegt? 


Schließlich hat ein Haus ja nicht nur 
eine Tiefe, sondern es beginnt z.B. 
irgendwo vorne im Bild und hört im 
Hintergrund auf... Das ist gar nicht so 
einfach. Aber dazu später mehr. 

Der Hauptunterschied zum z-Buffer- 
Verfahren liegt darin, daß die Teile 
des Bildes, die Objekte, bzw. die 
Polygone, aus denen die Objekte 
bestehen, nicht in Pixel zerlegt, son¬ 
dern als Ganzes behandelt oder, nöti¬ 
genfalls, in mehrere Polygone zerteilt 
werden. Immer wird eine Fläche aber 
als Ganzes behandelt, das Ergebnis 
des Algorithmus ist nicht ein aus 
Pixeln bestehendes Bild, sondern 
eine eindeutig nach z-Koordinaten 
sortierte Liste von Polygonen, die 
dann einfach nur noch in der sortier¬ 
ten Reihenfolge gezeichnet werden 
müssen; der Unterschied läßt sich 
auch an der Komplexität der verwen¬ 
deten Zeichenbefehle ablesen: Für 
den z-Buffer-Algorithmus braucht 
man nur einen Befehl zum Setzen von 
Pixeln, da das Bild, egal wie kompli¬ 
ziert es ist, immer in Pixel zerlegt 
wird. Das Ergebnis des Maler-Ver¬ 
fahrens kann mit komplexen Befeh¬ 
len wie ‘Zeichne gefülltes Polygon’ 
dargestellt werden. Der Painters- 
Algorithm profitiert also zum Bei¬ 
spiel von schnellen Grafikprozesso¬ 
ren, die automatisch und ohne Pro¬ 
zessoraktivität gefüllte Polygone 
zeichnen können, der z-Buffer-Algo- 
rithmus kann solche Hardware-Gra¬ 
fikerweiterungen nicht nutzen. 

Im allgemeinen ist der Maler-Algo¬ 
rithmus rechenaufwendiger, was 


durch schnelle Grafikhardware zum 
Teil ausgeglichen werden kann. Da¬ 
für ist der Speicherbedarf gering, die 
Effizienz immer noch gut. Im Ver¬ 
hältnis zu anderen Verfahren ist auch 
die Komplexität des Algorithmus 
erträglich, die Erweiterbarkeit jedoch 
auch nicht besser (eher schlechter) als 
beim z-Buffer-Algorithmus. Schat¬ 
ten oder Transparenz sind bei beiden 
gleich schwer zu implementieren. 
Dennoch, auf Mikrocomputern ist 
dieses Verfahren mit Abstand das 
beliebteste, auch wenn sich das mit 
steigenden Speichergrößen in Zu¬ 
kunft sicherlich ändern dürfte. Vor 
allem kann man den Maler-Algorith¬ 
mus auch in unvollständigen Varian¬ 
ten implementieren, die einfache 
Objekte schnell und korrekt malen, 
bestimmte schwierige Probleme aber 
nicht lösen können. In Bild 6 sehen 
Sie die typischen Schwierigkeiten für 
Hidden-Surface-Algorithmen: Sich 
durchstoßende oder gar zyklisch 
überlappende Objekte. So etwas mag 
eine einfache Implementierung des 
Painters-Algorithm gar nicht, genau¬ 
sowenig konkave Objekte. Man kann 
die Probleme zwar lösen, doch immer 
auf Kosten der Einfachheit und vor 
allem der Effizienz. Zur Erinnerung: 
Da der z-Buffer keinerlei Eigen¬ 
schaften der Szene nutzt, sondern sie 
in Einzelpixel auflöst, gibt es derlei 
Probleme dort nicht. Einfache Ent¬ 
scheidungshilfe: Haben Sie genug 
Speicher für einen z-Buffer, dann 
nehmen Sie einen, wenn nicht, versu¬ 
chen Sie’s mit einem Maler-Algo- 



Hild 6: Testfälle für Hidden-Surface-Algorithmen. Sich durchstoßende oder zyklisch überlappende Polygone sind für viele Verfahren ein unlösbares 
Problem. In der Praxis kommen solche Fälle je nach Anwendung durchaus öfter vor. 
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Replica Box ST 

- Copy-Station - 


Hardwarezusatz, der es Ihnen ermög¬ 
licht, von jedem Ihrer Original-Program¬ 
me eine Arbeitskopie anzufertigen. 

Die Replica-Box wird zwischen Compu¬ 
ter und Diskettenstation gesteckt und 
übernimmt die volle Kontrolle über das 
Laufwerk. 

Lieferumfang: Replica-Box mit Gehäuse, 
Software, Beschreibung auf Diskette. 

Preis: 249,- DM 

Exclusiv bei: 

Hendrik Haase Computersysteme 

Wiedfeldtstr. 77 ■ D-4300 Essen 1 
Tel. 0201/422575 


KciroSoft 


Jürgen Vieth 


Atari ST 

Spiele: Anwenderprogramme: 

Flight Simulator II 

119.- 

Steve V. 3.0 

448,- 

Star Trek, dt. 

59,90 

CopyStar V. 2.2. 

149,- 

Super Star Eishockey 

69,- 

Timeworks DTP 

349,- 

500cc Grand Prix Sim. 

59,90 

Pro Sound Des. neu 

169,- 

Chessmaster 2000 

79,- 

Ist Proportional 

85,- 

The Bard’s Tale 

79,- 

Printmaster Plus 

95,- 

Defender of the Crown 

67,90 

Flexdisk 

66 ,- 

Jagd auf roter Oktober 

64,- 

Signum II 

369,- 

Test Drive dt. 

79,- 

STAD 

159,- 

Waterskiing, Sim. dt. 

59,90 

BS-Handel 

949,- 

Vermeer, dt. 

69,- 

BS-Fibu 

1149,- 

Bad Cat, dt. 

49,- 

ISGEMDA V. 2.0 

229,- 

Kaiser, dt. 

119,- 

GFA Comp/Interpr. je 

88,- 

Hardware 

Pinwriter P 2200 

998,- 

Easyprommer V. 2.2 

339,- 

Mausmatte 

17,90 

128 KBYTE Epromkarte 

55,- 

Prow Draw Grafiktabl. 

875,- 

AS Soundsampler II 

239,- 

Scanner” Hawk”CP14St 

2750,- 

Fuji Disk. MF1DD 10 St. 

38,50 

A-Magic Turbo-Dizer 

265,- 

Markend. MF1DD 10 St. 

29,90 

WEIDE 1MB Erweiter. 

239,- 

WEIDE 3.5”Floppy 1MB 

378,- 

Neu!: Public-Domain-Service 

Weitere Soft- u. Hardware in unserem Kostenlosen Katalog. 

Rufen Sie uns an, Telefon: 021 03-42022 


oder schreiben Sie uns: 



KciroSoft ■ Biesenstraße 75 • 4010 Hilden 


Lattice C-Compiler V 3.04 

Die Features: 

neuer Compiler 
neuer Link/Loader 
symbolischer Debugger 
symbolischer Disassembler 
Resource Construction Editor 
Make Utility 

Bildschirmeditor unter GEM 
grafische Shell MENU+ 

Über 320 Libraryfunktionen 
Handbuch über 600 Seiten 
vollständig in deutsch 

Den Lattice C-Compiler kann man in dieser 
neuen und stärksten Version als den Stan¬ 
dard in der Welt des Atari ST, Commodore 
Amiga und IBM-PC nennen. 


Lattice C-Compiler 


DM 298,- 


O 


KNUPE 


Standard BASE III 

Der Datenbank-Standard der IBM-Welt ist 
nun auch auf dem Atari ST verfügbar. STan- 
dard BASE III entspricht in der Syntax und 
dem Datenbankformat voll dem bekann¬ 
ten dBASE III*. Die integrierte strukturierte 
Programmiersprache ist speziell auf die 
Datenbankumgebung zugeschnitten. 

Zum einfachen Erstellen der Programm¬ 
dateien ist ein vollständiger Editor in das 
STandard BASE III eingebaut worden. Das 
Programm wurde in Deutschland speziell 
auf dem Atari ST geschrieben und nutzt so 
den großen Speicher und die Geschwin¬ 
digkeit des Systems voll aus. 

'dBASE III ist eingetragenes Warenzeichen von Ashton Tate Inc. 

STandard BASE III DM 698,- 

Maskengenerator DM 98,- 

Run-Time-Paket DM198,- 


Gerhard Knupe GmbH & Co KG 


Güntherstraße 75 
4600 Dortmund 1 


Telefon 02 31/52 75 31-32 
Telex 8 227 878 knup d 
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Beispiel für dem Bildaufbau des "Malers" 


rithmus, besonders, wenn Sie einen 
schnellen Grafikprozessor haben... 
CAD 3D zum Beispiel nutzt aus Effi¬ 
zienzgründen ebenfalls einen unvoll¬ 
ständigen ‘Maler’, schließlich hat ja 
nicht jeder ST über 1 MByte Spei¬ 
cher. 

Zuerst einmal soll der Ablauf einer 
vollständigen ‘guten’ Implementie¬ 
rung dargestellt werden, später werde 
ich noch verraten, welche Schritte Sie 
in einfachen, ‘fehlerhaften’ Varian¬ 
ten weglassen können. 

Zuerst einmal werden alle Polygone, 
so wie sie sind, nach der kleinsten 
vorkommenden z-Koordinate sor¬ 
tiert. Dazu eignet sich zum Beispiel 
sehr gut ein Quicksort-Algorithmus. 
Wenn Sie Glück haben, können Sie 
die Polygone jetzt schon zeichnen 
(mit den am weitesten hinten liegen¬ 
den beginnend natürlich) und alles 
stimmt. Leider wird das nur bei den 
allerprimitivsten Szenen, in denen es 
keinerlei Polygone gibt, die sich ir¬ 
gendwie überlappen, so funktionie¬ 
ren. Also weiter. Sie fangen hinten in 
der Liste an. Testen Sie das letzte 
Polygon in einem z-Minimax-Test 
gegen das nächste (d.h. korrekterwei¬ 
se gegen alle vor dem aktuellen Poly¬ 
gon liegenden Polygone). Halt, Stop. 
Z-Minimax-Test ? Ein Minimax- 
Test vergleicht die größten und klein¬ 
sten Koordinaten - zum Beispiel 
zweier Boxen - miteinander und stellt 
fest, ob sie sich überschneiden. In 
diesem speziellen Fall interessiert 
uns, ob sich die Boxen um die Poly¬ 
gone in der z-Koordinate überschnei¬ 
den, ob also das letzte Polygon in der 


Liste auch wirklich ganz und voll¬ 
ständig hinter dem nächstfolgenden 
liegt. Da wir ja nur nach der kleinsten 
z-Koordinate sortiert haben, könnte 
es sein, daß die größte z-Koordinate 
des letzten Polygons größer als die 
kleinste z-Koordinate des vorletzten 
ist (Bild 7b). In diesem Fall wäre es 
möglich, daß das letzte Polygon das 
vorletzte und eventuell auch andere, 
die noch vor dem vorletzten in der 
Liste liegen, verdeckt. Um dies aus¬ 
zuschließen, müssen weitere Tests 
durchgeführt werden. Nur wenn si¬ 
chergestellt ist, daß das letzte Poly¬ 
gon der Liste kein anderes verdecken 
kann, darf es gezeichnet und aus der 
Liste entfernt werden. 

Das Prinzip noch einmal kurz zusam¬ 
mengefaßt, bevor wir uns den weite¬ 
ren Tests zuwenden: Zuerst werden 
die Polygone nach einem einfachen 
Kriterium sortiert, das keinesfalls 
sicherstellt, daß sich die Polygone 
nicht mehr gegenseitig überlappen. 
Die entstehende Liste wird von hin¬ 
ten nach vorne abgearbeitet, ein Poly¬ 
gon nach dem anderen gezeichnet. 
Vor dem Zeichnen muß aber sicher¬ 
gestellt sein, daß das hinterste Poly¬ 
gon kein anderes überdeckt, da ja alle 
anderen wie auf einer Leinwand über 
die bereits gezeichneten gemalt wer¬ 
den und diese so ganz oder teilweise 
verdecken. Sinnvollerweise ordnet 
man die Tests so, daß zuerst die wenig 
rechenaufwendigen Versuche zur 
Bestätigung der richtigen Reihenfol¬ 
ge gemacht werden. Ist ein Beweis 
erfolgreich, kann das Polygon ge¬ 
zeichnet werden, und man kann sich 



Bild 7: Zum Minimax-Test. In Fall a) ist es unmöglich , daß die Polygone sich Überlappen , da sich die 
umgebenden Boxen nicht berühren. In Fall b) ist eine Berührung möglich , muß aber durch weitere 
Tests bestätigt werden , da so ja nur eine Dimension geprüft wurde. 
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den Rechenaufwand für die schwieri¬ 
gen Tests sparen. Der allereinfachste 
Test ist, wie bereits ausgeführt, der 
Minimax-Test, da hier nur verglichen 
werden muß, ob das Polygon voll¬ 
ständig hinter den anderen Polygo¬ 
nen liegt oder nur teilweise. 

Wenn ein Polygon nur teilweise hin¬ 
ter den anderen liegt, sollte man als 
nächstes einen Minimaxtest in x- und 
y-Richtung durchführen. Wenn hier¬ 
bei keine Überlappung zwischen dem 
aktuellen und einem weiter vorne 
liegenden Polygon festgestellt wer¬ 
den kann, kann das hintenliegende 
auch kein anderes verdecken. Wie 
auch ? Von vorne gesehen, ist es in 
diesem Fall ja vollständig sichtbar. 
Wenn Sie z.B ein Polygon in der 
rechten oberen Ecke haben und einen 
Haufen in der linken unteren, kann 
das Polygon rechts oben die Polygo¬ 
ne links unten beim besten Willen 
nicht verdecken und kann somit ge¬ 
zeichnet werden. Der z-Buffer müßte 
ein solches Polygon trotzdem in Pixel 
auflösen (wie bereits oben erwähnt). 
Beachten Sie bitte, daß ein erfolgrei¬ 
cher Minimax-Test in zwei Dimen¬ 
sionen nicht bedeutet, daß sich die 
Polygone selbst schneiden müssen. 
Es werden ja nur zwei Boxen um die 
Polygone herum verglichen. Da¬ 


durch ist nur der negative Ausgang 
des Tests beweiskräftig: Wenn sich 
nicht einmal die Boxen um die Poly¬ 
gone schneiden, dann tun’s die Poly¬ 
gone selbst natürlich auch nicht. 
Vergessen Sie nicht, daß Sie auch 
diese Tests mit allen vor dem aktuel¬ 
len Polygon liegenden Polygonen 
durchführen müssen. 

Der nächste Test ist erheblich kom¬ 
plizierter. Hier müssen Sie nämlich 
feststellen, ob sich die Polygone 
schneiden, oder, etwas exakter for¬ 
muliert, ob ein Polygon vollständig 
auf einer Seite der durch das andere 
Poygon gebildeten Ebene liegt oder 
nicht.. Wenn sich die Polygone nicht 
schneiden, ist bewiesen, daß das hin¬ 
tere Polygon das vordere nicht über¬ 
decken kann. Was bedeutet, daß Sie 
das hintere Polygon getrost zeichnen 
und vergessen können. Wie geht’s ? 
Am besten holen Sie tief Luft und die 
Zeitung mit der Folge über Clipping 
hervor. Das Problem ist nämlich 
nichts anderes als ein Clipping-Test 
der beiden Polygone unter leicht ver¬ 
änderten Bedingungen; es gibt nur 
eine Clippingebene, nämlich die 
Ebene des einen Polygons, allerdings 
muß die entscheidende Begrenzung 
des Clipping-Windows auf dieser 
Ebene nicht unbedingt rechteckig 


sein, sondern hängt von der Polygon- 
Form ab. Es ist aber wahrlich nicht 
schwer. Sie können, alternativ, aber 
auch einfach die beiden Polygonebe¬ 
nen gegeneinander schneiden und die 
Schnittgerade vergleichen; das ist 
auch nicht schwieriger. Wenn sich 
die Polygone nicht schneiden, haben 
Sie wieder einmal einen Beweis, daß 
Sie das aktuelle Polygon gefahrlos 
zeichnen können. 

Der letzte Test ist am unangenehm¬ 
sten: Wenn alles andere keinen Be¬ 
weis liefert, daß sich nichts ver¬ 
decken kann, muß man in den sauren 
Apfel beißen und die Projektionen 
der Polygone auf die Bildebene be¬ 
rechnen. Dort muß man dann feststel¬ 
len, ob sich die Polygone irgendwo 
überlappen. Wohlgemerkt: Die Poly¬ 
gone, nicht die umgebenden Boxen. 
Das ist zwar absolut nicht schwierig, 
aber sehr, sehr mühsam (Projizieren 
können wir ja; bzw., wenn die Routi¬ 
ne, was sinnvoll ist, erst in Bild¬ 
schirmkoordinaten angewandt wird, 
haben wir ja schon längst projiziert). 
Aber was hilft’s?.. Wenn die Projek¬ 
tionen sich nicht schneiden, kann das 
aktuelle Polygon gezeichnet werden. 
Wenn keiner der Tests den nötigen 
Beweis liefert, wird sich Ihr Compu¬ 
ter ärgern, denn dann müssen das 



Bild 8: Diagramm des Maler-Algorithmus. Mähere Erklärungen zu den einzelnen Tests finden Sie im Text. 
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letzte und das vorletzte Polygon ver¬ 
tauscht und alle Tests wiederholt 
werden. Falls das immer noch nicht 
zu einem durchschlagenden Erfolg 
führt, sitzen wir in der Tinte (königs¬ 
blau). Dann handelt es sich bei unse¬ 
rem Problem nämlich um eine zykli¬ 
sche Überlappung von Polygonen. In 
diesem Fall bleibt uns nichts anderes 
übrig, als das hinterste Polygon in 
zwei Teile zu teilen, die Liste neu zu 
sortieren und von vorne zu beginnen. 
Das Teilen eines Polygons erledigt 
man am besten über die Schnittgera¬ 
de zweier Ebenen - Sie müssen das 
aktuelle Polygon entlang der Ebene 
des vorletzten Polygons zerschnei¬ 
den. 


Sie sehen, wenn Sie einen wirklich 
korrekten ‘Maler’ basteln wollen, 
sind Sie ganz schön beschäftigt, ein¬ 
fach ist das nicht mehr. Sie können, 
wenn Sie Bildfehler bei komplexen 
Objekten in Kauf nehmen wollen, 
natürlich einfach die schwierigeren 
Tests ignorieren. Viele Programme 
machen das so, allerdings sieht man 
das auch oft. In Bild 8 sehen Sie den 
Algorithmus in einem Diagramm. 
Verdeckte Oberflächen sind wirklich 
ein trockenes Problem. Aber da hilft 
leider nichts, wenigstens grundsätz¬ 
lich sollte man verstanden haben, wie 
sowas geht, jedenfalls dann, wenn in 
der nächsten Folge die Erleuchtung 
über Sie kommen soll. Dort werden 


ENDE 


wir uns nämlich mit dem Licht aus¬ 
einandersetzen, das für all diesen 
Ärger verantwortlich ist (Wie beim 
Vogel Strauß - Was man nicht sieht, 
ist auch nicht da). Langsam aber si¬ 
cher haben wir dann die Regionen 
erreicht, in denen es spannend wird - 
die Methoden, mit denen man reali¬ 
stische Computerbilder erzeugen 
kann. 

CS 


ATARI 3TALS 

KOMPLETT-SYSTEME 

Die berühmten Computer der ATARI ST-Serie. 
die modernste Technologien einsetzen, zu 
niedrigsten Preisen, sind jetzt als PROFESSIO¬ 
NELLES KOMPLETT-SYSTEM zu erhalten. 

Das Herz dieses Systems, wie rechts abgebil¬ 
det, ist der ATARI 1040 STF mit 1-MB-AR- 
BEITSSPEICHER und einer modernen 3,5” 
DOPPELSEITIGER DISKDRIVE. Ein HOCH¬ 
AUFLÖSENDER S/W MONITOR (SM 124), 
MAUS und BASIC machen die Grundversion 
komplett. Natürlich wird auch eine Version mit 
20-MB-FESTPLATTE (SH 205) angeboten. 

Die Vielfalt der PROFESSIONELLEN SOFTWA¬ 
RE, die nun für die ATARI-Rechner zur Verfü¬ 
gung steht, ist natürlich 100% lauffähig, und 
das flexible und geräumige Gehäuse erlaubt 
den Einbau von System-Erweiterungen. 

Für den Kenner sind viele serienmäßige Extras 
eingebaut. 

• Der Rechner wird beim Einschaltvorgang 
automatisch nach der Festplatte geordnet. 

• Das sondergefertigte Hauptgehäuse verfügt 
über alle originalen Schnittstellen. 

• Das Komplett-Gerät wird über einen Schal¬ 
ter geschaltet, die Festplatte kann jedoch 
bei Bedarf ausbleiben. 

• Einbaumöglichkeit für ein weiteres 3,5”- 
oder 5,25"-Laufwerk und Harddisk bis zu 
120 MB. 

• FREIBEWEGLICHE TASTATUR mit Reset¬ 
knopf und vieles mehr... 

L. H. 100 (System ohne Harddisk) 1998,- 

L. H. 120 (mit 20-MB-Atari-Harddisk) 3300,- 
L L. H. 160 (mit 60-MB-Vortex Harddisk) 4498,- J 


PREISWERTES PROFISYSTEM 



BAUSÄTZE 

beinhalten HAUPTGEHÄUSE, TASTATURGE¬ 
HÄUSE und allen benötigten Platinen, Kabel 
und Kleinteile, um Ihren vorhandenen ATARI 
260/520 oder 1040-Rechner, in das links be¬ 
schriebene Profi-System umzubauen. Eine Um¬ 
bauanleitung und technische Unterlagen sind 
beigefügt. 

Der KOMPAKT-KIT 2 ist eine NEUENTWICK¬ 
LUNG und ersetzt seinen populären Vorgänger, 
den die Atari-Fans seit 1 V 2 Jahren erfolgreich 
einsetzen. Zu dem Umbau sind KEINERLEI 
LÖTARBEITEN erforderlich und er ist auch mit 
geringsten technischen Kenntnissen schnell 
und problemlos durchzuführen. 

Alle HARDDISKS der Firmen ATARI und VOR¬ 
TEX sind ohne Zusatzteile einzubauen und un¬ 
sere ZEITVERZÖGERUNG ist in jedem Kit se¬ 
rienmäßig dabei. Dazu passen alle gängigen 
3,5”-LAUFWERKE. es wird sogar eine Blende 
für ein 5,25"-Laufwerk beigefügt. Bei dem KK2 
260/520 wird ein SCHALTNETZTEIL mitgelie¬ 
fert, dieses ersetzt das vorherige Gewirr von 
Netzteilen für Rechner und Floppies und erlaubt 
die Versorgung des kompletten Systems (außer 
Monitor) über ein zentrales Netzkabel und einen 
Schalter. 

Unser FLACHES ABGESETZTES TASTATUR¬ 
GEHÄUSE, mit RESETKNOPF, voll entstörter 
Schnittstellenplatine und SPIRALKABEL, ist 


auch einzeln zu erhalten. 

KK2 260/520 498,- 

KK2 1040 398,- 

Einzeltastatur für 260/520 128,- 

L Einzeltastatur für 1040 _ 128,- ^ 


Bestellen Sie sofort oder fordern Sie Informationen an • Bei unserem VERSAND oder bei jedem guten FACHHANDEL • OEM-Anfragen erwünscht. 




LOdlnlTInlOy 



A & G SEXTON GMBH 


EINFÜHRUNGS-ANGEBOT BEI DIREKT■ 

BESTELLUNG: 

Komplettsystem 

Bausatz 

Versand-Anschrift 

LH 120 

KK2 520/260 

398 DM 

Riedstraße 2 

7100 Heilbronn 

2998 DM 

Telefon 071 31/78480 
Telefax 071 31/79778 
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ANSITERM 


ANSITERM ist, wie der Name 
schon sagt, ein Emulator, der ein 
ANSI X3.64-Terminal emuliert, 
wohl besser bekannt als VT 100. 


Es werden auch die VT 102- und die 
VT 52-Emulation unterstützt. Die VT 
xxx- Terminals sind ursprünglich von 
der Firma DEC entwickelt worden, 
die Definitionen wurden später vom 
amerikanischen Normenbüro festge¬ 
schrieben. 

Die Emulation ist ziemlich voll¬ 
ständig mit Unterstreichen, Fett¬ 
schrift. blinkend und invers. Auch ein 
Graphikzeichensatz und ein briti¬ 
scher (UK) Zeichensatz sind enthal¬ 
ten. 

ANSITERM unterstützt das Kermit- 
und das XMODEM-Protokoll sowie 
das COMPUSERVE-B-Protokoll 
mit Quick-B-Erweiterung. Die bei¬ 
den letzteren sind wichtige Protokolle 


Options 


Load paraneters... 
Save paraneters... 
Load Macros... 


File Capture... 
File Send... 
DC2/DC4 Protocol 

XMODEM receive... 
XMODEM send... 

Kernit GET... 
Kernit SEND.., 
Kernit RECEIVE 
Kernit FINISH 
Kernit Inage Mode 

Ouit 


Bild I: Die File-Options von ANSITERM 


DFÜ und Multitasking 



des größten amerikanischen Betreib¬ 
ers einer öffentlichen Datenbank. 
Übrigens lief der Test sehr erfolg¬ 
reich. 

Es sind alle gängigen Baudraten von 
50 bis 19200 Baud möglich, und bei 
einer Rechner-Rechner-Kopplung 
gab es auch bei den hohen Baudraten 
keine Probleme. 

Am unteren Bildschirmrand werden 
zwei Zeiten gezeigt, die Systemzeit 
und die Verbindungszeit, die rück¬ 
stellbar ist. 

Ansonsten bietet ANSITERM nicht 
viel Komfort, es ist kein Mailbox¬ 
sondern ein TERMINAL-Programm. 
Beim Programmstart präsentiert sich 
ANSITERM scheinbar als TOS-Pro- 
gramm. Erst wenn man den linken 
Mausknopf betätigt, erscheint eine 
Menüleiste, über die die Funktionen 
des Programms erreichbar sind. Dazu 
gehören neben den Parametern für 
Schnittstelle und Bildschirm die 
Möglichkeiten, ein Druckerprotokoll 
einzuschalten, die Verbindungszeit 
zurückzustellen, die Zeit für eine 
Bildschirmschonschaltung festzu¬ 
legen und anderes. Leider ist nicht 
vorgesehen, die empfangenen Daten 
auf Diskette zu sichern, und es gibt 
auch keine Möglichkeit, die im nor¬ 
malen Terminalmodus empfangenen 
Daten später noch zu edieren bzw. 
abzuspeichem, da ein integrierter 
Speicher und Editor fehlen. 

Dieses Manko wird nur teilweise 


durch die Möglichkeit wieder wettge¬ 
macht, eine Shell bzw. z.B. einen 
Editor zu definieren, den man von 
ANSITERM aufrufen kann. Über 
Alt-Esc kann man während einer 
Protokoll-Übertragung in dieses de¬ 
finierte Programm springen. Möglich 
wird dies durch ein mitgeliefertes 
Programm namens RTXBOOT. 
PRG. Es handelt sich hierbei um 
einen Multitasking-Kemel, der am 
besten in einem Auto-Ordner instal¬ 
liert wird. Unter anderem fängt dieses 
Programm auch so manche GEM- 
Exception ab, in ATARIanisch 
"Bömbchenfehler” genannt. 
Ansonsten sorgt es dafür, daß man 
von ANSITERM aus andere Pro¬ 
gramme aufrufen kann. 

Ähnlich wie andere DFÜ-Program- 
me bietet ANSITERM die Möglich¬ 
keit, die Funktionstasten doppelt zu 
belegen und sogenannte Skript¬ 
dateien auszuführen. Diese Defini¬ 
tionen müssen allerdings mit einem 
externen Editor erstellt und in 
speziellen Dateien abgelegt werden, 
da ANSI-TERM wie bereits erwähnt 
über keinen eingebauten Editor 


Options 


Reset Elapsed Tine 
Reset terninal 


Port settings.■■ 


Terninal settings...* 
Tab settings... 
Initial colors... 
Reset to defaults 

Printer Enable 

Exit to Shell 

Return to Enulator 

Bild 2: Das Options-Menii von ANSITERM 
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verfügt. Mit Hilfe der Skriptdateien 
kann man zum Beispiel automatische 
Einlogprozeduren schreiben, oder 
sogar einen ganzen Hostzugriff auto¬ 
matisieren. ANSITERM kennt zu 
diesem Zweck 25 verschiedene 
Kommandos, mit deren Hilfe man 
alles erledigen kann, vom kompletten 
Filetransfer bis zum Weckton für den 
User, der sich während einer 
halbstündigen Übertragung süßen 
Träumen hingibt. 

ANSITERM wird mit einem 
deutschen Handbuch gelie¬ 
fert, überdessen Qualität man 
geteilter Meinung sein kann. 
Einerseits werden detaillierte 
Informationen über die ver¬ 
schiedenen verwendeten Pro- 
tokolle und Standards 
gegeben, andererseits werden 
so wichtige Dinge wie das 
RTXBOOT.PRG mit keiner 
Silbe erwähnt. Dafür enthält 
es aber sowohl ein In¬ 
haltverzeichnis, ein Stich¬ 
wortverzeichnis sowie einige 
nützliche Literaturhinweise 
und ein gutes Begriffs¬ 
lexikon. 

Neben dem eigentlichen Ter¬ 
minalprogramm, dem Multi¬ 
taskingkemel und einer Pa¬ 
rameterdatei befinden sich 
auf der gelieferten Diskette 
noch je ein Beispiel für Mac¬ 
ros und Scriptfiles sowie noch 
die englisch-sprachige Ver¬ 
sion des Handbuchs. 


Da ANSITERM nicht kopierge¬ 
schützt ist, läßt sich eine Sicher¬ 
heitskopie anfertigen und auf einer 
Harddisk unterbringen. 

ANSITERM ist ein Produkt von 
Beckemeyer Tools, einer US-Firma, 
deren Produkte fast alle mit Multi¬ 
tasking zu tun haben. Schon seit über 
einem Jahr existiert die RTX-Shell, 
die auch schon seit einiger Zeit durch 
die MT C-Shell ergänzt wird. Zusam¬ 
men bieten die beiden praktisch 
UNIX auf dem ST, nehmen allerdings 


zusammen auch fast 800K in 
Anspruch. Mit dem VSH-Manager, 
einem weiteren Produkt von 
Beckemeyer, ist es möglich, über ein 
Accessory mehrere Hintergrundtasks 
auszuführen, während man vome mit 
einem GEM-Programm arbeitet, eine 
besonders für Entwickler interessante 
Sache. 

Zum guten Schluß bleibt anzu¬ 
merken, daß ANSITERM seine Tests 
bestanden hat, die Protokollübertra¬ 
gungen einwandfrei funktionieren 
und es ein zuverlässiges 
Werkzeug darstellt, auch 
wenn man oft den Komfort 
anderer Terminalprogram¬ 
me vermißt. Einzigartig ist 
die Mög-lichkeit, während 
einer Protokollübertragung 
mit einem anderen Pro¬ 
gramm zu arbeiten, aller¬ 
dings gibt es hier einige 
Einschränkungen. So liefen 
nur TOS-An Wendungen 
zuverlässig, G EM-Pro¬ 
gramme sind wohl (hoffent¬ 
lich noch) nicht vorgesehen. 
Für Leute, die oft große Da¬ 
tenmengen übertragen 
müssen und die die Zeit nicht 
verträumen wollen oder 
können, ist ANSITERM ein 
guter Kandidat fürs Soft¬ 
wareregal. 


Christian Schmitz-Moormann 


^ Terninal Type 
Auto Repeat 
Auto Mrap 
Display CTRL Chars 
Clear screen on FF 
Tabs to Spaces 
Keypad 
File Capture/Send 
Strip LF for upload 
BS is destructive 



Cursor 


UNDERLINE 

BLOCK 

FLASHING 

STEADY 

OFF 

ON 


CRT Saver Tine! 30[_ 
Shellicsh_ 


OK 


CANCEL 


Bild 3: ANSITERM besitzt vielfältige Einstellungsmöglichkeiten 
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KatCe-ST 

Pascal/Assembler Entwicklungssystem 
für Atari ST Computer 

Komplettes System mit Maschinensprachemonitor, Editor, 
Assembler, Disassembler, integrierten Bibliotheken und Pascal 

Pascal: 

voller Sprachumfang, übersetzt mehr als 200 Zeilen pro Sekunde. 
Spracherweiterungen mit mehr als 200 Prozeduren und Funktionen, 
aus GEMDOS.BIOS.XBIOS.VDI und AES. Parallelprozesse. 

Preis: DM 100,- 


Software und Computerbaugruppen 
C.Mayer-Gürr Treptower Str. 2 4350 Recklinghausen 

Tel. 02361/33153 


HARDDISC-30MB 1298,-DM 

tnkl. Software 

ROM-DISC 128KB 129,-DM 

inkl. Eproms und brennen 

ST-UHR 33,-DM 

(Accapufferung, mit Software) 

Info bei: Ilias Lazaridis 

Blumbergstr. 48 
4200 Oberhaosen 1 


HEIM FIBU-ST 

Die Fibu für Privatgebrauch, Vereine, Freiberufler 

° Bilanz / ,,, -\ 

O Statistik [ DM 125,- 

O Voll GEM unterstützt Porto + Verp.^ 
o Kontenplan 

O Voll Mandantenfähig PROFISOFT/MTC 
O Bequemes Buchen Postfach 56 

O Mwst-Berechnung A-6027 Innsbruck 
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PADERCOMP — Walter Ladz 

Breslauer Straße 25 * 4790 Paderborn * Tel. (0 52 51) 7707 


Sie sind da. 
die neuen 

PADBRCOMPS 

• noch kleiner 

• noch leiser 

• noch zuverlässiger 

• noch günstiger 

• mit NEC FD 1037 A 

Sie erhalten diese Qualitäts¬ 
produkte nur bei speziellen 
Fachhändlern oder direkt 
von uns. Rufen Sie an! 

Händleranfragen erwünscht 

• unverbindliche Preisempfehlung 




PADERCOMP FL-1 

3,5", 1 MB, NEC FD 1037 A, 
anschlußfertig für ATARI ST 
Abm.: 153 x 103 x 26 mm 
ind. Stecker- M * 

netzteil PPS-1 

PADERCOMP FL-2 

Doppelstation übereinander, 
Abm.: 153 x 103 x 52 mm 
incl. Steckernetzteil PPS-1 


598 : 



Stecker netzteil PPS-1 

5 V/l A stabilisiert, kurzschlußfest, 
eigens für die neuen NEC FD 1037 
entwickelt, serienmäßig bei unseren 
Laufwerken FL-1 und FL-2 AO«* 
enthalten. Einzelpreis 


SPC MODULA-2 


LEISTUNGSMERKMALE 


für ATARI ST und MEGA ST 
Turbo - Komfort in MODULA-2 

Die Programmiersprache MODULA-2 wurde von N.Wirth 
an der ETH Zürich als Nachfolger von PASCAL entworfen. 
Dabei wurde die Syntax von PASCAL weitgehend bei¬ 
behalten und um das Modulkonzept und Elemente zur 
maschinennahen Programmierung ergänzt. 

Deshalb ist MODULA-2 eine sinnvolle Alternative zu 
PASCAL und C. 

SPC MODULA-2 ist eine direkte Umsetzung der neuesten 
Version des an der ETH Zürich entwickelten Compilers. 
Durch eine geschickte Einbindung des GEM Betriebssystems 
wird mit SPC-MODULA-2 dessen wirkungsvolle Nutzung 
innerhalb eigener Programme möglich. 

Besonderer Wert wurde auf den Bedienungskomfort 
gelegt: Editieren-Compilieren-Testen in weniger als 
1 Minute, da das zeitaufwendige Binden entfällt! 

Ein Symbolischer Debugger hilft beim Erkennen und 
Beheben von Programmfehlern. 


• Ein Compiler mir einer Ubersetzungsleistung von 5000 
Zeilen pro Minute: neuer Wirth’scher Standard 

• Ein Editor, der bis zu 8 Dateien gleichzeitig editiert, 
und die MODULA-Syntax unterstützt. 

• Ein symbolischer Debugger, der bei Programmfeh¬ 
lern automatisch aufgerufen wird. 

• Das lästige Binden von Programmen entfällt: SPC 
MODULA-2 ist ein Single Pass Compiler 

• Der Editierzyklus ist kürzer als eine Minute 

• COROUT1NEN werden unterstützt 

• Bei genügend Speicher kann der Editor und Compiler 
fest im Speicher gehalten werden 

DM 348,- 

ADVANCED APPLICATIONS 
Viczena GmbH 

Sperlingweg 19 
D-7500 Karlsruhe 31 
Tel.: (0721) 70 09 12 

DEMODISKETTE für DM 10,00 anfordern 
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EDITOR TOOLBOX 


Was in der IBM-Welt längst ein 
alter Hut ist, erlebt jetzt auf dem ST 
eine Renaissance. Das Kind heißt 
Editor Toolbox und kommt von 
Application Systems III Heidelberg. 
Für 149 DM bekommt man einen 
Editor und dessen Quellcode in 
Megamax C. 

Wer bisher neidisch zu den Turbo- 
Pascal-Programmierern auf dem PC 
herübergeschielt und Gefallen an 
dem Toolbox-Konzept gefunden hat, 
wird jetzt auch auf dem ST fündig. 
Die Finna Application Systems, die 
den Megamax C-Compiler in 
Deutschland vertreibt, bietet inzwi¬ 
schen einige Erweiterungen und Pro¬ 
gramme an, bei denen auch der 
Quellcode in C mitgeliefert wird. 
Dies ist für alle Anwender und 
Freaks, die selbst in C programmieren 
können und im Besitz des Megamax 
Compilers sind, ein interessantes 
Feature. Um es vorwegzunehmen: 
Bedenkt man den Preisunterschied 
von 85 DM zu 149 DM zwischen 
Tempus und der Editor Toolbox, 
dann muß man eigentlich Ver¬ 
wendung für den Quellcode haben, 
sonst ist man mit Tempus sicher 
besser bedient. 

1 / 1 fas bekommt der 
Anwender geboten ? 

Einen Bildschirmeditor, der sich 
durch seine Funktionalität von vielen 
anderen Produkten dieser Art abhebt. 
Ich meine damit, daß nicht nur die 
normalen Editorfunktionen wie 
Einfügen, Löschen, Blöcke ver¬ 
schieben usw. geboten werden, son¬ 
dern zusätzlich noch ein Terminal¬ 
programm enthalten ist, mit dem man 
seine Texte direkt über einen Akku- 



stikkoppler oder ein Modem an eine 
Mailbox schicken kann. 

Alle Funktionen des Editors werden 
auf den 32 Seiten der deutschen Be¬ 
dienungsanleitung ausführlich er¬ 
läutert. Wer schon mit verschiedenen 
Texteditoren gearbeitet hat, braucht 
das Handbuch nur in seltenen Fällen 
zu Rate zu ziehen. Der Editor verwen¬ 
det eine Menüleiste, von der aus alle 
Funktionen angesprochen werden 
können. Zusätzlich kann man aber 
auch alle Kommandos über diverse 
Tastenkombinationen erreichen. 
Dabei hat es mir sehr gut gefallen, daß 
in den Menüs immer die Tastenkom¬ 
bination, mit der eine Funktion 
ausgelöst werden kann, angezeigt 
wird (siehe Bild). Daran könnte sich 
Tempus ein Beispiel nehmen. Wo wir 
gerade bei Tempus sind: In meinen 
Augen ist Tempus im Augenblick der 
hellste Stern am Editorhimmel. Des¬ 
halb mußte er auch in diesem Test als 
Vergleich herhalten. Ich gehe davon 
aus, daß die Leser schon von Tempus 
gehört haben; wenn nicht: siehe ST- 
Computer März 1987, Seite 70, 
Testbericht über Tempus (Hallo 
Stefan). Ein wesentliches Merkmal 
von Tempus möchte ich an dieser 
Stelle noch erwähnen: die über¬ 
durchschnittliche Verarbeitungsge¬ 
schwindigkeit. Speziell in diesem 
Punkt habe ich die beiden Programme 
miteinander verglichen und zwar 
anhand des Quelltextes der Editor 
Toolbox, der stolze 5712 Zeilen lang 


ist. Die ermittelten Zeiten entnehmen 
Sie bitte der Tabelle. 

Ein paar Worte möchte ich noch über 
die Funktionalität verlieren. Es wird 
alles geboten, was man von einem 
Texteditor zum Bearbeiten von Pro¬ 
grammtexten erwartet. Man kann 
suchen und ersetzen, Blöcke definie¬ 
ren und diese kopieren, löschen und 
verschieben, vier Marken setzen und 
dann direkt zu den Marken springen, 
zwischen 2 Zeichensätzen (8*16 und 
8 * 8 ) wählen, die Tabulatorweite set¬ 
zen usw. Erwähnenswert ist noch, daß 
man einen Block einrücken kann. 
Diese Funktion ist besonders für die 
Strukturierung von Programmtexten 
nützlich. Leider besteht keine Mög¬ 
lichkeit, den Namen einer Textdatei 
in der Kommandozeile zu übergeben. 
Dieser Mangel macht die Ver¬ 
wendung des Editors zusammen mit 
der Megamax-Shell unhandlich. Man 
muß immer zuerst den Text laden und 
kann nicht sofort loslegen, wie man es 
vom Megamax-Editor oder von Tem¬ 
pus kennt. Aber es gibt ja den 
Quellcode... 

geht weiter... 
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Alle Befehle lassen sich über Tastaturkombinationen auf rufen 


In diesem brauchl man jedoch nicht 
herumzubasteln, um Abstürze zu 
beseitigen, zumindest gab es im Test 
keine Bomben zu sehen. 

Was bekommt der Pro¬ 
grammierergeboten ? 

Wie man sich vorstellen kann, ist ein 
kompletter Editor mit Terminalemu¬ 
lation nicht gerade ein Mickey 
Mouse-Programm. So wird es den 
einen oder anderen überraschen, daß 
für die 40 KByte Programm 240 
KByte Quelltext nötig sind. Dazu 
muß man sagen, daß der Quelltext 
äußer-gewöhnlich umfangreich 
dokumen-tiert ist. Hinter fast jeder 
Zeile steht ein Kommentar, und vor 
den einzelnen Funktionen werden 
jeweils die Parameter und die 
Wirkungs-weise erklärt. Diese Tatsa¬ 
che erleichtert das Verständnis der 
einzelnen Programmteile ungemein. 
Leider ist dies aber auch die einzige 
Unter-stützung, die geboten wird, um 
den Code zu verstehen. Das Design, 
das dem Programm zugrunde liegt, 
das Zusammenspiel der einzelnen 
Mo-dule, welche Datenstrukturen 
benutzt werden und alles andere, was 
noch zum Verständnis des Quelltex¬ 
tes bei-tragen könnte, fehlt. Es bleibt 
nichts anderes übrig, als mühsam den 
Quelltext zu durchforsten um nach 
und nach die Zusammenhänge zu 
verstehen. 

Was mich am meisten stört, ist die 
Gestalt des Quelltextes. Es sind - wie 
schon erwähnt - ca. 240 KByte, die 
jedoch in einer einzigen Datei stehen. 
Selbst Standarddefinitionen, die jeder 
vernünftige Entwickler mit '#in- 
clude’ in seinen Text einbindet. 


stehen in dem Sourcefile ‘TOOL¬ 
BOX.C\ Diese Art zu programmie¬ 
ren erinnert mich an meine ersten 
Gehversuche in Sachen Computer, 
auf einem VC-20 in BASIC. Aller¬ 
dings hatte ich damals keine andere 
Wahl, als alles in einem Stück in den 
Speicher zu hacken. Warum der Au¬ 
tor der Editor Toolbox, Martin 
Backschat, seinen Quelltext nicht in 
mehrere kleine Objektmodule un¬ 
terteilt hat, ist mir schleierhaft. 
Gerade Megamax C unterstützt doch 
hervorragend die Modularisierung. 
Die Make-Funktion kompiliert nur 
die edierten Module, und bei einer 
kleinen Änderung muß man nicht 240 
KByte neu übersetzen, sondern 
vielleicht 10 KByte, und spart jede 
Menge Zeit. Auch wenn man den 
Text ediert, ist es angenehmer, in 
kleineren Stücken zu arbeiten, als 
jedesmal die komplette Source, die, 
ich wiederhole es nochmal, 240 
Kbyte lang ist, in den Editor zu laden. 
Der Code selbst ist trotz der vielen 
Kommentare für einen Anfänger 

Tabelle: 

Die Editor 
Toolbox im 
Vergleich zu 
Tempus 


nicht leicht zu verstehen. Es fehlt halt 
eine Programm-Dokumentation. Lei¬ 
der sind auch noch ca. 200 Zeilen 
Assembler enthalten, die zwar die 
Verarbeitungsgeschwindigkeit, nicht 
jedoch die Lesbarkeit des Programms 
erhöhen. Ich will nicht am Program¬ 
mierstil von Martin Backschat 
mäkeln, aber ich habe schon über¬ 
sichtlichere Programme gesehen. Es 
gibt einige Stellen im Code, an denen 
man Verbesserungen vornehmen 
kann und sei es nur um die Optik zu 
verbessern. Mit Makros wurde richtig 
gegeizt. Schade, warum eigentlich ? 
Genug gemeckert, sicher gibt es auch 
an den Programmen, die ich inderST- 
Computer veröffentlicht (verbrochen 
?) habe, einiges auszusetzen. Egal, 
wie fit man in einer Programmier¬ 
sprache ist, es gibt fast immer einen, 
der besser drauf ist. 

Fazit 

Die Editor Toolbox stellt mehr Edi¬ 
tor als Toolbox dar. Man kann sich 
zwar einige Tricks für seine eigenen 
Programme abgucken: um richtig 
durchzublicken und Modifikationen 
zu machen, muß man aber Zeit haben. 
Ich wünsche mir im wesentichen zwei 
Dinge: Modularisierung des Source¬ 
codes und eine ausführliche Be¬ 
schreibung der Module und Daten¬ 
strukturen. Ansonsten ist das Paket 
recht gelungen. Dafür, daß fast 
ausschließlich in C programmiert 
wurde, kann man sich hinsichtlich der 
Geschwindigkeit nicht beklagen. Der 
Vergleich mit Tempus, der ja in As¬ 
sembler geschrieben wurde, ist fast 
schon ungerecht. 


'N. Programm 

Aktion N. 

Editor 

Toolbox 

Tempus 

Text laden 

11 s 

4 s 

Text von Anfang 
bis Ende scrollen 

343 s 

221 s 

Seitenweise 

blättern 

32 s 

17 s 

Alle { durch 
_L_ ersetzen 

34 s 

< 3 s 


JL 
























DER UNTERSCHIED 


G RAMDISK II + 


© In der neuesten Version mit allen Leistungs¬ 
merkmalen, die man sich für eine Ramdisk 
überhaupt wünschen kann: Resetfest bis 
4 MB, dabei abschaltbar; integrierter 
Druckerspooler, Bootcopy; Parametersave usw. Die G RAM¬ 
DISK II ist im harten Einsatz bereits tausendfach bewährt. 

DM 49 — 


INTERPRINT II 


Drucker hat einen integrierten Treiber, der 
auch alle Umlaute und Sonderzeichen nach 
Ihren Wünschen konvertiert. Dabei können 
mit Hilfe des Editors maßstabsgerechte Hardcopies auf allen 
Matrixdruckern und HP-Lasern erstellt werden. Auch ein 
Druckerspooler und unsere G RAMDISK II + sind inte¬ 
griert. Die Parameter sind speicherbar, und der komfortable 
Editor ermöglicht schnellste Anpassung. 

DM 99 — 

ohne Ramdisk DM 49 — 


DISK HELP 


0 Repariert Disketten und erlaubt in 99% der 
Fälle eine Wiederbelebung des gesamten Da¬ 
tenbestandes. Das Programm gehört neben 
jeden ST. Lassen Sie Ihre wichtigsten Daten 
nicht einfach von Laufwerken zerstören. DISK HELP ist ein¬ 
fach zu bedienen, korrigiert Lesefehler und rekonstruiert 
Files. Physikalische Fehler (Risse, Kaffee) können nicht beho¬ 
ben werden. 

DM 79 — 


Harddisk Help 
& extension 


A Wir wollen keinesfalls die Ängste um Ihre 

täglichen Daten schüren, aber sind Ihre Da¬ 
ten wirklich sicher? Wie schnell führt ein 
Headcrash zum Ende! Sie sollten auf ein 
bewährtes Backupsystem nicht länger verzichten. Auch sehr 
große Files können einzeln gesichert werden. Partition 
Backup, Tree Funktion, selected Backup und Diskoptimizer 
erhöhen die Effizienz dieses Programms. Auch bei der Ge¬ 
schwindigkeit wurden keine Kompromisse geschlossen. 

DM 129 — 


G COPY 


A Für Vielkopierer, Sicherheitskopierer, 
Raubkopierer und Umkopierer. Das univer¬ 
selle Kopierprogramm, das einfach mehr 
kann: G COPY kopiert alle ST-Programme 
und jeden Kopierschutz. G COPY formatiert alle Disketten¬ 
formate (80-87 Tracs, 9-11 Sektoren, 913 KB Disketten, 
Schnelladedisketten) in Hochgeschwindigkeit. Dabei erreicht 
G COPY eine unglaubliche Kopier- und Formatiergeschwin¬ 
digkeit. 

Jetzt neu: Mit Autocrack, Copy Protection, Detector und 
Copy Protection Emulator. 

DM 99,— 


FAST SPEEDER 

Für alle, die ihrem Massenspeicher keine 
Pause gönnen wollen und lange Wartezeiten 
satt haben. Bringen Sie Ihre Festplatte und 
Diskettenstation auf Trab! Im Extremfall er¬ 
reichen Sie dabei Ramdiskgeschwindigkeit! Festplatten wer¬ 
den bis zu 200% beschleunigt, Diskettenlaufwerke bis zu 
900%. FAST SPEEDER ist einfach zu handhaben. Der opti¬ 
mierte Spezialalgorithmus mit Cache Prinzip arbeitet für Sie 
unmerklich im Hintergrund. 

DM 129 — 

G DISKMON II 

Zum Kontrollieren, Ausprobieren, Umko¬ 
pieren, Raubkopieren, Manipulieren, Inter¬ 
essieren und Reparieren. Ein nützliches und 
wichtiges Tool, damit die Diskette kein Ge¬ 
heimnis bleibt. Unbeschränktes Lesen, Schreiben, Editieren, 
Kopieren, Suchen, Ersetzen, Formatieren usw.; Schnell¬ 
druck; Bootsektorscannung in Klartextdarstellung; interakti¬ 
ve Hex, Dez oder ASCII Bedienung. 

DM 99 — 

G DATEI 

Maskengenerator, einfache, effektive Benut¬ 
zerführung, Help Funktionen, Rechenfel¬ 
der, Druckeranpassung, Listen- und Druck¬ 
maskengeneratoren sind für G DATEI 
selbstverständlich. Darüberhinaus sind in G DATEI ein Ta¬ 
schenrechner, eine kleine Textverarbeitung für Serienbriefe 
und ein Expertensystem integriert. Alles Logisch aufgebaut 
und ohne große Kenntnisse einfach zu bedienen. Damit Sie 
Ihre Daten nicht nur erfassen, sondern auch bearbeiten und 
auswerten können, wie Sie es wollen. Nicht umsonst ist G 
DATEI von der Gesellschaft der unabhängigen EDV-Berater 
empfohlen! 

DM 199— 

Handbuch (vorab - wird angerechnet) DM 20,— 

CHESS 

Das stärkste Schachprogramm für ST Com¬ 
puter (bei 66.000 Eröffnungszügen) bietet 
nicht nur Spielstärke, sondern auch Kom¬ 
fort. Nachladbare und erweiterbare Eröff¬ 
nungsbibliothek, beliebige Bedenkzeit (bei Ausnutzen Ihrer 
Bedenkzeit), Zugvorschlag, Seitenwechsel, Hängespiel, Pro¬ 
blemschach, Patreindruck und Speicherung, Blitzen usw. 
sprechen klar für CHESS. 

DM 129,— 

D as sound 

SAMPLER II 

Der Sound Sampler II hat nicht nur die Pres¬ 
se überzeugt (Keyboard 12/87: Verglichen 
mit anderen Samplern, die das 10-15fache 
kosten ... muß man von einer guten bis sehr 
guten Sample Qualität sprechen.’ ST 1/88: ’Der Alles¬ 
könner’), sondern auch unsere Kunden. Und die Leistungs¬ 
merkmale sprechen für sich: Samples aufnehmen, editieren, 
schneiden, verknüpfen, mischen, transponieren, Echoeffekte, 
einbinden in Programme, 36,4 KHz Samplingrate überzeugen 
klar. 

Software DM 149,— 
Hardware DM 249,— 
Soundbibliothek (10 Disketten) DM 149,— 








IST DEUTLICH 


G SCANNER 


0 Problemloses Digitalisieren von s/w-Bildern 
mit Ihrem Drucker ermöglicht der G SCAN¬ 
NER. Die hochwertige Abtastdiode von HP 
garantiert die ausgezeichnete Qualität 
von 200 dpi. Sie wird einfach auf dem Druckknopf Ihres 
Druckers befestigt. Mitgeliefert wird Software, die DEGAS 
und Normalbilder erstellt und Bildeditieren ermöglicht. Der G 
SCANNER ist voll kompatibel zu STAD und SYMPATIC 
PAINT (Scannoption). 

DM 298 — 

P6 Halterung für Diode DM 35,— 


Roboterarm 


Der semiprofessionelle 5achsige Roboterarm 
wird anschlußfertig für ST, AMIGA oder 

_ PC/AT geliefert. Für Schulungszwecke, 

Lehr- und Demonstrationszwecke oder ein¬ 
fach zum Spielen bestens geeignet. Technische Daten: Höhe 
ca. 54 cm, industriegelb, ca. 2,5 kg schwer, einfacher An¬ 
schluß an Drukkerport. Auch über Joysticks zu steuern. 

Anschlußfertig DM 269,— 
Spezialnetzteil DM 99,— 
Batteriesatz DM io,— 


TV Modulatoren 


\ / Schließen Sie Ihren ST an den Farbfernseher 

/a \ an, und sparen Sie sich einen teuren RGB 

Monitor. Unsere Modulatoren bringen ein 
~ scharfes Bild mit allen Mischtönen und einen 
Tonausgang extern und einen über den Fernseher. Das heißt: 
Bestes Bild und bester Tor für alle Fernseher. 

Typ A mit Monitorumschalter 
(ATARI-Fernseher) DM 249,— 

Typ B ohne Monitorumschalter DM 239,— 

Typ C FBAS Wandler für Geräte 
mit AV oder FBAS Eingang DM 169,— 



RAM Erweiterungen 


Unsere Ram Erweiterungen sind völlig neu. 
Sie werden ohne Lötarbeiten im Gerät ge¬ 
steckt. Keine Leiterbahntrennungen - keine 
Treibersoftware. Die Platinen werden unbe- 
stückt geliefert und können mit 256 KBit Chips oder mit 1 
MBit Chips bestückt werden. So erreicht man - je nach 
Wunsch - eine Erweiterung um 512 KB, 2 MB oder 4 MB. 
Dazu benötigen Sie nur eine Platine. Das bedeutet: zukunfts¬ 
sicher und problemlos. 

für 520, 520 4-, 260, STM DM 249,— 
für 1040 STF DM 249,— 


LOGIC ANALYSER 

Endlich ein Logik Analyser, den sich jeder¬ 
mann leisten kann. Dabei können wir auf 
die Leistungsmerkmale von 5-10fach teureren 
Geräten hinweisen: 16 Kanäle bis 600 KHz, 
komfortable GEM Software, verschiedene Triggerungsmög¬ 
lichkeiten usw. Das Gerät wird auf den Romport gesteckt und 
anschlußfertig mit Software geliefert. 

DM 448 — 




RELAS 

r /-\ ^ Aktienanalyse für den privaten und professio- 

■ nellen Aktienanleger auf der Basis der Relativen 
^ ^ J Stärke und Volatilität von Aktienkursen — 

Charts wahlweise über Bildschirm und Drucker 
— Mischen von Charts einer Aktie und Branche 
zum Vergleich — Kurseingabe nur einmal wöchentlich (!) Als Basis 
dienen die letzten 27 Wochenschlußkurse — Umfangreiche Berei¬ 
nigungsfunktion bei Kapitalveränderungen von Aktien — Listen 
der Relativen Stärke mit Mittelwert von Kursen und Analyse der 
Veränderung der Rangfolge der Relativen Stärke über 3 Wochen 
(wahlweise Bildschirm oder Drucker) — Zu jeder Aktie können 
Höchst- und Tiefstkurse sowie eigene Notizen eingegeben werden 
— Depotverwaltung für den privaten und semiprofessionellen Ak¬ 
tienanleger über ein bedienungsfreundliches Karteikartensystem 
auf dem Bildschirm mit Gewinn- und Verlustrechnung Brutto — 
Depotübersicht wahlweise auf Bildschirm oder Drucker aufge¬ 
schlüsselt nach Einzelgattung oder als Gesamtübersicht — Um¬ 
fangreiche Lösch- und Änderungsfunktion für die Daten 

Handbuch vorab:DM 40,— DM 398,— 

SYMPATIC PAINT 

m. Der ATARI ST als Grafik Workstation der Su- 

Wß perlative! Alle Funktionen, die für ein effektives 

und komfortables Zeichnen, Malen und Kon- 
struieren erforderlich sind, wurden integriert. 
Der Benutzer hat nicht nur die Möglichkeit der 
Erstellung einer individuellen Grafiktoolbox, sondern auch eine 
Animationsselektion, mit der Bilder laufen lernen. Bilder können 
dabei mit dem G SCANNER und EASYTIZER eingelesen werden. 
Selbstverständlich kann die laufende Animation mit Sound unter¬ 
legt werden. Dabei können nicht nur alle ATARI Sound Register 
gezogen werden, sondern auch digitaler Sound vom AS SOUND 
SAMPLER II eingebaut werden. Trickfilme mit digitalem Sound! 

Handbuch vorab:DM 30,— DM 298,— 

© GEM Retrace Recorder 

Der Knüller! Wie von Geisterhand bewegt sich 
die Maus, laufen Kommandos ab, werden Ak¬ 
tionen gestartet. Der GEM Retrace Recorder er¬ 
möglicht es, jegliche Aktion (Mausbewegung, 
Menüs, Klicks, Tastatur usw.) aufzuzeichnen, 
und auf Tastendruck jederzeit original zu w iederholen. Das heißt: 
GEM Makros erstellen für Aktionen, die ständig wiederholt werden 

lau- 
und 


grenz,! DM 99,- 

A Hardware Uhr 

Die Uhr wird ohne Lötarbeiten im Rechner ein¬ 
gebaut, so daß der ROM Port frei bleibt. Sie ha¬ 
ben ständig die aktuelle Zeit und das aktuelle 
Datum! Die Lithium Batterie garantiert hohe 
Ganggenauigkeit und 10 Jahre Laufzeit bei vol¬ 
ler Schaltjahrerkennung. Der sensationelle Preis für die anschluß¬ 
fertige Uhr beträgt nur DM 79 _ 


GDATA 


Siemensstraßc 16 4630 Bochum 1 
Telefonische Bestellungen: 

023 25/60897 

Schweiz: Senn Computer AG 
Langstr. 31 
CH-8021 Zürich 



Österreich: Computershop Rittner 
Hauptstr. 34 
A-7000 Eisenstadt 

BENELUX: 

G DATA BeNeLux 
Postbus 70 
NL-2000 AB 
Haarlem 
Tel. 023/ 

3213 31 
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EXTENDED 
VT52-EMULAT0R 


DESK DATEI INDEX EXTRAS 


si- 


D:\ 


378866 Bytes in 12 Dateien. 


□ □ □ 

PSHOT.ACC VT52TEST.£ - ' 

□ □ 


□ □ □ 


SNAPSHOT.ACC VTS2TEST.BAS DESKTOP.INF PROFIMAT.INF TEMPUS.INS GFABASIC.PRG PROF IMAT.PRG 


TEMPUS.PRG X_VTS2.PRG X_VT52.Q PROFIMAT.RSC PROFIMAT.TAB 


workofinen. da' diese Zeichen in XON/XÖFF-Modüs "a1s Steuerze 
für die Übertragung verwendet werden! 

(Taste) 


-Bytes 
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Bild 1. Auch das Anzeigen und übertrugen (DFLJ) von Bildern in DOODLE-Format ist möglich. 


Bekanntlich können Computer 
und Programme gar nicht schnell 
genug sein, um eingefleischte 
Hacker zu befriedigen. Dies gilt 
nicht zuletzt auch für die Bild¬ 
schirmausgabe, die Teil des Be¬ 
triebssystems und darum nicht so 
einfach durch eigene Routinen zu 
ersetzen ist. Wie man die Textaus¬ 
gabe um bis zu Faktor sechs be¬ 
schleunigt und dergleichen mehr, 
zeigt ein in Assembler geschriebe¬ 
nes Programm, dessen erster Teil 
in dieser Ausgabe der ST Compu¬ 
ter veröffentlicht wird. 

Mag sein, daß es etwas ungewöhnlich 
ist, den Anfang mit dem Ende zu 
verbinden (Sokrates’ Lieblingsbe¬ 
schäftigung einmal ausgekreist), aber 
da dieser Artikel ob seiner Länge nur 
häppchenweise publiziert werden 
kann, sollten Sie wenigstens jetzt 
schon erfahren, was Sie darin erwar¬ 
tet und was Sie damit anfangen kön¬ 
nen. Es handelt sich bei xVT52.PRG 
um einen Patch des für “normale” 
Textausgabe (also solche ohne Attri¬ 
bute) zuständigen VT52-Emulators. 
Das heißt, es ist eigentlich kein Patch 
mehr, sondern viel mehr ein komplett 
neuer Emulator, denn wenn er erst 
einmal installiert ist, kann sich der 
Original-Emulator auf Rente bege¬ 
ben, weil keine einzige Funktion des 
TOS ihn mehr eines Bytes würdigt. 
Dafür ist das komplett in Profimat- 
Assembler geschriebene Programm 
wesentlich leistungsfähiger im Funk¬ 
tionsumfang und auch bis zu sechs¬ 
mal schneller als sein in C geschrie¬ 


bener Kollege. C erzeugt sicherlich 
kompakten und recht schnellen Code, 
wenn man der Perversion übersichtli¬ 
cher Programmierung mächtig ist, 
aber schon das Runtime-Gerüst eines 
C-Programmes ist bei weitem größer 
als der komplette xVT52-Emulator, 
und was die Geschwindigkeit angeht, 
spricht ein Zeitvergleich zwischen 
altem und neuem Emulator für sich. 

Features 

Sind Sie Mitglied der immer größer 
werdenden DFÜ-Fan-Gemeinde? 
Dann haben Sie es bestimmt schon¬ 
mal vermißt, daß der VT52 zwar 
ASCII-Texte übermitteln kann, nicht 
aber Grafiken. Häufig kommt es auch 
vor, daß man eben mal einen Text 
unterstreichen möchte, um ihn her¬ 
vorzuheben. Vor derlei Sonderwün¬ 
sche hat das TOS das VDI gesetzt; 


und das ist nun nicht eben ein Aus¬ 
bund an Bedienungsfreundlichkeit. 
In aufwendigeren Tabellen kann es 
auch nötig werden, mehr als nur eine 
Cursorposition zwischenzuspeichem 
(mit ESC j); hatte man doch keine 
legale Möglichkeit im VT52, an die 
derzeit adressierte Spalte/Zeile her¬ 
anzukommen... Ein häufig geäußer¬ 
ter Benutzerwunsch ist auch das pi¬ 
xelweise Verschieben des Bild¬ 
schirmbereiches (Finescrolling ge¬ 
nannt), das sich nun sehr einfach er¬ 
reichen läßt - sofern Sie zu den acht¬ 
zig Prozent der ST-Besitzer zählen, 
die einen SM 124 ihr monochromes 
eigen nennen. Dagegen spielt es kei¬ 
ne Rolle, ob nun ein 260er oder ein 
Mega ST4 Ihren Schreibtisch ziert: 
xVT52 läuft auf allen Konfiguratio¬ 
nen und TOS-Versionen. 
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fiuflerden ist es jetzt endlich Möglich, zwischen 8x16 und exs-Font 
nit einer ESC-Sequenz unzuschalten, ohne über das VDI laufen zu Müssen! 

Der kleine Font eignet sich z.B. hervorragend für Beschriftungen... 


Bild 2: Lmschallen von (jEM-b onts 


Im übrigen mag Ihnen diese Serie 
dazu dienen, das eine oder andere 
dazuzulernen, derweil zumindest die 
wichtigsten Programmteile nochmal 
ausführlich auseinandergenommen 
werden, um ihre Funktionsweise zu 
erläutern. 

Installation 

Für den Anwender reduziert sich der 
Aufwand zum Installieren des Pro¬ 
grammes auf einen Maus-Doppel¬ 
klick, den man sich aber auch erspa¬ 
ren kann, wenn man xVT52.PRG in 
den AUTO-Ordner des Bootlauf¬ 
werks legt. Um den Emulator im 
Betriebssystem zu verankern, ist al¬ 
lerdings erheblicher Aufwand zu 
betreiben: nicht weniger als alle vom 
TOS benutzten TRAP-Vektoren sind 
umzubiegen, um alle Aufrufe abzu¬ 
fangen, die irgendwas mit Bild¬ 
schirmausgabe zu tun haben. Und das 
sind derer reichlich viele... 

Des’ Trap ich bieg’, 
des’ GEM ich sing’ 

Wie man so im allgemeinen be¬ 
stimmte TOS-Funktionen “pätscht”, 
wurde in zahlreichen Publikationen 
bereits demonstriert: man legt den 
zum TOS-Bereich gehörigen Vektor 
(z.B. $84 für GEMDOS) auf eine 
eigene Routine, in der man die auf 
dem Stack befindliche Funktions¬ 
nummer dahingehend untersucht, ob 
sie mit der zu patchenden überein¬ 
stimmt. Ist dem so, ruft man die eige¬ 
ne, ansonsten die Originalroutine auf. 
Klingt einfach und plausibel? Ist es 
auch - sofern man Funktionen von 
GEMDOS, BIOS und XBIOS ändern 
möchte. Beim Versuch, AES/VDI- 
Funktionen auf diese Weise zu mani¬ 
pulieren, könnte die Mega-atariani- 
sche Selbstmordrate leicht in unge¬ 
ahnte Höhen steigen: alle Marvins 
der Galaxis zusammen könnten nicht 
deprimierter sein als ein program¬ 
mierender Erdling, der es einfach 
nicht begreifen kann, warum sein ST 
Dinge tut, die er eigentlich gar nicht 
tun dürfte - und so sieht’s aus: man 
biegt den AES/VDI-Trap-Vektor an 
Adresse $88 auf eine eigene Routine 
um (wie es oben geschildert wurde) 


und ruft probehalber die geänderte 
Funktion auf. Und siehe da: es funk¬ 
tioniert. Derart begeistert, probiert 
man’s gleich nochmal... Und siehe 
da: es funktioniert nicht. Aha. Sicher¬ 
heitshalber Resetknöpfchen drücken 
und nochmaliges Installieren sind 
eins: der anschließende Test ergibt 
das erwartete Ergebnis. Es klappt. 
Wenn man Glück hat, klappt’s sogar 
noch ein paarmal, um dann aber wi¬ 
dersinnigerweise wieder nicht zu 
klappen, obwohl auch die tausendste 
Analyse des Listings nicht den Hauch 
eines Fehlers zutage fördern konnte. 
Der Ausdruck: “Klappt nicht” ist 
übrigens dahingehend zu verstehen, 
daß nicht etwa Bombenteppiche den 
entgeistert auf den Bildschirm ge¬ 
richteten Blick weich abzufangen 
versuchten - nein, das wäre auch zu 
trivial -, es ist nur einfach so, daß es 
ganz danach aussieht, als liefe ein 
total anderes Programm als das ein¬ 
gegebene. Verwirrt? Keine Panik - es 
gibt eine Lösung. Sie ist eigentlich 
verblüffend einfach, bloß muß man 
erst mal draufkommen: durch einen 
glücklichen Zufall kam heraus, daß 
der Vektor, der - logisch betrachtet - 
auf die eigene Routine hätte zeigen 
müssen, perfiderweis’ wieder ins 
ROM und somit auf die Originalrou¬ 
tinen zeigte!!! Wenn Sie mir jetzt 
einreden möchten, ich sei von Blind- 
und/oder Blödheit geschlagen, wenn 
ich noch nicht mal merken würde, 
daß nicht mehr meine, sondern die 
Originalroutinen ausgeführt werden, 
möchte ich Ihnen zwar nicht grund¬ 
sätzlich widersprechen, aber zu be¬ 
denken geben, daß es sich bei den 
entsprechenden Routinen um solche 
handelte, die zum Original kompati¬ 
bel sind und sich also nicht so beson¬ 
ders gut unterscheiden lassen... Ich 
hoffe, daß wenigstens den Program¬ 


mierern von Digital Research der 
Sinn bekannt ist, warum der GEM- 
Vektor so ab und an immer mal wie¬ 
der ins ROM geschubst wird. Daß 
hierzu auch noch der jedes Pro¬ 
gramm unglaublich übersichtlich 
und lesbar machende Line-F-Emula- 
tor Verwendung findet, legt die Ver¬ 
mutung nahe, unter den VDI-Pro- 
grammierern sei ein Sadist gewe¬ 
sen... 

Da es außer TRAP #2 keine weitere 
Schnittstelle zum GEM gibt, mußte 
der ominöse Pointerverbieger aus 
GEM selbst kommen; da der Vektor 
jedoch gar nicht mehr aufs Original 
zeigte und trotzdem wieder auf die 
ROM-Adresse umgesprungen wur¬ 
de, konnte es nur noch eine Interrupt- 
Routine sein, die da ihr wüstes Unwe¬ 
sen treibt. So ist’s denn auch: der erste 
Slot des Vertical-Blank-Interrupts ist 
für GEM reserviert, und inmitten 
dieser IR-Routine residiert der Un¬ 
hold. Weil ich mich ganz nett über 
den Typen geärgert hab\ verzichtete 
ich darauf herauszufinden, unter 
welchen Umständen er in Aktion tritt. 
Falls es jemand herausgefunden ha¬ 
ben sollte (es ist ja durchaus auch eine 
sehr einfache Erklärung möglich), 
möge er sich doch bitte melden. 
Danke. 

Die Lösung des Problems war jetzt 
eigentlich nur noch Formsache und 
kann in der Cursor-Interrupt-Routine 
CRS_IRR nachgelesen werden: der 
Vektor wird auf die eigene Routine 
gebogen; war er zwischenzeitlich ins 
ROM gewandert, wird der Cursor 
ausgeschaltet. Die Praxis hat gezeigt, 
daß dies so sinnvoll ist; richtig be¬ 
gründen kann iclVs aber nicht, weil 
ich, wie gesagt, keine Lust hatte, in 
den unergründlichen Tiefen des VDI 
herumzustöbern (wo Line-F-Emula- 
tor und ähnlich gräßliche Dinge zu 

4/88 fl 123 
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Zun Thena Schrift-fittribute: Es könnt relativ häufig vor, daß nan 
etwas unterstreichen nöchte, un es optisch hervorzuheben. 

Bis her nußte in solc hen Fa llen das umständlich und sehr aufwendig 

zu progrannierende OPI benutzt werden, Es stellte sich die Frage 

ob das so sein MUSS, und sie wurde nit ESC u beantwortet.., 

Oenausö hat nan jetzt die Möglichkeit, auf die halbhelie Scnrift 
unzuschalten, ESC R «*acht ? s möglich,,, 

£s ist selbstredend^ MÄ . 

(Taste) 


Hi Ul J: \ erschiedcne Schrijiattribute 


Hause sind...). Bemerkenswert ist 
noch, daß die Vektonnanipulation 
innerhalb der Interrupt-Routine herz¬ 
erfrischend unanständig ist: wenn 
GEM auf die hinterlistige Idee 
kommt, den Vektor ins ROM zu le¬ 
gen, kann es dies nur während des 
Vertical-Blank-Interrupts in die Tat 
umsetzen, wobei es die allererste 
Routine innerhalb der VBL-Schlan- 
ge benutzt. Die Routine, die den 
Vektor wieder ins RAM biegt, 
kommt direkt dahinter zur Ausfüh¬ 
rung, ohne daß GEM etwas davon 
wüßte oder es gar verhindern könnte. 
Ganz schön fies, gell? Und da sich das 
alles während des VBL-Interruptes 
abspielt und also zwischenzeitlich 
kein Programm aktiv sein kann, wird 
auf diese Tour sichergestellt, daß 
GEM-Aufrufe im Patch und nicht im 
ROM landen. Schubidu. Sollten Sie 
irgendwann einmal in die Verlegen¬ 
heit kommen, Veränderungen im 
GEM vorzunehmen (z.B. weil Ihnen 
die File-Select-Box nicht mehr ge¬ 
fällt oder Sie mehr als vier Fenster 
haben möchten...), würde ich drin¬ 
gend empfehlen, ebenfalls diese 
“Technik'’ zu verwenden; sie hat sich 
bisher als ebenso problemlos wie 
zuverlässig erwiesen. 

Nachdem der “Brocken" nun aus dem 
Weg geräumt ist, läßt sich der Rest 
der Installation wesentlich lockerer 
nachvollziehen. Als da wäre: Reser¬ 
vieren des benötigten Speicherplat¬ 
zes, Einfügen der Cursor-Interrupt- 
Routine in die VBL-Slots sowie 
Umbiegen der Vektoren für Aufrufe 
von GEMDOS, AES/VDI, BIOS und 
XBIOS. 


Traphandler 

Da - wie bereits erwähnt - alle vier 
Teile des Betriebssystems über Funk¬ 
tionen zur Textausgabe via VT52 
verfügen, mußten dementsprechend 
auch neue Traphandler geschrieben 
werden (im Listing tragen sie die 
ungewöhnlichen Namen GEMDOS, 
AES_VDI, BIOS und XBIOS). Ihre 
Lebensaufgabe besteht darin, TOS- 
Aufrufe dahingehend zu analysieren, 
ob die angeforderte Funktion zu pat- 
chen ist. Wenn ja, werden die Daten- 
und Adreßregister des Prozessors 
gerettet, die neugeschriebene Routi¬ 
ne angestoßen und die Register wie¬ 
der restauriert. In allen anderen Fäl¬ 
len wird die Programmkontrolle an 
den Original-Traphandler weiterge¬ 
geben, dessen Adresse beim Installie¬ 
ren der eigenen Routinen ja gemerkt 
wurde. Obwohl durch das Patchen 
pro Aufruf etwas mehr Code abgear¬ 
beitet werden muß, ist keine Verlang¬ 
samung des Systems zu befürchten. 
In der folgenden Übersicht sind alle 
Funktionen aufgelistet, die von 
xVT52 abgefangen werden, wobei 
ein Sternchen darauf hinweist, daß 
diese Funktionen neu hinzugekom¬ 
men sind. 

GEMDOS: 

- 0x2 (CCONOUT): Ausgabe eines 
Zeichens; Steuerbefehle werden aus¬ 
gewertet. 

- 0x6 (CRAWIO) mit Zusatzparame¬ 
ter <> $FF: wie CCONOUT. 

- 0x9 (PRINT LINE): Ausgabe eines 
mit Null abgeschlossenen Strings, 
wobei in selbigem enthaltene Steuer¬ 


zeichen ausgewertet werden. 

- 0x40 (WRITE) mit Ausgabekanal¬ 
nummer 1 (CON:): Ausgabe eines 
Strings, dessen Länge auf dem Stack 
übergeben werden muß; Steuerzei¬ 
chen werden ausgewertet. 

VDI: 

- 100 (Open Virtual Screen Worksta¬ 
tion): Anmelden eines Terminals 
beim VDI-Server; zusätzlich zur 
Originalroutine wird der Cursor 

noch in Home-Position gefahren. 
-101 (Close Virtual Screen Worksta¬ 
tion): Abmelden des Bildschirms; 
zusätzlich zur Originalroutine wird 
der Cursor ausgeschaltet. 

- 3 (Clear Workstation): Bildschirm 
löschen 

- 5 (VDI Escape Sequences), Unter¬ 
funktionsnummern: 

- 1 bis 15 (allg. Ausgabe- und 
Steuerbefehle) 

- 101 (Set Line Offset): Fest¬ 
legen des Abstandes zwi¬ 
schen log. Bildschirmanfang 
und 1. Textzeile in Pixel. 

- 102 (Init System Font): In¬ 
stallieren eines Zeichensatzes 
für normale Textausgaben 
(ohne Attribute). Diese 
Funktion beeinflußt NICHT 
die Textausgabe unter GEM 
(z.B. VDI 8 und damit letzt¬ 
endlich LINE A-Funktionen). 

BIOS: 

- 3 (BCONOUT) Zeichenausgabe 
über die Kanalnummern: 

- 2 (CON:) Ausgabe mit 
Steuerzeichen 

- 5 (ASC:) Steuerzeichen 
werden nicht interpretiert, 
sondern als “normale” 

Zeichen gedruckt. 

* 12 (WRITE ASC) Ausgabe eines 
mit Null abgeschlossenen Strings, 
wobei darin enthaltene Steuerzeichen 
durch entsprechende Symbol ersetzt 
und nicht interpretiert werden. 

XBIOS: 

- 21 (CURSCONF) Einstellen der 
Cursorattribute 


A >X-Tll 3 
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GRUNDLAGEN 


* 100 (INIT SCREEN) Rücksetzen 
der Bildschirmausgabe 

Wie man sieht, wird die Wichtigkeit 
der textuellen Ausgabe von TOS mit 
einem ziemlichen Funktionsaufgebot 
gebührend gewürdigt und so nimmt 
es nicht Wunder, daß xVT52 mit sei¬ 
nen über 1800 Zeilen nicht eben zu 
den Programm-Winzlingen gehört... 
Die neue Betriebssystemfunktion 
XBIOS 100 dient dazu, die Ausgabe 
in einen definierten Zustand zu brin¬ 
gen. Die im Listing mit INIT_CON- 
OUT bezeichnete Routine, die auch 
mit ESC i aktiviert werden kann, wird 
während des Installierens aufgerufen 
und beginnt ihren Dienst mit dem 
Retten der Zeiger auf die beiden 
Systemfonts der Kategorie 8x8 und 
8x16, wobei zugleich letzterer zum 
aktuellen Zeichensatz erhoben wird. 
Der Grund liegt zum einen darin, daß 
die Fontdaten für die Ausgabe zwin¬ 
gend benötigt werden, andererseits 
bietet xVT52 auch die Möglichkeit, 
mit einer einfachen Escape-Sequenz 
zwischen den beiden Fonts hin- und 
herzuschalten! Des weiteren werden 
die Ausgabe-Attribute wie Wrap- 
ping, inverse Darstellung, Blinkfre¬ 
quenz des Cursors etc. auf ihre De¬ 
faultwerte gebracht. Vor allem aber 
wird der “Ausgabevektor” initiali¬ 
siert. Was es mit diesem auf sich hat, 
erfahren Sie im folgenden Kapitel. 

Vektor-Wirrwarr 

Vektoren - neudeutsch Pointer - sind 
nichts anderes als Speicherbereiche 
(beim MC68000 sind sie 4 Bytes 
lang), die eine Adresse enthalten und 


auf “irgendwas’’ zeigen. So z.B. auf 
Variablen, Funktionen oder auch auf 
weitere Pointer. Die Tatsache, daß 
man Pointer nicht so einfach verfol¬ 
gen und manipulieren kann wie nor¬ 
male Variablen, führt gewöhnlich 
dazu, daß dieses Kapitel beim Erler¬ 
nen einer Programmiersprache mei¬ 
stens auf dem letzten Platz der Be¬ 
liebtheitsskala rangiert. Dennoch 
sind sie absolut unverzichtbar, denn 
egal, ob man sie in “getarnter” Form 
(wie in Pascal durch Voransetzen des 
Schlüsselwortes VAR vor ein Varia¬ 
ble oder Prozedur/Funktion inner¬ 
halb einer Übergabeliste) oder expli¬ 
zit (wie in C durch den Stern-Opera- 
tor, z.B. char * String) benutzt: ohne 
sie geht nichts. Auch nicht bei der 
Textausgabe. Unter den TOS-Varia- 
blen findet man an der Adresse $4A8 
einen dieser Zeiger, dessen Zweck 
mit “Interner Zeiger für Bildschirm¬ 
ausgaberoutinen” angegeben ist. Ich 
nehme an, daß diese Art kryptischer 
Erklärungen nicht ganz unschuldig 
am weitverbreiteten Pointer-Desin¬ 
teresse ist, weshalb ich ihn etwas ge¬ 
nauer beschreiben möchte. Wenn Sie 
irgendeinen Text auf den Bildschirm 
ausgeben möchten, rufen Sie hierzu 
eine TOS-Funktion auf. In dieser 
wird geprüft, ob der derzeit verwen¬ 
dete Zeichensatz das gewünschte 
Zeichen enthält. Wenn ja, wird es 
dargestellt, die Cursorposition erhöht 
und evtl, der Bildschirminhalt nach 
oben gescrollt. Damit kann man 
schon ganz gut leben, bloß muß es 
auch Möglichkeiten geben, die Aus¬ 
gabe zu steuern (Bildschirm ganz 
oder teilweise löschen etc.). Für diese 


Aufgaben stellt der im TOS vorhan¬ 
dene VT52 Emulator die sog. ESC- 
Sequenzen zur Verfügung, d.h. durch 
das ASCII-Zeichen 27 eingeleitete 
Strings. Für den Emulator bedeutet 
dies, daß er dieses sowie die nachfol¬ 
genden Zeichen nicht einfach ausge¬ 
ben, sondern interpretieren soll. Dies 
wird so gelöst, daß die Ausgaberouti¬ 
ne des Betriebssystems nicht direkt 
angesprungen wird, sondern eben 
übereinen Vektor, der im Normalfall 
auf diese zeigt. Beim xVT52 Emula¬ 
tor heißt dieser Vektor VEC_BASE 
und enthält die Adresse der Standard- 
Ausgaberoutine STDJVEC. Sobald 
das ESC-Zeichen erkannt wird, wird 
der Vektor auf eine andere Routine 
(ESC_SEQ) umgebogen, die dann 
die gewünschte Funktion in Abhän¬ 
gigkeit des nächsten Zeichens akti¬ 
viert. Ohne den “Trick” mit dem 
Vektor wäre dies -wenn überhaupt- 
nicht so elegant zu lösen! 

In der nächsten Folge werde ich damit 
beginnen, die neu hinzugekommenen 
ESC-Sequenzen unter die Lupe zu 
nehmen und Ihnen erklären, warum 
die Textausgabe nun viel schneller 
geworden ist. Die Zwischenzeit kön¬ 
nen Sie ja mit dem Eintippen des 
ersten Teils des Listings über¬ 
brücken... 

MS 


21: 

add. 1 

28(a4),d7 ; 

+ BSS 

22: 

add. 1 

§ 256,61 

+ 256 

23: 

move.1 

61 , - (a7) ; 

- Anzahl zu reservierender Bytes 

24: 

25: 

clr. 1 

-(a7) 

SUPER ON 

26: 

move.w 

#$20 / -(a7) 


27: 

trap 

#1 


28: 

move.1 

d0 / 2(a7) 

alten SSP merken 

29: 

30: 

bsr 

INIT_CONOUT 

; Emulator initialisieren 

31: 

move.1 

VBLQUEUE, a0 

; '"VBL-Zeiger 

32: 

move.w 

NVBLS,d0 

; Anzahl der Routinen 

33: 

subq.w 

f 1, d0 

; in dbra-Zähler wandeln 

34: 

\test slot: 


35: 

tst. 1 

(a0) 

; Slot frei? 

36: 

beq. s 

\freeslot 

; ja 

37: 

addq.1 

#4, aO 

; sonst halt 

38: 

dbra 

d0, \test slot ; den nächsten Slot testen 

39: 

bra. s 

\noslot 

; kein freier Slot mehr?! 

40: 

\freeslot : 


(normal unmöglich) 

41: 

lea 

CRS_IRR,al 

; Cursor-Interrupt-Routine 


1: 

****** 

************ 

******************** 

2: 

* >EXTENDED VT52- 

TERMINAL EMULATOR< * 

3: 

4: 

* Entwickelt mit 

PROFIMAT-Assembler * 

5: 

* 

M.Schumacher, (p) 12/87 * 

6: 

****** 

******************************* 

/: 

8: LOGBASE 

equ $44E 

; Zeiger auf logischen Bildschirm 

9: VID_R0 

equ SFFFF8240 ; Video-Farbregister 0 

10: REGISTER 

equ d3-d7/a0/a3-a6 ;benötigte Register für 




Verschieberoutinen 

11: RESETCO 

equ INIT CONOUT ; Terminal-Initialisierungs- 




Routine 

12: NVBLS 

equ $454 ; 

Anzahl VBL-Routinen 

13: VBLQUEUE 

equ $456 ; 

Zeiger auf Zeiger auf VBL-Routinen 

14: 




15: 

text 



16: 




17: INSTALL: 



18: 

move.1 

4 (a7) , a4 

; A Basepage 

19: 

move.1 

12 (a4),d7 

; Länge TXT 

20: 

add. 1 

20(a 4),d7 

; +DTA 


126 JT 
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Hehl weiter... 
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42 

move.l 

al, (aO) 

; einbinden 





wenig! 

43 

\noslot: 




126 

: bsr 

SAVE REGS 

7 ansonsten Register retten 

44 

lea 

TRAPS,a4 

; A Speicher für Original-Trap- 


127 

: addq.w 

#4,a7 

/ (a7) = String-Pointer 




Händler 


128 

: move.l 

dl,- (a7) 

/ Anzahl auf Stack retten 

45 

move.1 

$84, (a4) + 

; alten GEMDOS-Vektor merken 


129 

: move.l 

4(a7),-(a7) 

i / String-Pointer auf Stack legen 

46 

lea 

GEMDOS,a2 

; und neuen 


130 

: \lp: 



47 

move.1 

a2,$84 

; installieren 


131 

: move.l 

(a7),a0 / String-Pointer holen 

48 

move.1 

$88, (a4) + 

; dasselbe mit GEM-Vektor 


132 

: addq.l 

#1,(a7) / auf nächstes Zeichen zeigen lassen 

49 

lea 

AES_VDI,a2 



133 

: move.b 

(a0),dl / Zeichen holen 

50 

move.l 

a2,$88 



134 

: and.w 

#$FF,dl / nur LSB beachten 

51 

move.1 

$B4, (a4) + 

; BlOS-Vektor 


135 

: move.w 

dl, - (a7) / 

Zeichen auf Stack legen 

52 

lea 

BIOS,a2 



136 

: bsr 

CON_OUT / 

und ausgeben 

53 

move.1 

a2,$B4 



137 

: addq.w 

#2,a7 

Stack korrigieren 

54 

move.1 

$B8, (a 4) 

; XBIOS-Vektor 


138 

: subq.l 

#1,4 (a7) / 

Anzahl Zeichen dekrementieren 

55 

lea 

XBIOS,a2 



139 

: bne.s 

\lp 

und nächstes Zeichen ausgeben 

56 

move.1 

a 2,$B8 



140 

: addq.l 

#8,a7 

Zähler und Pointer löschen 

57 





141 

: bra 

REST_REGS 

Z Register restaurieren und 

58 

trap 

#1 

; SUPER OFF 





zurückspringen 

59 

addq.1 

#6,a7 

; Stack aufräumen 


142 

\retour : 



60 





143 

rte 



61 

move.w 

#$31,-(a7) 

; KEEP PROCESS (hi zombie!) 


144 




62 

trap 

#1 

; auf Wiedersehen im GEMDOS 


145 




63 

********* 

************ 

********************* 


146 

AES_VDI: 



64 

;* G E M 

D O S / A E S+V DI/BIOS/* 


147 

cmpi.w 

#$73,dO 

VDI-Aufruf? 

65 

;* X B I 

OS- TRAPHANDLER 


148 

bne.s 

\orig 

nein, AES 

66 

.******************** 

********************* 


149 

move.l 

aO,- (a7) 

aO retten 

67 





150 

move.1 

dl, aO 

A ParameterBlock 

68 

SAVE_REGS 

: 

; Register retten 


151 

move.1 

(aO) , aO 

A Cont rlBlock 

69 

move.1 

(a7)+,dO 

; Rücksprungadresse retten 


152 

cmpi.w 

#5, (aO) 

VDI-ESC-Sequenz? (CONTRL(OJ) 

70 

lea 

SAVE_TOP, al 

; Al=Registerspeicher, 


153 

bne.s 

\op_close 

nein 




Obergrenze 


154 

lea 

10 (aO) ,a0 

A Unterfunktionsnummer (CONTRL[5] 

71 

move.w 

(a7)+,- (al) 

; save(SR) 


155 

cmpi.w 

#16, (aO) 

<16? 

72 

move.l 

(a7)+,- (al) 

; save(PC) 


156 

bmi. s 

\ok 

ja, eigene Routine ausführen 

73 

: movem.l 

d3-d7/a3-a7 

,-(al) /save(Register) 


157 

cmpi.w 

#101, (aO) 

VDI ESC 101? 

74 

lea 

2 (aO) ,a7 

/ SSP auf 1. Parameter setzen 


158 

beq.s 

\ok 

ja 

75 

move.l 

d0,- (a7) 

/ Rücksprungadresse zurück 


159 

cmpi.w 

#102, (aO) 

Font installieren? 

76 

rts 




160 

bne.s 

\fail / nein, dann Originalroutine benutzen 

77 





161 

\ok: 

; * 1 

** eigene Routinen ausführen *** 

78 

REST_REGS 

: 

/ Register zurückholen 


162 

lea 

VDI_TOP, aO 

Z ^Zwischenspeicher 

79 

lea 

SAVE_BOT, al 

/ Al=Registerspeicher, 


163 

move.l 

(a7)+,-(a0) 

Z alten Inhalt von aO retten 




Untergrenze 


164 

move.w 

(a7)+,-(a0) 

/ SR 

80 

movem.l 

(al)+,d3-d7/a3-a7 /Register zurück 


165 

move.1 

(a7)+,-(aO) 

/ PC 

81 

move.1 

(al)+,- (a7) 

/ PC zurück 


166 

movem.1 

d0-d7/al-a7,-(aO) /alle Register retten 

82 

move.w 

(al)+,- (a7) 

/ SR zurück 


167 

bsr 

VDI_ENTRY 

Z Routine ausführen 

83 

rte 


; zurück ins aufrufende Programm 


168 

lea 

VDI_BOT,aO 

Z ^Zwischenspeicher 

84 





169 

movem.1 

(aO)+,d0-d7/al-a7 /Register wieder zurück 

85 

SAVE_BOT: 


/ Untergrenze Zwischenspeicher 


170 

move.l 

(a0)+,-(a7) 

7 PC, 

86 

ds. w 

23, 0 

/ Platz für Register, PC und SR 


171 

move.w 

(aO)+,- (a7) 

Z SR und 

87 

SAVE_TOP: 


/ Obergrenze Zwischenspeicher 


172 

move.1 

(aO) +, aO 

/ aO restaurieren. 

88 





173 

rte 


,* Exception beenden 

89 





174 

\fail: 



90 

GEMDOS: 




175 

move.1 

(a7)+,aO 

Z aO restaurieren 

91 

movea.1 

a7,a0 ; 

r A0-SSP/ 


176 

\orig: 



92 

btst 

#5, (aO) ; 

r if (Aufruf aus S-Mode) 


177 

move.1 

TRAPS+4, -(a7) / Originaladresse AES/VDI 

93 

beq.s 

\from user 



178 

rts 


Z benutzen 

94 

addq.1 

# 6, aO ; 

r then Offset addieren 


179 

\op_close 



95 

bra. s 

\test_pline 

/ (PC.L+SR.W) 


180 

cmpi.w 

#100, (aO) 

Z OpenVirtualScreenWorkstation? 

96 

\from_user: 



181 

bne. s 

\close 

Z nein 

97 

move.1 

USP,aO 

eise User Stack benutzen/ 


182 

lea 

TCB, aO 

Z A TerminalControlBlock 

98 

\test_pline: 



183 

clr. 1 

(aO) 

Z Zeile und Spalte auf 0 

99 

cmpi.w 

#9, (aO) 

if (Funktion — PRINT LINE) 


184 

bra. s 

\fail 

/ zusätzlich Originalroutine 

100 

beq. s 

\pline 

then eigene Funktion benutzen 





ausführen 

101 

cmpi.w 

#64, (aO) 

eise if (Funktion « WRITE) 


185 

\close: 



102 

beq. s 

\write 

then auf Ausgabe-Kanal prüfen 


186 

cmpi.w 

#101, (aO) 

,* CloseVirtualScreenWorkstation? 

103 

cmpi.w 

#2, (aO) 

eise if (Funktion — CCONOUT) 


187 

bne.s 

\clear 

Z nein 

104 

beq.s 

\cconout 

then eigene Funktion benutzen 


188 

lea 

CCB,aO 

Z A CursorControlBlock 

105 

cmpi.w 

#6, (aO) 

eise if (Funktion != CRAWIO) 


189 

bclr 

#3, (aO) 

Z Cursor abschalten 

106 

bne. s 

\orig 

then Originalroutine rufen 


190 

bra. s 

\ fall 

Z und Originalroutine ausführen 

107 

cmpi.b 

#-1,3(aO) 

eise if (Zeichen — 255) 


191 

\clear: 



108 

beq. s 

\orig 

then Original aufrufen 


192 

cmpi.w 

#3, (aO) 

,* ClearWorkstation? 

109 

\cconout : 




193 

bne.s 

\fail 

Z nein 

110 

bsr 

SAVE_REGS 

Register retten 


194 

movem.1 

d0-d7/al-a5 

,- (al) / Register retten 

111 

bsr 

CONJDUT 

Zeichen ausgeben 


195 

lea 

TCB, aO 

Z A TerminalControlBlock 

112 

bra 

REST_REGS 

Register zurück, fertig 


196 

bsr 

CLS 

Z Bildschirm löschen 

113 

\pline: 




197 

movem.1 

(a7)+,d0-d7/al-a5 / Register zurück 

114 

bsr 

SAVE_REGS* 

Register retten 


198 

bra. s 

\fail 

/ zusätzlich Original- 

115 

bsr 

WRITE 

String ausgeben 


199 



Z routine ausführen 

116 

bra 

REST_REGS 

Register zurück, fertig 


200 

VDI_BOT: 



117 

\orig: 




201 

ds. w 

35,0 

Z Platz für d0-a7, SR & PC 

118 

move.1 

TRAPS,aO 

eise Originalroutine 


202 

VDI_TOP: 



119 

jmp 

(aO) 

benutzen 


203 




120 

\write: 




204 




121 

cmpi.w 

#1,2 (aO) 

Ausgabe auf CON:? 


205 

BIOS: 



122 

bne.s 

\orig 

nein, harn wa nix mit zu tun 


206 

movea.1 

al, aO 

Z A0=SSP/ 

123 

addq.w 

#2, aO 

sonst Anzahl auszugebender 


207 

btst 

#5, (aO) 

Z if (Aufruf aus S-Mode) 

124 

move.l 

2 (aO) ,dl 

Zeichen holen 


208 

beq.s 

\from user 


125 

beq.s 

\retour 

kein Zeichen ist definitiv zu 


209 

addq.1 

#6, aO 

Z then Offset addieren 


gellt wahr 
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127 
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210: 

bra. s 

\test_wr_asc 

211: 

\from user: 

212: 

move. 1 

USP,aO 

213: 

\test wr asc: 

214: 

empi.w 

#12, (aO) 

215: 

bne. s 

\test bconout 

216: 

bsr 

SAVE_REGS 

217: 

bsr 

WRITE_ASC 

218: 

bra 

REST_REGS 

219: 

\test bconout: 

220: 

empi.w 

#3, (aO) 

221: 

beq. s 

\test_dev 

222: 

\orig bios: 

223: 

move.1 

TRAPS + 8, - (a7) 

224: 

rt s 


225: 

\test dev: 


226: 

addq.w 

#2, aO 

227: 

empi.w 

#2, (aO) 

228: 

bne. s 

\test_dev_vid ; 

229: 

bsr 

SAVE_REGS 

230: 

bsr 

CON_OUT 

231: 

bra 

REST_REGS 

232: 

\test dev 

_vid: 

233: 

empi.w 

#5,(aO) 

234 : 

bne. s 

\orig_bios ; 

235: 

bsr 

SAVE_REGS 

236: 

bsr 

ASC_OUT 

237: 

bra 

REST_REGS 

238: 



239: 



240: 

XBIOS: 


241: 

movea.1 

a7,a0 ; 

242: 

btst 

#5, (aO) 

243: 

beq. s 

\from user 

244 : 

addq.1 

# 6, aO 

245: 

bra. s 

\test_cursconf 

246: 

\from user: 

247: 

move.1 

USP,aO 

248: 

\test cursconf: 

249: 

empi.w 

#21, (aO) 

250: 

beq. s 

\cursconf ; 

251: 

empi.w 

#100,(aO) 

252: 

beq. s 

\init 

253: 

move.1 

TRAPS+12,-(a7) 

254 : 

rt s 


255: 

\cursconf 


256: 

bsr 

SAVE_REGS 

257: 

bsr 

CURSCONF 

258: 

bra 

REST_REGS 

259: 

\init : 


260: 

bsr 

SAVE_REGS 

261: 

bsr. s 

INIT_CONOUT ; 

262: 

bra 

REST_REGS 

263: 



264: 



265: 

• ******** 

*************** 

266: 

;* NEUE 

ROUTINEN FÜR 

267: 

. ******** 

*************** 

268: 



269: 

INIT CONOUT: ,* ES 

270: 

dc.w 

$A000 ; Li 

271: 

lea 

TCB,a2 ; Te 



in 

272: 

move.1 

4 (al) ,a4 

273: 

move.1 

$4C (a4),28(a2) 

274 : 

move. 1 

8(al),a4 

275: 

move.1 

$4C(a4),a4 

276: 

move.1 

a4,24 (a2) 

277: 

move.1 

a4,32 (a2) 

278: 

move.1 

#$4fOOl8,4 (a2) 

279: 

move.b 

#2,8 (a2) 

280: 

clr. w 

10 (a2) 

281: 

move.1 

#$100500,36(a2 

282: 



283: 

lea 

LINE_A,a2 

284: 

move. 1 

aO, (a2) 

285: 




(PC.L+SR.W) 

eise User Stack benutzen; 

if (Funktion I» WRITE_ASC) 
then auf BCONOUT testen 
eise { Register retten; 
String ausgeben; 

Register zurück; beenden } 

if (Funktion == BCONOUT) 
then auf Ausgabegerät 
testen 

eise Originalrout ine benutzen 


Zeiger auf Gerätenummer 
setzen 

if (Ausgabegerät != Console) 
then auf ASCII-Ausgabe 
testen 

eise { Register retten; 

Zeichen ausgeben; 

Register zurück; beenden } 

if (!ASCII_Ausgabe) 

then Originalroutine benutzen 

eise { Register retten; 

Zeichen ausgeben; 

Register zurück; beenden ) 


A0=SSP; 

if (Aufruf aus S-Mode) 

then Offset addieren (PC.L+SR.W) 


eise User Stack benutzen; 

if (Funktion == CURSCONF) 
then eigene Funktion benutzen 
eise if (Funktion 
== INIT_SCREEN) 
then Bildschirmausgabe 
initialisieren 
; eise Originalroutine 
benutzen 


Register retten 

eigene Routine ansto_en 

Register zurück, beenden 

Register retten 
Ausgabe initialisieren 
Register zurück, beenden 


VT52 UND 


************* 

VDI-ESCAPES 


'i', Terminal initialisi 
A-Pointer holen 
Lna 1Control Block 
Lalisieren 
A 8 *8-Font 

A Fontdaten speichern 
A 8 *16-Font 
A Fontdaten 
speichern 
und 8x16 zum aktuellen Font 
machen 

max.Spalte=79, max.Zeile=24 
; Wrapping ein-, inverse 
Darstellung ausschalten 
; keine Cursor-Position 
gespeichert (ESC 'j') 

; Zeichenhöhe 16 Pixels, 
16*80 Bytes/Textzeile 

; Line-A Adresse 
; merken 


286: 

lea 

VEC_BASE,a2 

; Ausgabevektor initialisieren 

287: 

lea 

STD_VEC,a3 

; A Standardausgabe 

288: 

move.1 

a3, (a2) 

; als Default übernehmen 

289: 




290: 

lea 

CCB,a4 

; CursorControlBlock 
initialisieren 

291: 

move.w 

#$200, (a4) 

; Cursor ausschalten. 




Blinkmodus wählen 

292: 

move.l 

#$140014,2 (a4) ; Blinkrate und -Zähler auf 




20 stellen 

293: 

move.1 

LOGBASE,6(a4) ; abs. Cursorposition auf 




Bildschirm-Anfang 

294: 




295: 

lea 

BEL_ADR,aO 

; A Speicher für Adresse 
Gong-Routine 

296: 

move.1 

#$FC201C, dO 

; TOS-Adresse (Version vom 
06.02.1986) 

297: 

empi.w 

#$1986,$FC001A ; "altes" TOS? 

298: 

beq. s 

\old_tos 

; ja 

299: 

move.l 

# $FC2270,dO 

; sonst Blitter-TOS-Adresse 




nehmen 

300: 

\old_tos: 



301: 

move.1 

dO, (aO) 

; Vektor installieren 

302: 




303: 

lea 

fCB,aO 

; A TerminalControlBlock 

304: 

bsr 

CLS 

; Bildschirm löschen+Home 

305: 

bsr 

DEF_TABS 

; Tabulatoren auf default 

setzen 



306: 

bra 

UPDATE_END 

; Cursor freigeben und zurück 

307: 




308: 




309: 

CRS_IRR: 


r Cursor-Interruptroutine 

310: 

move.1 

$88,dl 

; derzeit aktive AES/VDI-Adresse 

311: 

lea 

AES_VDI,aO j 

r eigenen Trap-Handler neu 
installieren 

312: 

move.1 

aO,$88 

AES/VDI überlisten (grins) 

313: 

cmp. 1 

aO, dl 

hat sich Adresse geändert? 

314: 

bne 

UPDATE_CRS 

dann Cursor abschalten 

315: 

lea 

CCB,a4 

A CursorControlBlock 

316: 

btst 

#3, (a4) 

Cursor eingeschaltet? 

317: 

beq.s 

\irr_end 

nein, fertig 

318: 

btst 

#0, (a4) 

wird gerade Text ausgegeben? 

319: 

beq.s 

\irr_end 

ja, dann nicht stören 

320: 

btst 

#1, (a4) 

Blinken eingeschaltet? 

321: 

bne. s 

\blink 

ja 

322: 

btst 

#2, (a4) 

Cursorposition schon 
invertiert? 

323 

bne. s 

\irr_end , 

; ja, nicht mehr invertieren 

324 

\inv: 



325 

bsr 

CUR_INV ; 

: Cursorposition invertieren 

326 

\irr_end: 



327 

rt s 


: zurück zum IR-Slot-Handler 

328 

\blink: 



329 

subq.w 

#1,4 (a4) 

; Blinkzähler - 

330 

bne.s 

\irr_end 

; noch nicht 0, fertig 

331 

move .w 

2 (a4) , 4 (a4) 

; sonst Zähler neu laden 

332 

bra. s 

\inv 

; invertieren und zurück 

333 




334 




335 

CURSCONF: 


; XBIOS(21) 

336 

bsr 

UPDATE_CRS 

; Cursor abschalten 

337 

move.w 

4 (a7) , dl 

; Funktionsnummer holen 

338 

bne.s 

\fl 

; nicht 0 

339 

bclr 

#3, (a4) 

; Cursor ausschalten 

340 

bra .s 

Xzurück 

; fertig 

341 

\fl: 



342 

empi.w 

# 1, dl 

; Fkt.-Nr. 1? 

343 

bne.s 

\f 2 

; nein 

344 

bset 

#3, (a4) 

; Cursor einschalten 

345 

bra ,s 

Xzurück 


346 

\f2: 



347 

empi.w 

#2,dl 

; Fkt.-Nr. 2? 

348 

bne.s 

\f 3 

; nein 

349 

bset 

#1, (a4) 

; Cursor in Blinkmodus versetzen 

350 

bra. s 

Xzurück 


351 

\ f 3: 



352 

empi.w 

#3,dl 

; Fkt.-Nr. 3? 

353 

bne.s 

\f 4 

; nein 

354 

bclr 

#1, (a4) 

; Blinkmodus ausschalten 

355 

bra. s 

\zurück 


356 

\f4: 



357 

empi.w 

#4,dl 

; Fkt.-Nr. 4? 

358 

bne.s 

\f 5 

; nein 

359 

move.w 

6(a7),2(a4) 

; Blinkrate setzen 

360 

move.w 

6(a7),4(a4) 

; Zähler initialisieren 

361 

bra. s 

Xzurück 


362 

\f 5: 




y<7// weiter.. 
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GRUNDLAGEN 


438: 




439: 

CTRL: 

de. w 0 

; Glocke 

440: 


de.w BS-BEL 

; Backspace 

441: 


dc.w TAB-BEL ; Tabulator 

442: 


dc.w LF-BEL 

; Zeilenvorschub 

443: 


dc.w LF-BEL 

; Vertikaltabulator (wie 




Zeilenvorschub) 

444: 


dc.w LF-BEL 

; Formularvorschub (wie 




Zeilenvorschub) 

445: 


dc.w CR-BEL 

; Wagenrücklauf 

446: 




447: 




448: 

UPDATE CRS: ; Cursor für Textausgabe 



ausschalten 

449 

lea 

CCB,a4 ; "CursorControlBlock 

450 

bclr 

#0, (a4) ; disable Cursor 

451 

btst 

#2, (a4) ; Cursor sichtbar? 

452 

beq.s 

\return ; nein 

453 

bra 

CUR_INV ; sonst Cursorposition invertieren 

454 

\return: 



455 

rts 



456 




457 

UPDATE END: 

Cursor wieder freigeben 

458 

lea 

TCB,aO 

"TerminalControlBlock 

459 

move.1 

LOGBASE, al 

"Video-RAM 

460 

move.w 

38 (aO) ,d0 

Bytes/Textzeile 

461 

mulu 

2(aO),d0 

* akt. Zeile 

462 

adda.1 

dO, al 

+ Bildschirm-Anfang 

463 

adda.w 

(aO),al 

+ akt. Spalte 

464 

move.1 

al,6 (a4) 

- abs. Cursorposition 

465 

bset 

#0, (a4) 

enable Cursor 

466 

rts 



467 




468 




469 

ESC_SEQ: 


; Esc-Sequenz verarbeiten; 




Einsprung mit: 

470: 



r dO.w = Steuerzeichen; 




al - "VEC_BASE 

471: 

: lea 

VEC_BASE,al j 

; Ausgabe-Vektor 

472: 

: lea 

STD_VEC,aO ; 

• wieder auf die normale 




Ausgabe biegen 

473: 

: move.l 

aO, (al) 

; umschalten 

474: 

: subi.w 

#"A",dO 

; Offset abziehen 

475: 

: bmi.s 

\esc_fail 

; zu klein, ungültig 

476: 

: cmpi.w 

#"Z"-"A",d0 

; <="Z"? 

477: 

: ble.s 

\esc_big 

; ja, entsprechende Routine 




ausführen 

478: 

: bra.s 

\esc_sml 

; sonst auf Kleinbuchstaben 




testen 

479: 

: \esc fall: 



480: 

: rts 



481: 

: \esc_big: 



482: 

: bsr.s 

UPDATE_CRS 

; Cursor ausschalten 

483: 

: lea 

CRS UP, al 

; Adresse der 1. Routine 

484: 

: add.w 

dO, dO 

; Zeichen als Wort-Offset 

485: 

: lea 

E BIG,a2 

; Adress-Tabelle 

486: 

: move.w 

0 (a2,dO.w),a2 ; Adress-Offset holen 

487: 

: adda.l 

al, a2 

; +1. Routine 

488: 

: lea 

TCB,aO 

; "TerminalControlBlock 

489: 

: jsr 

(a2) 

; Routine ausführen 

490: 

: bsr.s 

UPDATE_END 

; Cursor wieder ein 

491: 

: rts 


; fertig 

492: 

: \esc_sml: 



493: 

: subi.w 

#"a"-"A",d0 

; Offset für Kleinbuchstaben 




abziehen 

494: 

: bmi.s 

\esc_fail 

; <"a", ignorieren 

495: 

: cmpi.w 

«"z"-"a",dO 

; >"z"? 

496: 

: bgt.s 

\esc_fai 1 

; ja, ignorieren 

497: 

: bsr 

UPDATE_CRS 

; Cursor ausschalten 

498: 

: lea 

SET_COLOR,al 

; Adresse der 1. Routine 

499: 

: add.w 

dO, dO 

; Zeichen als Wort-Offset 

500: 

: lea 

E SML,a2 

; "Adress-Tabelle 

501: 

: move.w 

0 (a2,dO.w),a2 ; Adress-Offset holen 

502: 

: adda.1 

al, a2 

; + 1. Routine 

503: 

: lea 

TCB,aO 

; "TerminalControlBlock 

504: 

: jsr 

(a2) 

; Routine ausführen 

505: 

: bsr 

UPDATE_END 

; Cursor einschalten 

506: 

rts 


; fertig 


363: 

cmpi.w 

15,dl ; Fkt.-Nr. 5? 

364 : 

bne. s 

Nzurück ; nein, ignorieren 

365: 

clr. 1 

dO ; dO.L wegen Wortoperation löschen 

366: 

move.w 

2(a4),d0 ; Blinkrate holen 

367: 

Nzurück: 



368: 

move.1 

dO,- (a7) 

Rückgaberegister retten 

369: 

bsr 

UPDATE END ; 

Cursor wieder freigeben 

370: 

move.1 

(a7)+,d0 

Register zurück 

371: 

rts 



372: 




373: 




374: 

WRITE ASC 


: String ausgeben (ohne 




Steuerzeichen) 

375: 

move.1 

4 (a7) , a6 ; 

r "Ausgabestring 

376: 

\lp: 



377: 

move.b 

(a6)+,d0 

r auszugebendes Byte holen 

378: 

beq. s 

\ende j 

: falls 0: fertig 

379: 

bsr. s 

ASC ENTRY ; 

■ ausgeben 

380: 

bra. s 

\lp 

bis String-Ende 

381 

\ende: 



382: 

rts 



383: 




384- 

ASC OUT: 

; DIREKTE ZEICHENAUSGABE(OxOO-OxFF) 

385 

move.w 

4(a7),d0 ; Zeichen holen 

386 

ASC ENTRY 



387 

andi.w 

#$FF,d0 ; nur Byte beachten 

388 

bra 

PUT ; und ausgeben 

389 




390 




391 

WRITE: 

; String ausgeben 



(mit Steuerzeichen) 

392 

move.1 

4(a7),a6 ; "Ausgabestring 

393 

\lp: 



394 

move.b 

(a6)+,dl ; auszugebendes Byte holen 

395 

bne.s 

\aus ; ausgeben, falls<>0 

396 

lea 

TCB+9,aO ; "Grafik-Flag 

397 

tst .b 

(aO) ; Grafik eingeschaltet? 

398 

beq.s 

\ende ; nein, fertig 

399 

\aus: 



400 

move.b 

dl,d0 ; Zeichen ausgeben 

401 

bsr. s 

CON ENTRY 


402 

bra.s 

\lp ; bis String-Ende 

403 

\ende: 



404 

rts 



405 




406 

CON_OUT: 


; AUSGABE MIT STEUERZEICHEN 

4 07 

move.w 

4(a7),dO 

; Zeichen holen 

408 

CON_ENTRY 



409 

andi.w 

f$FF,dO 

; LSB isolieren 

410 

lea 

VEC_BASE,al 

; "Vektor 

411 

move.1 

(al),aO 

; Vektor holen 

412 

jmp 

(aO) 

; und anspringen 

413 




414 




415 

STCrVEC: 



416 

cmpi.w 

#~ *',d0 ; 

Zeichen < Blank? 

417 

bpi 

PUT 

nein, ausgeben 

418 

empi.w 

I$1B,dO 

ESC? 

419 

bne. s 

\control ; 

nei n 

4 20 

lea 

ESC_SEQ, aO ; 

"ESC-Handler 

421 

move.1 

aO, (al) 

als Vektor für nächstes 




Zeichen merken 

422: 

: \return: 



423: 

: rts 


r fertig 

424: 

: \control: 



425: 

: subq.w 

17,dO 

<7? 

426: 

: bmi.s 

\return 

wenn ja, dann nicht beachten 

427: 

: cmpi.w 

#7, dO 

>13? 

428: 

: bpl.s 

\return 

ja: Ausgabe unterdrücken 

429: 

: lea 

BEL,al 

"dingelingeling 

430: 

add.w 

dO, dO 

Zeichenoffset in Word-Pointer 




umwandeln 

431: 

move.w 

CTRL(PC,dO.w) , 

,a2 ; entsprechenden Vektor 

432: 

: add.l 

a 1, a 2 

; +Offset 1. Routine 

433: 

lea 

TCB,aO 

; "TerminalControlBlock 

434: 

: bsr.s 

UPDATE_CRS 

; Cursor abschalten 

435: 

: jsr 

(a2) 

; ausführen 

436: 

bra.s 

UPDATE_END 

; Cursor wieder einschalten 

437: 
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/ ST-ADDRESS 

die schnellste Dateiverwaltung für den ATARI-ST 

zur professionellen Kunden-, Mitglieder-, Artikel-, Dokumenten-Verwaltung 


• läuft als Accessory im Hintergrund; 
volle GEM-Einbindung 

• dank Assembler-Programmierung und Steckmodul- 
Technik extrem schnell: 

— Scrollen: 52 Zeilen pro Sekunde 
— Suchen: aus 6000 Datensätzen in 1 Sek. 

— Sortieren: 6000 Datensätze in 7,5 Sek. 

• freie Gestaltung der Datenfelder sowie der Bild¬ 
schirmmasken, Etiketten und Listenausdrucke 

• kann bis zu 6 Dateien gleichzeitig verwalten, und 
zwar je nach Hauptspeicher- und Laufwerks-Größe 
7000 bis 40000 Datensätze 

• Suchfunktion mit vielfältigen Selektionskriterien; 
Sortierfunktion auf alle Felder anwendbar 

V___ 


• lmport-/Export-Funktion mit Zugriff auf alle 
Laufwerke und Schnittstellen 

• automatisches Anwählen von Telefon/Telex/Telefax 
über Modem möglich 

• in Verbindung mit Textprogrammen 
(IST-WORD/IST-MAIL, WordPerfect u. a.) 
automatische Serienbrieferstellung; 
Programmierschnittstelle 

• für alle ATARI ST 

DM 148," inkl. MwSt. 

Bei Vorkasse (Scheck) keine Versandkosten; 

Demo-Diskette mit Handbuch DM 10,- 

Komplettes Programm für 14 Tage zum Testen DM 20,- 

_ / 


VICTOR KG SOFTWARE-ENTWICKLUNG 

Postfach 1510 - D-2058 Lauenburg - Tel.(04153)52323 


Victors®^ 


_ v—7 /MSS/ 

Der Partner für Handwerk- und Megamax C/ Megamax Modula 2.je 369,- 

Kleinbetriebe. Preiswerte und n?a«Pin° mp ' ler . ie ? qr_ 

Hardware-Software Systemlösungen 
Harmel-Scollar & Schmithals GbR 

Darmstädter Str. 20 5000 Köln 1 • S 0221/316207 

maßgeschneiderte EDV-Systeme pcb Platinen Layout. 1 89,’- 

durch unsere unabhängige i! ad , ( .5 ei . che 25 rmi,3DTeil) .!^ r 

^ StarWriterSt.189,- 

Beratung. Signum ll.369,- 

Bavaria Soft Hanriwerkspaket ??98 — Tempus 2.0.95.— 

Ihr Spezialist für ATARI Computer 

Planung... Anpassungen... Schulung... Service 

Versandbedingungen: Preise incl. Versandkosten (Scheck), 
bei Nachnahme zuzügl. DM 5.-, alle Preise für Atari St-Version. 

BS-Handel.898- 1 st Word Plus/Adimens ST /Talk.je 189,- 

Prodata fibuMANe.389,- Harddisk Utility (Harddisk Backup).49,— 

Cash Soft T.I.M.(Fibu).259 - Vortex HDPLÜS 20/30.1168,-/1348- 

Cash Flow (Kassenbuch).259,— und ... und ... und ... 

Depot (Faktura).479,- Preisliste anfordern 


= 400 PD-DISKETTEN =” 


— weit mehr als 200 PD-Siele! — alle Disketten aus der ST — Software für Erwachsene 

— Gratis- und 99 Pfennig-Aktion — viele Demos von Progi-Programmen — schnellste Bearbeitung (postwendend) 

— super-günstige Paketpreise — PRG frei zusammenstellbar — u.v.m. ...überzeugen Sie sich! 


Spiele: 

— Formel I Grand Prix. 66,90 DM 

— Bubble Bobble 69,90 DM 

— Star Trek. 69,90 DM 

— Western Games. 69,90 DM 

— Winter Olympiade 88 . 69.90 DM 

— Enduro Racer. 49,90 DM 

— Wizball. 64,90 DM 

— Rampage. 49,90 DM 

— Superstar Ice Hockey. 79,90 DM 

— California Games. 79,90 DM 


Anwendungsprogramme: 

— Steve 319,90 DM 

— Pro Sound Designer 139,90 DM 

— Adimens ST. 189,90 DM 

— Aditalk ST 174,90 DM 

— STAD B2.0 149,90 DM 

— Publishing Partner ST 239,00 DM 

— GfA Monostar plus. 139,90 DM 

— Art Director 89,90 DM 

— Film Director 89.90 DM 

— BECKERtext 179,90 DM 


Hardware: 

— PAL Interface III. 189.90 DM 

— G Scanner. 289,00 DM 

— AS Sound Sampler II 244,90 DM 

— A-Magic Turbo Dizer 269,00 DM 

— Diskettenbox 2-reihig. 19,90 DM 

— Quick Shot Turbo. 24,90 DM 

— Padercomp FL I. 369,00 DM 

— Monitorumschaltung. 39,90 DM 

— Turbo-Digitizer. 349,00 DM 

— Eprom-Programmiergerät 239,90 DM 


Weitere Programme und Zubehör finden Sie in unserem Gratiskatalog. Deshalb heute noch anfordern bei: 

Computer-Software Ralf Markert ■ Baibachtalstraße 71 ■ 6970 Lauda ■ Telefon (0 93 43) 82 69 

PS. Wer seinem Schreiben 10,— DM (Scheck oder Schein) beilegt erhält 10 starke PD-Spiele auf eine Markendiskette! 
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In der diesmaligen Folge unserer 
Programmierpraxis geht es wieder 
voll durch alle Sprachen durch. 
Alle ist natürlich etwas übertrie¬ 
ben, aber für die Freunde von C, 
Assembler und BASIC ist diesmal 

etwas dabei. 



Mit Bug-Alert lassen sich Fehler in 
GEM-Programmen entfernen, an die 
man sich sonst nur mühsam über 
printf- oder scanf-Aufrufe heranta¬ 
sten konnte. Man kann sich nun mit¬ 
tels einer Alert-Box durch das fehler¬ 
hafte Programm tracen. 

“Hergehört”, heißt es, wenn die Dis¬ 
kette, die soeben ins Laufwerk ge¬ 
schoben wurde, nicht schreibge¬ 
schützt ist. Mit diesem kleinen Pro¬ 
gramm im Auto-Ordner wird es wirk¬ 
lich schwer, aus Versehen irgendeine 
Datei zu löschen. 

Fractals dürften den meisten Leuten 
ein Begriff sein. Wie man sie pro¬ 
grammiert und dann die hübschen 
Apfelmännchen, Mandelbrot- und 
Julia-Mengen erhält, wird hier be¬ 
schrieben. 


INHALT 


Bug-Alert „ . 

- Ein Mini-Tool zum Entwanzen 
von C-Programmen unter GEM 

C.Seite 132 

Disk schreibgeschützt ? 

- Ihr ST warnt Sie, wenn nicht. 
ASSEMBLER, 

BASIC.Seite 137 

Reise ins Chaos 

- Fractals 

GFA-BAS1C.Seite 139 
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BUG ALERT 

ein Mini-Tool zum Entwarnen von 
C-Programmen unter GEM 


Die Sprache C läßt dem Programmierer bei der 
Arbeit viel Freiheit - leider auch die Freiheit, 
Fehler zu machen. Ein großer Anteil der Pro¬ 
grammierarbeit besteht so in der Fehlersuche. 
Arbeitet man mit einem Compiler, der über die 
normale Syntax-Prüfung hinaus wenig Unter¬ 
stützung bei der Fehlersuche bietet, ist man dar¬ 
auf angewiesen, sich mit Hilfe von ‘printf’- und 
‘scanf’- Aufrufen, mühselig an den Fehler heran¬ 
zutasten. 


x funktionO 


Sehr problematisch wird diese 
Methode aber, wenn man un¬ 
ter GEM programmiert. Die 
eingestreuten printf-Befehle 
bringen den ‘Schreibtisch’ 
heillos durcheinander, und 
man tappt dann mit der Maus 
auf einem weißen Monitor 
herum, um die Programmknö¬ 
pfe zu finden! 

Nachdem mir diese Methode 
mehrfach die ganze Menülei¬ 
ste zerstört hatte, überlegte ich mir, 
daß es wohl sinnvoller sei, den Pro¬ 
blemen eines GEM-Programms mit 
den Mitteln zu begegnen, die GEM 
zur Verfügung stellt, nämlich den 
Dialogboxen. Diese haben ja den 
Sinn, dem Programmbenutzer Infor¬ 
mationen über den augenblicklichen 
Zustand des Programms zu übermit¬ 
teln (Helptexte, Fehlermeldungen). 
Anfangs verstreute ich die Alertbo¬ 
xen in der Nähe des vermuteten 
Fehlers direkt im Programm und ent¬ 
fernte sie nach dem Auffinden des 
Fehlers wieder. Als ich aber dann in 
einem besonders vertrackten Modul 
die Alertboxen mehrfach eingesetzt 
und wieder abgeräumt hatte, kam mir 
die Idee, sie doch zunächst einmal im 
Programm zu lassen und über eine 
globale Boolsche Variable ‘tr’ einen 
Trace - Modus zu simulieren. 

Im kritischen Programmbereich ha¬ 
ben die Funktionen dann folgendes 
Aussehen: 


{ 

if (tr) gprintf("x_funktion"); ... 


} 

oder: 

x_funktion(argl,arg2) 
int argl; 
float arg2; 

{ 

if (tr) gprintf("x_funktion|argl = 
%darg2 = %2f", argl, arg2) 


} 

Die Funktion meldet sich dann bei 
eingeschaltetem Trace-Modus mit: 

Alertbox 1 


x_funktion 
argl = 1 
arg2 = 2 

1 ABBRUCH I I TROFF I I OK I 


Bei diesem Vorgehen ist nach dem 
ersten Durchlauf klar, in welcher 
Funktion der Wurm steckt. Eine ge¬ 
naue Überprüfung dieser Funktion 
nach folgender Checkliste führt oft 
schon an dieser Stelle zum Finden des 
Fehlers: 


1. Werden die GEM- 
Funktionen mit der 
richtigen Zahl von Para¬ 
metern aufgerufen ?? 

2. Stimmen die Typen der 
übergebenen Parameter 
mit den von der Funktion 
erwarteten überein ?? 

3. Semikolon hinter ‘for\ 
’while’ oder ‘if’ - Klam¬ 
mer ?? 

4. Zuweisungsoperator *=’ wo ei¬ 
gentlich ‘==’ stehen sollte ? 

5. Hat sich ein Zeichen (z.B. *;’) 
ganz weit an den rechten Rand 
des Listings verirrt, so daß es 
beim normalen Durchscrollen 
des Quelltextes nicht zu 
erkennen ist?? 

Falls die Überprüfung dieser fünf 
Punkte keinen Erfolg bringt, sollte 
man sich als nächstes die folgenden 
Fragen vorlegen: 

6. Sind alle Pointer richtig 
initialisiert ? 

7. Sind alle Datenstrukturen richtig 
initialisiert ? 

Zur Beantwortung dieser Fragen bie¬ 
ten sich nun die Funktionen an, um 
die es in diesem Artikel geht: ‘gprintf’ 
und ‘dump’: 

Mit gprintf kann man sich den jeweils 
aktuellen Wert der Variablen in je¬ 
dem Format ausdrucken lassen, das 
vom normalen ‘printf’-Befehl er¬ 
zeugt werden kann - dump erzeugt 
einen Hex-Dump von 4 mal 8 Bytes 
ab der angegebenen Speicheradresse. 
Den Aufruf dieser Funktionen macht 
man nun besser nicht von ‘tr’ abhän¬ 
gig, denn da man zu diesem Zeitpunkt 
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die Lage des Fehlers kennt, wäre es 
sinnlose Zeitvergeudung, sich im 
Trace-Modus bis zur fraglichen 
Funktion durchzuklicken! 
Angenommen ‘gprintf oder "dump’ 
zeigen für einen Pointer den Wert 
Null an. Nun ist es natürlich sinnvoll, 
das Programm an dieser Stelle zu 
unterbrechen - denn ein Nullpointer 
in Aktion macht den Griff zum Reset¬ 
knopf unausweichlich. - Und wenn 
auch die benutzte Ramdisk resetfest 
ist, der Zeitverlust gegenüber einem 
geordneten Programmabbruch ist 
doch erheblich: Abfragedialog, ob 
Ramdisk so bleiben soll. Wiederauf¬ 
bau des Desktops, Anzeige der Direc- 
tories, Neustarten der Shell., also es 
ist schon sinnvoll zu programmieren: 

x_funktion() 

{ 

int var; 

if (!gprintf("var = %d" / var)) 
return; 

} 

Falls ein Fehler behoben ist, kann 
man sich dann durch Anklicken von 
‘TRON’ zum nächsten Fehler durch¬ 
klicken!! 

Beschreibung der 

Funktionen 

/**************************/ 

/* gprintf() */ 

/**************************/ 

Die Funktion ‘gprintf entspricht 
weitgehend der normalen ‘printf’- 
Funktion. Nur daß die Ausgabe nicht 
auf dem vollen Bildschirm, sondern 
in kleinen Alertboxen mit je fünf 
Zeilen zu dreißig ASCII-Zeichen 
erfolgt.Es ist daher klar, daß Steuer¬ 
zeichen im Formatstring und in Aus¬ 
gabestrings nur mit Vorsicht zu ver¬ 
wenden sind. 

Ist im Formatstring kein Zeilen¬ 
sprungzeichen ‘\n’ vorhanden, über¬ 
nimmt gprintf automatisch die Zei¬ 
lenverteilung und zwar so, daß nach 
jeder Ausgabe eines Variablenwerts 
eine neue Zeile angefangen wird. - Ist 
der Ausgabestring einer Variablen 
länger als.30 Zeichen, wird nach dem 
30. Zeichen automatisch eine neue 
Zeile angefangen - andernfalls würde 


die Funktion form_alert Bomben er¬ 
zeugen. 

Hat man aber im Formatstring ein 
einziges ‘\n’ - Zeichen verwendet, ist 
man für die Verteilung auf die Zeilen 
selbst verantwortlich!! gprintf sorgt 
jetzt nur noch für den Zeilenwechsel 
nach dem 30. Zeichen. - Diese Be¬ 
triebsweise von gprintf ermöglicht es 
zum Beispiel, mehr als eine Variable 
in eine Zeile zu packen. 

Durch Verwendung des Alertbox- 
Zeilentrenners T kann man zu den 
Zeilentrennem des Automatik-Be¬ 
triebs weitere zusätzliche Zeilentren¬ 
ner einfügen. 

Insgesamt darf ein gprintf-Befehl 960 
Zeichen ausgeben - natürlich verteilt 
auf mehrere aufeinanderfolgende 
Alertboxen. 

Falls der ABBRUCH - Button ange¬ 
klickt wurde, gibt geprintf den Wert 0 
an die aufrufende Funktion zurück - 
andernfalls den Wert 2. 

/**************************/ 

/ * dump () * / 

/**************************/ 

Die dump-Funktion verlangt als Ar¬ 
gument eine Speicheradresse (also) 
long - Format. Sie erzeugt ein Hex- 
Dump von vier Zeilen zu jeweils 8 
Byte ab der angegebenen Speicher¬ 
stelle. In einer fünften Zeile werden 
30 der 32 Bytes als Zeichenkette aus¬ 
gegeben. Die letzten beiden Zeichen 
passen leider nicht mehr in die Box! 
Zeichen mit Zifferncodes unter 31 
und oberhalb 166 werden als Punkte 
ausgegeben. 

Durch Anklicken des WEITER-But- 
tons können jeweils die nächsthöhe¬ 
ren 32 Bytes des Speichers ausgege¬ 
ben werden. 

Variable 

Funktionsparameter 

Der Quelltext ist ausführlich kom¬ 
mentiert und selbsterklärend. Eine 
Wiederholung der Kommentare an 
dieser Stelle würde keine zusätzliche 
Information bringen. - Lediglich die 
Argumentübergabe an gprintf muß 
näher erklärt werden. Da die Funktion 
gprintf Argumente unterschiedlichen 
Typs und in unterschiedlicher Anzahl 


verarbeiten muß, kann die normale 
Argumentübergabe hier nicht ver¬ 
wendet werden, gprintf macht sich 
bei der Argumentübernahme das Ver¬ 
fahren zunutze, mit dem die aufrufen¬ 
de Funktion die Argumente generell 
übergibt - nämlich über den “Stack”. 
Mit Hilfe der dump-Funktion läßt 
sich dieses Verfahren leicht demon- 
stieren: 

Nehmen wir an, gprintf wird an ir¬ 
gendeiner Stelle des Programms mit 
den folgenden Argumenten aufgeru¬ 
fen: 

int i = 0x1234; 

long j = 0x22222222; 

static char k[] = "Dies ist ein 

String" 

gprintf("Var. i = %xVar. j = 
l%xVar. k = %s",i,j,k); 

Das Programm legt nun diese Argu¬ 
mente von rechts beginnend nachein¬ 
ander auf den Stack: erst die vier 
Bytes der String-Adresse k, dann die 
vier Bytes der long-Variablen j , die 
beiden Bytes von i (int!) und dann die 
vier Adreßbytes der form_str - Varia¬ 
blen. Zuletzt wird die Rückkehra¬ 
dresse auf den Stack gelegt!! Dabei 
darf man nicht vergessen, daß der 
Stack von hohen zu niedrigen Spei¬ 
cheradressen - also nach unten 
wächst!! 

Alert box 2 


»00C: 00 0? C2 76 12 34 22 22 
9E014: 22 22 00 0? CI FC 00 00 
SE01C: 00 00 00 00 00 00 00 00 
»024: 00 00 00 00 00 00 00 00 
..,v.4""" M . 

1 ABBRUCH I I WEITER I I OK 1 


gprintf kennt nun die Anfangsadresse 
dieses Stacks über die Adresse des 
ersten Arguments. In der Alertbox 2 
ist das Hexdump dargestellt, das sich 
beim Aufruf von dump(&form_str) 
ergibt. 

Die ersten vier Bytes enthalten die 
long - Zahl 9C276, nämlich die 
Adresse eben dieser Variablen 
‘form_str\ danach folgen die Varia¬ 
blen i (1234) und k(22222222) sowie 
die Adresse des Strings k. 
(00090 FC). Alertbox 3 geht der 
Adresse 9c276 nach und druckt 
prompt den Formatstring aus: 

nächste Seite... 
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Alertbox 3 


»276: 56 61 72 2E 28 69 28 3D 
»27E: 28 25 78 56 61 72 2E 28 
»286: 68 28 30 28 25 6C 78 56 
»28E: 61 72 2E 28 6B 28 3D 28 
Var. i = HxVar. j = ülxVar. k 

I ABBRUCH 1 I HEITER I I OK k\ 


Um diese Variablen aber in der richti¬ 
gen Weise übernehmen zu können, 
verfährt gprintf nun folgendermaßen: 
Zunächst einmal wird der Zeichen¬ 
pointer ‘char *pargu’ auf die An¬ 
fangsadresse der zweiten Variablen 
‘argu’ gesetzt. Durch die Analyse des 
Formatstrings erfährt die Funktion, 
daß es sich bei diesem Argument um 
den Typ ‘int’ handelt und übergibt 
diesen Sachverhalt an das im Pro¬ 
grammkopf definierte Funktions- 
Macro ‘arg_wert’. Dieses erhöht nun 
den Wert des Pointers pargu um die 
Bytezahl einer int-Zahl: pargu += 
sizeof(int) (Da es sich um einen char- 
pointer handelt, funktioniert die 
Addition hier normal wie bei einer 


long-Zahl). Nachdem der Zeiger nun 
genau hinter die int-Variable i posi¬ 
tioniert ist, wird er durch den Cast 
(int *) zu einem Zeiger auf ein array 
von int-Zahlen gemacht und mit (...) 
[-1 ] das hinter dem pointer liegende 
Element angesprochen. 

Das gleiche Verfahren wird nun 
nacheinander mit den übrigen Argu¬ 
menten durchgeführt. Man sieht aber, 
daß gprintf und natürlich auch printf 
selbst ganz schön durcheinander 
kommt, wenn die Zahl oder der Typ 
der im Formatstring angegebenen Ar¬ 
gumente nicht mit der Zahl oder dem 
Typ der tatsächlich übergebenen 
Argumente übereinstimmt. In diesem 
Fall hat die Übergabe offensichtlich 
geklappt, denn gprintf gibt die fol¬ 
gende Alertbox aus: 


Var, i = 1234 

Var. j = 22222222 

Var. k = Das ist ein String 

I ABBRUCH I I TRQH I I BK I 


Einbindung der 
Funktionen in eigene 
Programme. 

Die Verwendung der Funktionen in 
eigenen Programmen sollte keine 
Probleme aufwerfen. Lediglich ‘tr’ 
muß als globale Variable im Pro¬ 
gramm deklariert werden und bei den 
Programmdefinitionen müssen die 
Funktionen: arg_wert(pargu, type) 
und Super(stack) enthalten sein. 
Ansonsten wird der Funktionsblock 
irgendwo ins Programm kopiert. 
Vielleicht kann er sich ja beim näch¬ 
sten Bombenalarm schon nützlich 
machen. 

Dr. Peter Härtel 
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/************************************************★**/ 
/***************************************************/ 
/* */ 
/* BUGALERT.C */ 

/* (Mini-Debugging-Tool für C-Programme unter GEM) */ 
/***************************************************/ 
/***************************************************/ 


-*/ 


/* Programm - Definitionen 
/*_ 


#define arg_wert(pargu,type) 

((type *)(pargu += sizeof(type)))[-1] 
/* Argument fangen */ 

#define Super(stack) gemdos(0x20, stack) 

/* Supervisormodus */ 


/*- 

/* 

/* 


*/ 


Globale Variable 


int 


tr; 


/* Trace-Schalter */ 


/* gprintf 
/*- 


gprintf(form_str, argu) 

/* Ersatz für printf in GEM-Pro- 
char *form_str; /* grammen. Formatstring wie bei 
/* 'printf'. 

{ 

char *pargu = (char *) &argu; /* C-Zeiger auf 

Argumente-Stack 
/* Puffer für Alerttext */ 

/* Puffer für Textausgabe */ 


char atext[200]; 
char text(1000]; 
char *s; 
char f_str[13]; 
char *p; 

char auswahl[22]; 
int cz = 0, 
zz, 
vt. 


/* Zeiger auf diesen Puffer */ 

/* Formatanweisung 12 Zeichen */ 
/* Zeiger auf Formatanweisung */ 
/* String für Auswahl-Buttons */ 
/* Anzahl Zeichen von sprintf */ 
/* Anzahl Zeilen im Text */ 

/* Argumenttyp l=int, 2=long.. */ 


43 

wähl, 

/* Returnwert von form_alert */ 

44 

autom. 

/* automatische Zeilentrennung */ 

45 

laenge; 

/* Länge des Ausgabestrings */ 

46 



47 



48 

s = &text[0] ; 

/* Zeiger auf Puffer setzen */ 

49 

strcpy(atext, " [0] [") ; /* Anfang Alertbox-strings */ 

50 

strcpy(auswahl," 

][ABBRUCH|TRON | OK ]"); 

51 

if (tr) 

/* falls tr = wahr,dann TRON - */ 

52 

{ 

/* in TROFF verwandeln */ 

53 

auswahl [ 13] = ' 

F' ; 

54 

auswahl[14]=' 

F' ; 

55 

} 


56 

p = form_str; 


57 



58 

while ( (*p++) && 

(*p != '\n')) /* Prüfen, ob '\n' 



vorhanden */ 

59: 

; ; 


60: 

: autom = (*-p) ? 

0 : 1; /* falls vorhanden. 



autom=FALSE */ 

61 

/*- 

-*/ 

62 

/*— Formatstring 

in einen Textstring von max. —*/ 

63 

/*- 950 Zeichen umwandeln -*/ , 

64 

for(laenge = 0;* 

form_str; ) 

65 

( 


66 

if (*form_str 

!= '%') /* solange keine 



Formatanweisung */ 

67 

{ 


68 

laenge++; 

/* Zeichen zählen */ 

69 

*s++ = *form str++; /* Text in Textpuffer 



schreiben */ 

70 

} 


71 

eise 

/* Variablen - Formatanweisung */ 

72 

( 


73 

strncpy(f_ 

str,form_str,12); /* 12 Zeichen 



Formatanweisung */ 

74 

p = f_str; 

/* wieviel davon sind gültig? */ 

75 

while ( (*++p< =/ 9 ’ && *p>='0') 

76 


II *p == '.') /* Feldweite in 



Ziffern & Punkt */ 

77: 

: ; 

/* falls vorhanden Zeiger++ */ 

78: 

switch(*p) 

/* auf gültiges Zeichen prüfen */ 

79: 

: { 


80: 

: case 'h 

/ : /* h hei_t short-Variable */ 

81: 

P++; 

/* nächstes Zeichen ist wichtig */ 
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82 

case 'c': 


158 

: for(cz=l,zz=0,s=&text[0],p=&atext[4]; 

83 

case 'd': 



*s ;cz++,p++,s++) 

84 

case 'x / : 


159 

: { 

85 

case 'o': 


160 

: if((*s<31) II (*s>166) /* handelt es sich um 

86 

case 'u': 



Textzeichen? */ 

87 

vt =1; /* Variablentyp int */ 


161 

: || (*s==91)1| (*s==93)) /* [ und ] sind nicht 

88 

break; 



erlaubt */ 

89 

case '1': 


162 

*p='?'; 

90 

vt =2; /* 1 hei t long-Variable */ 


163 

eise 

91 

p++; /* nächstes Zeichen ist wichtig */ 


164 

*p = *s; /* Zeichen in Ausgabetext kopieren */ 

92 

break; 


165 


93 

case 's' : 


166 

if( (*s == 'r ) /* Zeilentrenner gefunden */ 

94 

vt =3; /* String-Pointer ist gemeint */ 


167 

1 | (* s == '\n') 

95 

break; 


168 

II (cz ==30 )) /* Zeilenende ohne Trennung 

96 

case '£': 



erreicht */ 

97 

case 'e' : 


169 

{ 

98 

case 'g': 


170 

if(cz == 30) 

99 

vt =4; /* Variable vom Typ double */ 


171 

p++; /* Zeiger auf nächstes 

100 

break; 



Zeichen */ 

101 

case '%': /* Nur Prozentzeichen schreiben */ 


172 

: while(cz++<30) /* Rest der Zeile mit space 

102 

vt =5; 



füllen */ 

103 

break; 


173 

; *p++=' 

104 

default: /* alle and. Zeichen -> error */ 


174 

: *p “ '1 r ; /* Zeilentrenner in 

105 

form alert(1,"[3] 



Ausgabetext */ 


[Formatanweisung nicht korrekt] 


175 

: cz=0; /* Zeichenzähler 


[ABBRUCH]"); 



zurücksetzen */ 

106 

return (1); 


176 

if(++zz == 5) /* Zeilenzähler erhöhen */ 

107 

} 


177 

{ /* falls vierte Zeile, */ 

108 



178 

*p='\0'; /* dann Ausgabeende */ 

109 

*++p='\0'; /* Stringende Variablenformat */ 


179 

streat(atext,auswahl); /* Ende form_alert- 

110 

form str += strlen(f str); 



string anfügen */ 


/* Pointer auf nächstes Zeichen */ 


180 


111 



181 

: wahl=form_alert(3,atext); /* Alert-box 

112 




ausgeben */ 

113 

switch(vt) /* Je nach Variablentyp die rieh- */ 


182 


114 

{ /* tige Variable vom Stack holen */ 


183 

: if(wahl==2) /* TRON-TROFF Button wurde 

115 

case 1: 



gewählt */ 

116 

cz=sprintf(s,f str, arg wert(pargu,int)); 


184 

: tr = !tr; 


/* int */ 


185 

: if(wahl==l) /* Abbruchbutton wurde 

117 

break; 



gewählt! */ 

118: 

: case 2: 


186 

return(0); 

119: 

: cz=sprintf(s,f_str, arg_wert(pargu,long)); 


187 

p = &atext[4]; 


/* long */ 


188 

cz = 1; 

120 

break; 


189 

zz = 0; /* Zeilenzähler zurücksetzen */ 

121 

case 3: 


190 

} 

122 

cz=sprintf(s,f_str. 


191 

) 


arg_wert(pargu,char *)); /* pointer */ 


192 

} /* Ende for - Schleife */ 

123 

break; 


193 

if(!zz) /* falls keine vollständige Zeile */ 

124 

case 4: 


194 

while (cz++ < 31) /* Rest der Zeile mit space 

125 

cz=sprintf(s,f_str, arg_wert(pargu,double)); 



füllen */ 


/* double */ 


195 

*p++=' 

126 

break; 


196 

*p = '\0'; 

127 

case 5: 


197 


128 

if(*—s == ' r) 


198 

streat(atext,auswahl); 

129 

{ 


199 

wähl = (form_alert(3,atext)); /* Alert-box 

130 

*s++ « '%'; 



ausgeben */ 

131 

* s++ - ' r ; 


200 

if(wahl==2) /* TRON-TROFF Button wurde gewählt */ 

132 

continue; 


201 

tr = !tr; /* Schalter umlegen */ 

133 

) 


202 

return(wahl-1); /* falls ABBRUCH dann Null zurück */ 

134 

eise 


203 

) 

135 

( 


204 


136 

*++s='%'; 


205 

/*-*/ 

137 

++s; 


206 

/* dump */ 

138 

continue; 


207 

/*-*/ 

139 

} 


208 


140 

} 


209 

dump(adr) /* Gibt 32 Bytes ab RAM-Adresse */ 

141 

laenge += cz+1; 


210 

char *adr; /* 'adr' als Hex-Zahlen aus */ 

142 

if(laenge > 960) 


211 

{ 

143 

*form str ='\0'; /* aufhören bevor Puffer 


212 

int i,j; /* Schleifenzähler */ 


voll ist */ 


213 

unsigned int byte; /* auszugebendes Byte */ 

144 : 

s += cz; 


214 

int h_n, /* higher Nibble */ 

145: 

if(autom && !(vt==5)) /* falls automatische 


215 

l_n, /* lower Nibble */ 


Zeilentrennung */ 


216 

wähl; /* Alert-Box-Button */ 

146: 

*s++ = '|'; /* neue Zeile für neue 


217 

long hexad; /* Adresse als Zahl */ 


Variable! */ 


218 

char c; /* Zeichenwert des Byte*/ 

147 

} /* Ende eise */ 


219 

char atext[200]; /* Ausgabestring */ 

148 

} /* Ende while */ 


220 

char *s; /* Zeiger auf atext */ 

149 

if(cz && autom) /* letztes '|'-Zeichen löschen! */ 


221 

char *t; 

150 

s-; 


222 

char *p; 

151 

*s = '\0'; /* String-ende markieren! */ 


223 

char *pt; 

152 

/*-Textstring für die Ausgabe */ 


224 

long save_s; 

153 

/*-in mehreren Alert-Boxen vorbereiten.-*/ 


225 


154 

/* cz=Zeichenzähler zz=Zeilenzähler */ 


226 


155 

/* Zeiger auf Stringanfang setzen */ 


227 

strepy(atext," [0] ["); /* Anfang Alertbox */ 

156 

/* und bis zum Ende des Textstrings Vorarbeiten */ 


228 

if ( (long)adr<0x800) /* Prüfen, ob Supervisor-Modus 

157 




nötig */ 
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229 

if(form alert(1, 


256: 

for (j=0 

;j<8;j++) /* Eine Zeile mit 8 Byte 

230 

"[3][Die angegebene Adresse liegt| 




ausgeben */ 


im geschützten Speicherbereich|\ 


257 

{ 


231 

Abbrechen ?][JA1NEIN ]") =« 1) 


258 

byte 

= *p++; /* hole byte aus Speicher */ 

232 

return(0); 


259 


/* Nur Textzeichen ausgeben */ 

233 



260 

*pt++ 

=((byte>31 && byte<91) II 

234 

while(l) /* bis ABBRUCH gewählt */ 




(byte>93 && byte<166)) ? byte : 

235 

{ 


261: 

h_n 

= byte>>4; /* high-Nibble = h n */ 

236 

if ( (long)adr<0x800) /* falls nötig. 


262: 

*s++ 

= h_n +((h_n > 9) ? 55:48); /* Dez/Hex- 


Supervisormodus->ein */ 




Umwandlung */ 

237 

save_s = Super(OL); 


263 

i_n 

= byte & OxF; /* lower-Nibble = l_n */ 

238 



264 

* S + + 

= l_n +((l_n > 9) ? 55:48); 

239 

p = adr; /* Zeiger auf RAM-Adresse */ 


265 

* s++= 

' '; /* Leerzeichen nach Byte */ 

240 

s = &atext[4]; /* Zeiger auf Hex-Ausgabe */ 


266 

} 


241 

pt = &atext[128]; /* Zeiger auf Textausgabe */ 


267 

*~s='| # ; 

/* Zeilenende markieren */ 

242 



268 

} 


243 

for (i=0;i<4;i++,s++) /* vier Zeilen ausgeben */ 


269 

pt -= 2; 

/* Stringende markieren */ 

244 

( 


270 

*pt='\0'; 


245 

t = s+6; /* Adresse rückwärts ausgegeben */ 


271 

if ( (long)adr<0x800) /* Supervisormodus aus */ 

246 

s +- 7; 


272 

Super(save_s) ; 

247 

*t—' 


273 



248 

*t— ' :' ; 


274 

strcat(atext , " ] [ABBRUCH|WEITER| OK ]"); 

249 

hexad = (long)(adr+8*i) ; 



/* Buttontext anhängen */ 

250 

for(j=0;j<5;j++) /* Hexadresse 5-stellig 


275: 




ausgeben */ 


276: 

: if((wähl = 

form_alert(3,atext)) != 2) 

251: 

: ( 



/* Alertbox 

ausgeben */ 

252: 

: byte = (int)hexad & OxFL; /* nur die letzte 


277 

return(wahl-1) ; */ 


Stelle interessiert*/ 


278 


/* falls Wiederholung (2) */ 

253: 

: *t—=byte+((byte>9) ? 55:48); /* Hex-Zeichen 


279 

adr += 32; 

/* neue Adresse im RAM */ 


ausgeben */ 


280 

} 


254: 

: hexad /= 16; /* nächste Stelle ausgeben */ 


281 

I 


255: 

: ) 






-\ 

Betr.: Programmier Praxis 

Die “Progammier Praxis” ist ein fester Bestandteil der ST Computer geworden. Gedacht 
ist sie für all diejenigen, die ihren Rechner selbst programmieren, und dazu Tips und 
Anregungen gebrauchen können. Diese Rubrik kann aber nur dann bestehen, solange viele 
Leser (Sie eingeschlossen) sich daran beteilligen. Wir fordern Sie deshalb auf, Ihre Ideen : 
in einen Umschlag zu stecken und auf dem schnellsten Weg zu uns zu schicken. 
Voraussetzungen gibt es praktisch keine: es muß lediglich interessant sein und so 
dokumentiert, daß auch andere Anwender daraus einen Nutzen ziehen können. Auch bei 
den Sprachen gibt es keinerlei Einschränkungen: PASCAL, C, BASIC; Assembler, 
Modula 2, APL, Fortan, LISP, Prolog, PEARL,... und sogar LOGO ist erwünscht. : 

Veröffentliche Programme werden natürlich angemessen honoriert. Bitte beachten Sie bei 
der Einsendung: Schicken Sie den Quelltext und das evtl, compilierte Programm, sowie 
die Dokumentation auf Papier und Diskette. Die Diskette wird zurückerstattet. 
Einsendungen direkt an die Redaktion: 

“MERLIN” Computer GmbH 
ST Computer Redaktion 
'Programmier Praxis' 

Industriestraße 26 

D-6236 Eschborn Tel.: 0 61 96 / 48 18 11 

_ / 
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DISK SCHREIB- 

GESC HUTZT? 

Ihr ST warnt Sie, wenn nicht 


Die Bedienung des Programmes 
ist äußerst einfach. Es kann mit 
nahezu jedem Assembler bear¬ 
beitet werden. Es könnten even¬ 
tuell Probleme bei den Kommen¬ 
taren und am Ende des Listings 
bei den DS.x-Befehlen auftreten. 
Durch das Weglassen der Korn- 
mentare und Ersetzen der DS.x- 
durch BLK.x-Mnemonics dürften 
keine Fehler mehr Vorkommen. 

Nach erfolgreichem Assemblieren 
kann man das erhaltene Programm 
aus dem Desktop starten oder man 
kopiert es in den AUTO-Ordner der 
Startdiskette. Dort installiert es sich 
dann selbst. 

Nun wird man jedesmal durch einen 
Ton gewarnt, wenn eine Diskette mit 
fehlendem Schreibschutz eingelegt 
wird. 

Es muß nur noch beachtet werden, 
daß das Programm durch einen RE¬ 
SET verloren geht, d.h. es muß erneut 
installiert werden. 

Wie funktioniert 
das alles ? 

Als erstes muß das Einlegen einer 
Diskette ohne Schreibschutz festge¬ 
stellt werden. Dank dem TOS hat man 
es sehr leicht, denn in der Speicher¬ 
zelle h&9B2 wird dieses Ereignis 
durch den Wert Null angezeigt. An¬ 
sonsten enthält sie den Wert $FF. 

Da es leider keine andere Möglichkeit 
gibt, als die Abfrage in den VBL- 
Interrupt einzubinden, muß man den 
Wechsel von $FF auf $00 feststellen. 
Würde man dies nicht so lösen, hätte 
man einen Dauerton, solange die 
Diskette eingelegt ist. 


Haben Sie nicht auch schon öfter mal eine Dis¬ 
kette aus Versehen gelöscht? Dieses kleine Pro¬ 
gramm kann Ihnen hier unter die Arme greifen. 
Denn es wird Sie jedesmal mit einem Ton war¬ 
nen, wenn eine nicht schreibgeschützte Diskette 
in das Laufwerk gelegt wird. 


Der nächste Schritt ist das setzen 
der Frequenz für den Ton. Hierzu 
ist das erste Register zuständig. 


Der Wechsel wird durch das Zwi¬ 
schenspeichern des Wertes aus der 
Adresse $9B2 erkannt. Der jeweils 
aktuelle Inhalt dieser Speicherzelle 
wird mit dem alten gespeicherten 
Wert verglichen. Tritt hier ein Unter¬ 
schied auf, fand ein Wechsel statt. Es 
muß nur noch geprüft werden, ob es 
sich um die Änderung von $FF auf 
$00 handelt. 

Hat man auf diese Weise erkannt, daß 
eine Diskette ohne Schreibschutz 
eingelegt wurde, geht es an den 
Soundchip. Die Programmierung 
dieses Chips sieht so aus, daß man ein 
Register anwählt und dann einen 
Wert hineinschreibt. 

Es wurden folgende Adressen des 
Soundchips verwendet: 

SFF8800 In dieser Speicherzelle 
kann ein Register 
angewählt und ebenso 
ausgelesen werden. 

SFF8802 Hier kann man einen 
Wert in das gewählte 
Register schreiben. 

Will man nun dem Soundchip einen 
Ton entlocken, muß man als erstes 
einen Kanal einschalten. Um einen 
klaren Ton zu erhalten, wird das 
Rauschen abgestellt. Das zugehörige 
Register ist hier das siebte. Dort wer¬ 
den die entsprechenden Bits gesetzt 
oder gelöscht. 


Da das Programm im VBL ab¬ 
läuft, kann man sich aus Zeitgrün¬ 
den nicht um die Dauer des Tones 
■I kümmern. Doch hier bietet sich 
die Möglichkeit an, eine Hüllkurve 
des Soundchips zu benutzen, d.h. der 
Chip kümmert sich selber um die 
Dauer. Das hat allerdings den Nach¬ 
teil, daß keine schönen Klänge ver¬ 
wirklicht werden können. Um die 
Hüllkurve festzulegen, muß man das 
12. und 13. Register verwenden. 

Wer sich noch für die Installation der 
Routine im VBL-Interrupt interes¬ 
siert kann dies in der Januar ’88- 
Ausgabe auf Seite 84 nachlesen. 

Markus Sichler 
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1 

* 

Computer meldet sich mit einem, Ton wenn 

2 

* 

eine nicht schreibgeschuetzte Diskette in's 

3 

* 

Laufwerk gelegt wird . 

4 

* 



5 

* 

(C) Markus Siebler 

6 

* 



7 




8 

9 

* 

Programmlaenge veststellen 

10 


move . 1 

$4 (a7),a0 

11 


move . 1 

$c(a0) ,d0 

• 12 


add.l 

$14(aO),d0 

13 


add.l 

$lc(aO) , dO 

14 


add.l 

#$100,dO 

15 


move . 1 

dO,len 

16 




17 

★ 

Superviser anschalten 

18 




19 


clr.l 

- (sp) 

20 


move . w 

#$20,-(sp) 

21 


trap 

#1 

22 


add.l 

#6, sp 

23 


move . 1 

d0,save ssp 

24 




25 

* 

Routine in VBL-Liste eintragen 

26 




27 


move . 1 

$456,al 

28 


clr.l 

dl 

29 

loop: 


30 


tst. 1 

$0(al,dl) 

31 


beq 

free 

32 


addq 

#4,dl 

33 


jmp 

loop 

34 

free : 


35 


tst . 1 

dl 

36 


bne 

m3 

37 


addq 

#4,dl 

38 


bra 

loop 

39 

m3 : 


40 


lea. 1 

$0 (al,dl) , a2 

41 


move . 1 

#vbl,al 

42 


move . 1 

al,(a2) 

43 




44 

* 

Programm verlassen 

45 




46 


jmp 

ende 

47 




48 

* 

VBL-Routine 


49 




50 

vbl: 


51 


move . 1 

d0,-(sp) * DO Zwischenspeichern 

52 




53 


move . b 

$9b2,dO * $9b2 enthaelt WP-Status 

54 


cmp.b 

ws,d0 * hat sich was geaendert ? 

55 


beq 

quit * Nein -> quit 

56 


cmp.b 

#$ff,d0 * Ja -> wurde Disk eingelegt ? 

57 


beq 

quit * Nein -> quit 

58 




59 


move . b 

#7,$ff8800 * Ja -> Soundchip Reg.7 




* anwaehlen 

60 


move . b 

$ff8800,d0 * in DO speichern 

61 


and.b 

#$fe,d0 * Kanal 1 Ton ein 

62 


or .b 

#$8,d0 * Kanal 1 Rauschen aus 

63 


move . b 

d0,$ff8802 * DO wieder in Reg.7 




schreiben 

64: 




65: 


move . b 

#1 , $ff8800 * Frequenz des Tones 




einstellen 

66: 


move . b 

#3,$ff8802 

67: 




68: 


move . b 

#8,$ff8800 * Lautstaerke einstellen 

69: 


move . b 

#$10,$ff8802 * Huellkurve waehlen 

70: 




71: 


move . b 

#12,$ff8800 * Frequenz der Huellkurve 

72: 


move . b 

#7,$ff8802 

73: 




74: 


move . b 

#13,$ff8800 * Huellkurve waehlen 

75: 


move . b 

#4 , $ff8802 

76: 




77: 

quit : 


78: 


move . b 

$9b2,ws * WP-Status in <ws> 




speichern 

79: 


move . 1 

(sp)+,d0 * DO wieder in alten 




Zustand 


80 


rts 




81 






82 

* Supervisor 

aus 


83 






84 

ende 





85 


move . 

.1 

save_ 

ssp, - 

86 


move . 

. w 

#$20, 

- (sp) 

87 


trap 


#1 


88 


add.] 


#6, sp 


89 






90 


* Programm verlass« 

91 






92 


move . 

w 

#0,-(sp) 

93 


move . 

1 

len, - 

(sp) 

94 


move . 

, w 

#$31, 

- (sp) 

95 


trap 


#1 


96 






97 






98 

len: 





99 


ds.l 


1 

* I 

100 

save_ 

ssp: 




101 


ds.l 


1 

* t 

102 

ws: 





103 


ds .b 


1 

* \ 

104 

ent: 





105 

de. 

b -1 



* 1 


* weiter geht's im VBL 


Programmlaenge 


WP-Status 


Tondauer 


10 ' W_PROTEC . PRG Lader (Zeilennummern nicht notwendig) 

11 Filename$= "W_PROTEC . PRG" 

12 OPEN "0" / l / Filename$ 

13 REPEAT 

14 OC+1 

15 READ Wert 

16 IF Wert=-1 THEN 

17 END 

18 ENDIF 

19 IF (C MOD 11)=0 THEN 

20 IF Werto (Summe AND 255) THEN 

21 PRINT"Fehler in Datazeile "C/ll 

22 END 

23 ENDIF 

24 Summe=0 

26 ELSE 

27 PRINT #1, CHR$(Wert) ; 

28 Summe=Summe+(Wert+C MOD 11) A 2 

29 ENDIF 

30 UNTIL Wert=-1 

31 CLOSE(l) 

100 DATA 96,26,0,0,1,22,0,0,0/0,68 

101 DATA 0,0,0,0,0,0,0,0,0,0,129 

102 DATA 0,0,0,0,0,0,0,0,32,111,142 

103 DATA 0,4,32,40,0,12,208,168,0,20,65 

104 DATA 208,168,0,28,6,128,0,0,1,0,100 

105 DATA 35,192,0,0,1,12,66,167,63,60,107 

106 DATA 0,32,78,65,223,252,0,0,0,6,149 

107 DATA 35,192,0,0,1,16,34,121,0,0,124 

108 DATA 4,86,66,129,74,177,16,0,103,0,242 

109 DATA 0,10,88,65,78,249,0,0,0,56,51 

110 DATA 74,129,102,0,0,8,88,65,96,0,135 

111 DATA 255,230,69,241,16,0,34,124,0,0,44 

112 DATA 0,102,36,137,78,249,0,0,0,234,23 

113 DATA 47,0,16,57,0,0,9,178,176,57,145 

114 DATA 0,0,1,20,103,0,0,102,176,60,83 

115 DATA 0,255,103,0,0,94,19,252,0,7,69 

116 DATA 0,255,136,0,16,57,0,255,136,0,172 

117 DATA 2,0,0,254,0,0,0,8,19,192,252 

118 DATA 0,255,136,2,19,252,0,1,0,255,7 

119 DATA 136,0,19,252,0,3,0,255,136,2,182 

120 DATA 19,252,0,8,0,255,136,0,19,252,180 

121 DATA 0,16,0,255,136,2,19,252,0,12,41 

122 DATA 0,255,136,0,19,252,0,7,0,255,131 

123 DATA 136,2,19,252,0,13,0,255,136,0,174 

124 DATA 19,252,0,4,0,255,136,2,19,249,109 

125 DATA 0,0,9,178,0,0,1,20,32,31,168 

126 DATA 78,117,47,57,0,0,1,16,63,60,32 

127 DATA 0,32,78,65,223,252,0,0,0,6,149 

128 DATA 63,60,0,0,47,57,0,0,1,12,231 

129 DATA 63,60,0,49,78,65,0,0,0,49,251 

130 DATA 0,0,0,49,0,255,0,0,0,24,127 

131 DATA 20,24,22,8,14,114,10,22,0,0,97 
9999 Data -1 

Das Assembler-Listing als BASIC-Datas 
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INS CHAOS 


Fractals 


Legen Sie den Artikel nicht 
gleich weg, wenn Sie jetzt zuerst 
etwas über Mathematik lesen. 

Die mathematische Grundlage 
für unsere Fractals ist überaus 
einfach. 

Das Reizvolle an einem Fractal 
ist seine Eigenschaft, fraktal zu 
sein. Fraktal heißt ein Gebilde, um es 
trocken auszudrücken, wenn es 
selbstähnlich ist, und wenn der Rand 
unendlich zerklüftet ist. Mit anderen 
Worten heißt dieses, daß man jedes 
Gebilde oder Teilgebilde an beliebi¬ 
gen Stellen unendlich oft wiederfin¬ 
det, jedesmal noch schöner und reiz¬ 
voller. An keinem Stück des Randes 
wird man ein glattes Stück finden, 
immer ergeben sich neue Randfor¬ 
men. Es sieht chaotisch und geordnet 
zugleich aus. Gerade diese beiden Ei¬ 
genschaften machen der Reiz der 
Fractals aus! 

Hinter den Begriffen Mandelbrot- 
Menge, Julia-Menge und Apfel¬ 
männchen steckt ein und dieselbe 
Formel. Fangen wir mit der Ge¬ 
schichte an. Die Mandelbrot-Menge 
wurde nach Benoit B. Mandelbrot, 
einem aus Polen stammenden Mathe¬ 
matiker, benannt. Gefunden wurde 
sie erst im Jahre 1980. Seitdem wird 
ununterbrochen nach weiteren Able¬ 
gern gesucht, hier bei uns etwa von 
einer Bremer Forschungsgruppe. 
Diese Forschungsgruppe gab den 
Mandelbrot-Mengen einen Spitzna¬ 
men: Apfelmännchen. Der Rand der 
Mandelbrot-Menge hat wieder einen 
besonderen Namen: Julia-Menge. 
Die Julia-Mengen, die ihren Namen 
dem französischen Mathematiker 
Gaston Julia verdanken, haben einen 
zum Apfelmännchen analogen Auf¬ 
bau, mit einer klitzekleinen Verände¬ 
rung. Zu dieser Veränderung kom¬ 
men wir später. 


Wer hat sie noch nicht gehört, die Begriffe wie Jetzt, wo wir die komplexen 
Mandelbrot-Menge, Julia-Menge oder Apfel- Zahlen kennengelernt haben, 
mannchen? Hinter diesen Begriffen steckt der merken wir schon, daß man wohl 
Reiz des Unendlichen, die Faszination skurriler gewohnt addieren und subtrahie- 
Gebilde. Wohl jeder, der Fractals erblickt hat, ren ’ nicht jedoch multiplizieren 
ist von ihnen beeindruckt. UIK * dividieren kann. 

Es wird eine neue Multiplikation 
eingeführt: 


Ein Apfelmännchen ist ein ebenes 
Gebilde. Die Ebene, auf der es ent¬ 
steht, heißt Zahlenebene oder kom¬ 
plexe Zahlenebene. Im Gegensatz zu 
den schon meist aus der Schule be¬ 
kannten reellen Zahlen, die auf einer 
Zahlengeraden dargestellt werden, 
werden diese Zahlen in der Ebene 
dargestellt. 

Neben der waagerechten Komponen¬ 
te, dem Realteil, hat eine komplexe 
Zahl noch eine senkrechte Kompo¬ 
nente, den Imaginärteil. Um die Zahl 
leichter darstellen zu können, teilt 
man sie in die beiden Komponenten 
auf: z = (a,b). Die komplexe Zahl z hat 
den Realteil a und den Imaginärteil b. 
Diese Darstellung ist ähnlich einer 
gewöhnlichen Ebenendarstellung. Es 
gibt aber noch eine zweite Schreib¬ 
weise: z = a+ib. Die Zahl i hat die 
ganz besondere Eigenschaft i 2 = -I, 
sie ist also die Quadratwurzel aus -1! 
Im Bild 1 ist eine graphische Darstel¬ 
lung der komplexen Zahlen zu sehen. 



Bild 1: Grafische Darstellung komplexer Zahlen 


yz = ac-bd+i(ad+bc), 

wobei y = a+ib, z = c+id komplexe 
Zahlen sind. 

Ein Beispiel: 

(5+3i)*(-3+4i) = 5*(-3)-3*4+i* 
(5*4+3*(-3)) = -27+1 li 

Eine Division direkt ist nicht mög¬ 
lich. Dazu wird das komplex Konju¬ 
gierte der komplexen Zahl benötigt. 
Da wir die Division zweier komple¬ 
xer Zahlen für unsere Betrachtungen 
nicht brauchen, wird hier nicht weiter 
darauf eingegangen. 

Der Betrag einer komplexen Zahl 
z=a+ib berechnet sich folgender¬ 
maßen: /z/ = (a 2 +br) 0J . Der Betrag ist 
anschaulich gesehen die Länge der 
Strecke vom Ebenen-Ursprung zur 
Zahl a+ib. 

Bevor wir nun wieder auf die Apfel¬ 
männchen zurückkommen, brauchen 
wir noch ein wenig Mathematik. Eine 
Folge von Zahlen entsteht mit Hilfe 
einer bestimmten Vorschrift, einer 
Iterationsvorschrift. Hierbei können 
Zahlen als Folgenglieder unter Be¬ 
nutzung einer festen Vorschrift ent¬ 
stehen, die von nichts weiter abhängt, 
als von der zugrundegelegten Zahl. 
Die Folge der Stammbrüche (Berech¬ 
nungsformel 1/n, n ist eine natürliche 
Zahl, also 1, 2, 3,...) ist eine solche 
Folge. Es entstehen hier die Zahlen 1, 

1/2, 1/3.Bei solchen Folgen kann 

man relativ leicht Vorhersagen, ob sie 
sich einer festen Zahl beliebig nähern, 
man spricht von “konvergieren”, oder 
eben nicht, was mit “divergieren” 
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bezeichnet wird. 

Eine andere Art von Folgen entsteht, 
wenn vorige Folgenglieder benutzt 
werden, um ein neues zu bestimmen. 
Diese Folgen heißen rekursive Fol¬ 
gen. Und gerade dieser Typ von Fol¬ 
gen liegt unseren Apfelmännchen 
zugrunde. Es wird eine Zahl vorgege¬ 
ben und die nächste wird aus der 
vorherigen berechnet, indem man sie 
quadriert und eine Konstante addiert: 


z =z-+c 

«+/ n 


Das einzige Problem hierbei ist, daß 
unsere Zahlen komplex sind und wir 
die komplexe Multiplikation und 
Addition bemühen müssen. Nehmen 
wir einmal an, zn sei gleich x+iy und 
c sei a+ib. Dann berechnet sich der 
Realteil des neuen Folgengliedes als 
x*x-y*y+a und der Imaginärteil als 
2*x*y+b. Diese Formel werden wir 
benutzen, um die Apfelmännchen zu 
berechnen. 

An dieser Stelle ist der mathemati¬ 
sche Exkurs beendet, wir gehen zur 
Umsetzung in ein Programm über. Es 
soll hier allerdings kein vollständiges 
Programm dargelegt werden, sondern 
nur einzelne Routinen, die man selbst 
zusammenfassen kann. 

Welche komplexen Zahlen sind über¬ 
haupt passend? Grob gesagt, alle um 
den Ursprung in der komplexen Zah¬ 
lenebene. Genauer ausgedrückt sollte 
der Realteil und der Imaginärteil 
jeweils etwa zwischen -2 und 2 lie¬ 
gen. Neben den Koordinaten aus der 
komplexen Zahlenebene werden na¬ 
türlich auch noch Bildschirmkoordi¬ 
naten gebraucht. Diese Koordinaten 
beziehen sich auf unsere Pixel. 
Gleichzeitig muß man also mit zwei 
verschiedenen Koordinatenpaaren 
rechnen. 

Um es einmal graphisch zu veran¬ 
schaulichen, betrachten wir Bild 2, 


wo ein kleines Übertragungsbeispiel 
zu erkennen ist. 

Die Beispiele sind übrigens in GFA- 
Basic geschrieben, allerdings sind die 
Routinen so allgemein gehalten, daß 
man auch jede andere Programmier¬ 
sprache verwenden kann. Geschwin¬ 
digkeit ist jedoch Trumpf, da für ein 
Bild viele tausend Berechnungen 
durchgeführt werden müssen, was bei 
ausreichender Rechengenauigkeit 
mitunter Stunden dauern kann. 

Die in eine Prozedur umgesetzte 
Koordinatenberechnung ist im Li- 
sting 1 zu finden. 

Der Prozedur FRACTAL werden 
folgende Werte übergeben: 

x% : die x-Koordinate der oberen 
linken Bildecke auf dem 
Bildschirm 

y% : die y-Koordinate dazu 
w%: die Breite des Bildes auf dem 
Bildschirm 
h%: die Höhe dazu 
xk: die x-Koordinate der oberen 
linken Ecke eines Ausschnittes 
auf der komplexen Zahlen¬ 
ebene 

yk: die dazugehörige y-Koordinate 
wk: die Breite des Ausschnittes auf 
der komplexen Zahlenebene 
hk : die Höhe dazu 

Max_iter% : Obergrenze für die 
Iteration 

A,B: Konstanten 

V_... : variierende Werte 

Die Iteration kann natürlich nicht 
unbeschränkt ausgeführt werden, 
daher beschränken wir uns auf dem 
Rechner auf höchstens Max_iter% 
Werte und schätzen dann die Konver¬ 
genz ab: Wird Max_iter% erreicht, 
ohne daß die Folgenglieder eine be¬ 
stimmte Schranke überschreiten, 
nehmen wir an. daß die Folge mit den 




konplrx* Z»hl*n»ben* 


vorgegebenen Startwerten konver¬ 
gent ist, sonst eben divergent. 

Da bei Divergenz die magische Ober¬ 
grenze Max_iter% nicht erreicht 
wird, findet diese Abbruchzahl auch 
noch Verwendung. Das sehen wir 
allerdings erst später. 

Die beiden angesprochenen Prozedu¬ 
ren MANDELBROT und JULIA 
enthalten die eigentliche Konver¬ 
genzbestimmung. Beide Prozeduren 
sind recht ähnlich, und doch unter¬ 
scheiden sie sich. 

Für die altbekannte Mandelbrotmen¬ 
ge wird der z-Wert konstant gehalten. 
Hier bringen zwar unterschiedliche 
Konstanten auch unterschiedliche 
Graphiken, der Unterschied ist aber 
nicht so berauschend wie bei den Ju¬ 
lia-Mengen. Eine Veränderung der 
Konstanten lohnt sich also nur für die 
Julia-Mengen. Konstant gehalten 
werden natürlich nur die Startwerte! 
Die Iteration, getrennt nach Real- und 
Imaginärteil, befindet sich in der 
While-Schleife. 

Die Prozeduren MANDELBROT 
und JULIA sind in den Listing 2 und 
3 aufgeführt. 

Die Variablen, die mit Z_ beginnen, 
sind die z-Werte aus der Iterations¬ 
vorschrift, die mit C_ die c-Werte. 
“re” steht für Real-Teil und “im” für 
Imaginärteil. 

Der Grundalgorithmus läßt sich in 
dem in Bild 3 zu sehenden Strukto- 
gramm darstellen. 


setze Zähler auf 0 

solange Zähler<Maxinal_zähler 
und lzl<2 


z <- z A 2+c 


erhöhe Zähler un 1 


Zähler=Maxinalzähler? / 

ja 


nein 

setze 

Pixel 

Pixel nicht 

setzen 

oder 

Grau- oder 
Farbab¬ 
stufungen 


Bild 2: Ein kleines Überraschungsbeispiel 
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Bild 3: Struktogramm fiir den Grundalgorithmus 
der Prozedur MANDELBROT und JULIA 





























m 


rqgranimter 
k raxis 


Der jeweils resultierende Wert für 
Zähler ist für die Pixelausgabe wich¬ 
tig. Eine einfache Umsetzung könnte 
so erfolgen: 

Setze Pixel, 

falls Zaehler%>=Max_iter%, 

sonst nicht. 

Wer allerdings eine schönere Ausga¬ 
be wünscht, der bezieht noch die 
Punkte der Divergenz mit ein. Erst 
durch diese Punkte ergibt sich ein 
(fast) vollendetes Formen- und Far¬ 
benspiel. Beispielsweise können 
graue Bereiche eingeführt werden, 
wie es in dem Ausgabebeispiel der 
Fall ist. Ebenso könnte man aber auch 
je nach Wert die Pixel in einer ande¬ 
ren Farbe setzen. Es gilt aber nicht 
unbedingt, daß viele Farben auch ein 
besonders tolles Bild ergeben. Weni¬ 
ger ist oft mehr! 

Eine Beispielausgabe ist im Listing 4 
zu betrachten. Die vier vorgestellten 
Prozeduren kann man auch gut zu 
einer relativ kompakten zusammen¬ 
fassen, was auch der Geschwindig¬ 
keit zugute kommt. Eine Zusammen¬ 
fassung für die Mandelbrot-Mengen 
ist im Listing 5 zu erkennen. Dieses 
Listing enthält im Gegensatz zu den 
anderen ein lauffähiges Programm! 
Bei welchen Koordinaten das 
“Grund”-Apfelmännchen zu finden 
ist, wurde schon angesprochen. Be¬ 
sonders schöne Ableger gibt’s bei¬ 
spielsweise an den Stellen, wo 
zwei größere Teile des Apfelmänn¬ 
chens zusammenliegen. Auch kleine 
Flecke, die recht unscheinbar irgend¬ 
wo liegen, sollte man nicht verachten. 


denn gerade dort könnte sich ja eine 
Selbstabbildung der Mandelbrot- 
Menge befinden. 

Die kompaktere Fractal-Routine aus 
Listing 5 ist zum “Zoomen” geeignet, 
d.h. man kann sie gut benutzen, um 
Ausschnitte aus der Mandelbrot- 
(oder Julia-) Menge zu vergrößern. 
Die Vergrößerungsmöglichkeit wird 
ja dringend benötigt, da unsere Moni- 
tore und auch unser Auge nur ein 
begrenztes Auflösungsvermögen 
haben. Den Rand zoomen wir uns 
heran, damit er klar genug wird. Als 
Koordinaten auf der reellen und der 
imaginären Achse beginnen wir mit 
etwa -2 und 2, also einem Bereich von 
4. Bei starken Vergrößerungen kann 
es aber leicht passieren, daß man sich 
nur noch im Bereich von 0.01 oder 
noch weniger bewegt. Wenn man 
Pech hat, verliert man den Rand aus 
den Augen. Daher sollte man sich die 
Koordinaten der Bilder immer notie¬ 
ren (Koordinaten auf der reellen und 
der imaginären Achse, übergebene 
Konstanten und natürlich den Wert 
für die maximale Iterationsanzahl). 
Die Koordinaten könnten beispiels¬ 
weise für die linke obere Ecke 
0.7453444,0.1130534, für die Breite 
0.0005516 und die Höhe 0.0000994 
lauten. Die Konstanten sind einfach 
0, gerechnet wird bis 400! Bei dieser 
Rechnung sollte man schon etwas 
Zeit mitbringen. Meine Empfehlung: 
Rechner abends anschalten und Pro¬ 
gramm starten und über Nacht laufen 
lassen. 

Für Julia-Mengen wählt man ähnli¬ 
che Koordinaten wie für die Mandel¬ 


brot-Mengen. Zusammenhängende 
Julia-Mengen erhält man, wenn man 
für den konstanten Wert c Werte aus 
dem Inneren der Mandelbrot-Menge 
wählt. 

Wie weit soll die Iteration fortgeführt 
werden, um eine Aussage über die 
Konvergenz zu wagen? Diese Frage 
ist gamicht so leicht zu beantworten. 
Je kleiner der Ausschnitt ist, desto 
größer sollte man Max_iter% wählen. 
Das können ohne weiteres Werte von 
100 und mehr sein. Für gröbere Aus¬ 
schnitte kann man notfalls auch bis 
etwa 20 heruntergehen, wodurch aber 
der fraktale Rand schon leiden könn¬ 
te. 

Ist nun schon Schluß? Nein, jetzt 
geht’s erst richtig los. Fractals erge¬ 
ben sich nicht nur mit der Iterations¬ 
vorschrift z = z “+c. Wie wäre es 

n+l n 

mit z = z -*+c? Oder eine etwas 

n+l n 

kompliziertere Iteration z =(z ; + /)/ 
z(z*-l)l Eine Grenze fürs Experi¬ 
mentieren ist nicht gesetzt. 

Nach diesem kleinen Ausflug in das 
Land der Fractals sind auch sicher Sie 
so begeistert, daß Sie sich Ihren Rech¬ 
ner schnappen und sich ein eigenes 
Fractal-Programm schreiben. Oder 
lesen Sie den Artikel schon nicht 
mehr und sitzen bereits am Rechner? 

Dietmar Rabich 

Literatur: 

// / Spektrum der Wissenschaft 2ISS, 
Computer-Kurzweil, A. K. Dewdney 
[2j The Beauty of Fractals, H.-O. Peitgen/ 

P. H. Richter. Springer-Verlag 
[J/ Computergrafische Experimente mit 
Pascal. K.-H. Beckerl M. Dörfler. 
Vieweg-Verlag 



Bild 4: Beispiel für ein Fractal 


Bild 5: Beispiel für ein Julia-Menge 
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roßrammier 
k raxis 


1 : 

2 : 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 


' Fractal: Koordinatenberechnung 

Procedure Fractal(X%,Y%,W%,H%,Xk,Yk,Wk,Hk,Max_iter%, 

A, B) 

Local V re schritt,V im schritt ! Schrittweiten für 


Local I%,J% 

\ 

V_re_schritt=Wk/W% 
V im schritt=-Hk/H% 


! Pixelkoordinaten 


Schrittweite horizontal 
Schrittweite vertikal 


V_im=Yk 

For J%=Y% To Y%+H% 

V_re=Xk 
For I%=X% To X%+W% 

Gosub Mandelbrot 
Gosub Plot_pixel(1%,J%,Zaehler%) 
Add V_re,V_re_schritt 
Next 1% 

Add V_im,V_im_schritt 
Next J% 

Return 


Startwert vertikal/oben 
Startwert horizontal/links 


Iteration 

Ausgabe 


Listing 1: Procedure Fractal 


1 

' Fractal: Iteration Mandelbrot-Menge 

2 

Procedure Mandelbrot - 

3 

Local Z_re_h 

4 

Local Z_re_m,Z^im_m 

5 

Local C_re_m,C_im_m 

6 

7 

Z re m=A ! z-Werte konstant 

8 

Z_im_m=B 

9 

C re_m=V_re ! c-Werte variabel 

10 

C_im_m=V_im 

11 

' 

12 

Zaehler%=0 

13 

While Zaehler%<Max_iter% And 

14 

Z re m*Z re m+Z im m*Z im m<4 

Z_re_h=Z_re_m 

15 

Z re m=Z re m*Z re m-Z im m*Z im m+C re m 

16 

Z_im_m=2 * Z_re_h* Z_im_m+C_im_m 

17 

Inc Zaehler% 

18 

Wend 

19 

Return 

Listing 2: Iteration Mandelbrot-Menge 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 : 
15: 
16: 
17: 
18: 
19: 


' Fractal: Iteration Julia-Menge 
Procedure Julia 
Local Z_re_h 
Local Z_re_m,Z_im_m 
Local C_re_m,C_im_m 


Z_re_m=V_re 
Z_im_m=V_im 
C_re_m=A 
C im m=B 


! z-Werte variabel 
! c-Werte konstant 


Zaehler%=0 

While Zaehler%<Max_iter% And 

Z_re_m* Z_re_m+Z_im_m* Z_im_m< 4 
Z_re_h=Z_re_m 

Z_re_m=Z_re_m*Z_re_m-Z_im_m*Z_im_m+C_re_m 
Z_im_m=2* Z_re_h* Z_im_m+C_im_m 
Inc Zaehler% 

Wend 

Return 


Listing 3: Iteration Julia-Menge 


1 

' Fractal: Pixelausgabe 

2 

Procedure Plot_pixel(Xp%,Yp%, It%) 

3 

' Konvergenzgebiet (schwarz/wei_): 

4 

' If It%>=Max_iter% 

5 

' Plot Xp% , Yp% 

6 

' Endif 

7 

' Konvergenzgebiet (schwarz/grau/wei_) : 

8 

If It%>=Max_iter% 

9 

Plot Xp%,Yp% 

10 

Else 

11 

If (It%<=Max_iter% Div 2) And (It% Mod 2=1) And 


((Xp%+Yp%) Mod 2=1) 

12: 

Plot Xp% , Yp% 

13: 

Endif 

14: 

Endif 

15: 

Return 

Listing 4: Pixelausgabe 


1: 

2 : 

3: 

4: 

5: 

6: 

7: 

8 : 

9: 

10: 

11 : 

12: 

13: 

14: 

15: 

16: 

17: 

18: 

19: 

20 : 

21: 

22 : 

23: 

24: 

25: 

26: 

27: 

28: 

29: 

30: 

31: 

32: 

33: 

34: 

35: 

36: 

37: 

38: 

39: 

40: 

41: 

42: 

43: 

44: 

45: 

46: 

47: 

48: 

49: 

50: 

51: 

52: 

53: 


' Kompakter Fraktal-Generator 
' (Entw. mit GFA-Basic.) 

' D. Rabich, 2.2.1988 

Gosub Fractal(0,0,639,399,-2.5,1.5,4,3,75,0,0) 

! zum Fractal-Generator 
Open "0",#1,"FRACTAL.DOO" ! Bildausgabe 

Get 0,0,639,399,Bild$ 

Print #1,Mid$(Bild$, 7) ; 

Close #1 
End 

' Fractal-Generator 

Procedure Fractal(X%,Y%,W%,H%, Xk, Yk,Wk,Hk, 

Max_iter%,A,B) 

Local V re schritt,V im schritt ! Schrittweiten 
! für Pixelkoordinaten 
! für Iteration 

! Schrittweite horizontal 
! Schrittweite vertikal 
! Startwert vertikal/oben 

! Startwert 

horizontal/links 

! Iteration Mandelbrot 
! z-Werte konstant 

Zaehler%=0 

While Zaehler%<Max_iter% And 

Z_re_m* Z_re_m+ Z_im_m* Z_im_m< 4 
Z_re_h=Z_re_m 

Z_re_m=Z_re_m* Z_re_m-Z_im_m* Z_im_m+V_re 
Z_im_m=2*Z_re_h* Z_im_m+V_im 
Inc Zaehler% 

Wend 

' Die folgende Farbbestimmung könnte man auch 
' in einer Zeile zusammenfassen, aber das würde 
geringfügig komplizierter. 

If Zaehler%>=Max_iter% 

Color 1 
Else 

Color -((Zaehler%<=Max_iter% Div 2) And 

(Zaehler% Mod 2=1) And ((I%+J%) Mod 2=1)) 

Endif 

' Ohne Grauabstufung: 

Color - (Zaehler%>=Max_iter%) 

' Für Farbe (Bsp.: 8 Farben) : 

' If Zaehler%>=Max_iter% 

' Color=0 

' Else 

' Color (Zaehler% Mod 7)+l 

' Endif 

Plot I%,J% ! Ausgabe 

Add V_re,V_re_schritt 
Next 1% 

Add V_im,V_im_schritt 
Next J% 

Return 
' Ende 


Local I%,J% 

Local Z_re_h 

Local Z_re_m,Z_im_m 

V_re_schritt=Wk/W% 

V_im_schritt=-Hk/H% 

V_im=Yk 

For J%=Y% To Y%+H% 
V_re=Xk 

For I%=X% To X%+W% 
Z_re_m=A 
Z im m=B 


Listing 5: Der komplette Fractal-Generator 
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UND SIE DREHT 
SICH DOCH... ™ 


Die lange totgeglaubten Routinen 
appltrecord und appl tplay führ¬ 
ten auf den ‘alten’ STs zu den 
merkwürdigsten Ergebnissen. 
Unglaublich, aber wahr: Die Routi¬ 
nen funktionieren im neuen MEGA 
ST tatsächlich, zwar nicht ganz so, 
wie in den Dokumentationen be¬ 
schrieben, aber das ist ja neben¬ 
sächlich... 

Zunächst wollen wir uns den Sinn der 
Routinen klarmachen. Appl_trecord 
und Appl_tplay sind Routinen des 
AES, die dazu dienen, die Ereignisse 
des GEM aufzuzeichnen, um sie spä¬ 
ter wieder 4 abspielen ’ zu können. Zu 
diesem Zweck werden vier verschie¬ 
dene Ereignisse unterschieden: 

0) Timer-Ereignis: 

Speichert die Zeit ab, die zwi¬ 
schen zwei anderen Ereignissen 
vergangen ist. 

1) Maustasten-Ereignis: 

Zeichnet auf, ob eine Maustaste 
gedrückt worden ist. 

2) Maus-Ereignis: 

Wird die Maus bewegt, werden 
die absoluten X- und Y-Koordi- 
naten der Maus abgespeichert. 

3) Tastatur-Ereignis: 

Ist eine Taste gedrückt worden, 
wird der Tastaturcode des Zei¬ 
chens abgespeichert. 

Zum Aufzeichnen der Ereignisse 
wird die im folgenden beschriebene 
Routine APPL_TRECORD verwen¬ 
det: 

ap_trreturn = appl_trecord( buffer, 
evnt_num); 

buffer: 

Speicherbereich, in den die ein¬ 
zelnen Ereignisse geschrieben 
werden sollen ( benötigte Bytes: 

= Anzahl der Ereignisse x 8 -> 
siehe unten). 


evnt_num: 

Anzahl der Ereignisse, die auf¬ 
gezeichnet werden sollen. 

Um zu wissen, wieviel Speicherplatz 
wir für unsere Ereignisse reservieren 
müssen, schauen wir uns das Format 
an, in dem die Ereignisse von AES 
abgespeichert werden. Beim Erarbei¬ 
ten der Parameter der Routine stellte 
sich leider heraus, daß die Original¬ 
dokumentation mal wieder nicht mit 
der Praxis übereinstimmt. 

Format eines Ereignisses: 

1. LONG-Word: Dieses LONG- 
WORD (und nicht wie in der Origi¬ 
naldokumentation beschrieben: IN- 
TEGER-WORD) enthält das Ereig¬ 
nis. Die Ereignisse sind durchnume¬ 
riert, wobei 

Timer den Wert 0, 
Maustasten den Wert 1, 
Maus den Wert 2 
und die Tastatur den Wert 3 

besitzen. Warum von den Program¬ 
mierern der Routine dafür ein LONG- 
WORD reserviert worden ist, ist mir 
eine Rätsel. Ein Byte (!) hätte voll¬ 
kommen gelangt. Auf diese Weise 
werden 3 (in Worten: drei) Bytes, die 
den Wert 0 enthalten, zusätzlich spei¬ 
cherverschwendend zu jedem Ereig¬ 
nis abgespeichert. 

2. LONG-Word: Diese vier Bytes 
enthalten abhängig von dem Ereignis 
ihren Eintrag ( Bei den Beispielen 
wird immer ein Wort dargestellt): 

Timer: 

Es wird im LONG-WORD die 
Anzahl der vergangenen 1/10- 
Sekunden abgespeichert. Dabei 
ist die Zeit maßgebend, die zwi¬ 
schen zwei Ereignissen vergan¬ 
gen ist. 

Beispiel: 0 0 0 20 - Dieses 
Ereignis stellt eine Pause von 
32 ( 20 ist hexadezimal) Milli¬ 
sekunden dar. 


Maustasten: 

Hier wird der Status der Maus¬ 
tasten vermerkt. Die Anzahl 
der Tastendrücke wird in den 
ersten zwei Worten und der 
Status ( 0 bedeutet Maustaste 
nicht gedrückt, 1 bedeutet 
Maustaste gedrückt) in den 
beiden letzten Worten abge¬ 
speichert. 

Beispiel: 0 1 2 1 - Die linke 
Maustaste (1) wurde zweimal 
(2) gedrückt. 

Maus: 

Die beiden Wörter dienen dem 
Abspeichem der absoluten X- 
und Y-Koordinate der Maus. 
Die X-Koordinate ist im ersten 
Wort und die Y-Koordinate 
im zweiten Wort zu finden. 
Beispiel: 0 2 30 A0 - Die 
Maus ist zur Koordinate 
(48/160) verschoben worden. 

An der Auflistung erkennt man, daß 
man pro Ereignis acht Bytes reservie¬ 
ren muß. Um eine genaue Mausfüh¬ 
rung zu ermöglichen, wird natürlich 
jede Koordinatenverschiebung bei 
appl_trecord einzeln aufgezeichnet. 
Wird beispielsweise die Maus von der 
Koordinate (10,100) auf die Koordi¬ 
nate (110,100) langsam verschoben, 
so bedeutet dies 100 Ereignisse und 
damit 800 Bytes - Es lebe der MEGA- 
ST...Folgerung: Das Aufzeichnen 
von Daten, besonders wenn die Maus 
verwendet wird, ist äußerst speicher¬ 
intensiv. 


geht weiter... 
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Unser Recorder 
braucht eine WIE- 
DERGABE-Taste 

Zur Wiedergabe der Ereignisse wird 
die Routine appl_tplay des AES ver¬ 
wendet, die wie folgt definiert ist: 

ap_tpretum = appl_tplay(buffer, 
evnt_num, scale ) 

buff er: 

Enthält wie bei appl_trecord 
die Adresse des Speicherbe¬ 
reichs, in dem die Ereignisse 
gespeichert sind. Der Puffer 
muß mindestens achtmal so 
groß sein wie evnt_num. 

evntjmm: 

Dieser Parameter gibt die 
Anzahl der Ereignisse an, die 
abgespielt werden sollen. 

scale: 

Bei scale handelt es sich um 
einen Skalierungsfaktor, durch 
den die Geschwindigkeit ange¬ 
geben wird ( Auf keinen Fall 
die Zahl Null verwenden!!! ) 

Ein Wort noch zu dem Parameter 
scale und der Zeitsteuerung. Entge¬ 
gen der Ausführung wird der Zeitein- 


sondern nur in zehntel Sekunden 
durchgeführt- dies ist eine wichtige 
Tatsache, denn es ist ja wohl ein rela¬ 
tiv großer Unterschied, ob der Rech¬ 
ner eine Pause von einer oder von 
hundert Sekunden einlegt, nicht ?! In 
der Originaldokumentation findet 
man weiterhin unter dem Stichwort 
scale, daß der Wert 100 normale, der 
Wert 50 halbe und der Wert 200 
doppelte Geschwindigkeit bedeutet. 
Leider ist auch dies falsch, aber keine 
Angst, das Rätsel ist gelöst. Die Rou¬ 
tine teilt schlichtweg alle Zeitwerte 
durch den angegebenen Skalierungs¬ 
faktor. Was folgt daraus ? Keine Zeit¬ 
steuerung in der Ereignisliste, also 
auch keine Skalierungsmöglichkeit ! 
Weiterhin ist es nicht sinnvoll, bei 
Zeitwerten die bespielsweise kleiner 
10 sind, einen größeren Skalierungs¬ 
faktor als 10 zu verwenden, denn 
kleiner als 1 kann die Division nicht 
werden. Übrigens erklärt diese Vor¬ 
gehensweise auch, warum appl_tplay 
bei einem Skalierungsfaktor von 0 
abstürzt. Bei diesem Skalierungsfak¬ 
tor wird der Ausnahmevektor “Divi¬ 
sion durch Null” ausgeführt, was 
bedeutet, daß der ‘intelligente’ Pro¬ 
grammierer vergessen hat, die Divi- 


stelle abzufangen - nobody’s perfect. 
Beispiel 4 zeigt die verschiedenen 
Skalierungsmöglichkeiten. 

Resümee 

Alles in allem kann man behaupten, 
daß die Routinen ganz nützlich sein 
können, wenn man die richtigen Para¬ 
meter verwendet. Ich glaube aber, daß 
ein Aufzeichnen weniger sinnvoll ist 
als das Erstellen eigener Ereignisli¬ 
sten, denn das Aufzeichnen ver¬ 
braucht relativ viel Speicherplatz. 
Erstellt man eigene Listen, kann man 
gezielt Pausen setzen und auch mal 
ein paar Mauskoordinaten übersprin¬ 
gen, um Speicherplatz zu sparen. Um 
Ihnen noch eine Idee mit auf den Weg 
zu geben: Durch ein entsprechendes 
Programm, das es ermöglicht, hilfrei¬ 
che Listen zu erstellen, könnte über 
appLtplay ein Demonstrationspro¬ 
gramm generiert werden, daß zum 
Beispiel eigene Funktionen auf dem 
Desktop oder in anderen Program¬ 
men durchführt. 

Noch ein klitzekleiner Tip am Schluß: 
AppLtplay kann zum Setzen der 
Maus an eine bestimmte Stelle miß¬ 
braucht werden. Wie? Das wissen Sie 


trag nicht (!) in tausendstel Sekunden sion durch Null an 

der Skalierungs- ja jetzt... SH 

i 

/*****************★***********************************/ 


i. /******************************★**********************/ 

2 

/* */ 


2: /* */ 

3 

/* Dies ist ein Demonstration der Gem-Routinen */ 


3: /* Dies ist ein Demonstration der Gem-Routine */ 

4 

/* APPL_TRECORD und APPL_TPLAY */ 


4: /* APPLJTPLAY */ 

5 

/* die dem Aufzeichnen und Abspielen von Ereignissen */ 


5: /* die dem Abspielen von Ereignissen dient. */ 

6 

/* dienen */ 


6: /* ( Zeitsteuerung ) */ 

7 

/*****************************************************/ 


7 . /*****************************************************/ 

8 

9 

char buffer[8*1000] / 


8 : 

9: int buffer[]={ 

10 



10: 0,2,10,10, /* Maus (10,10 ) */ 

11 

main () 


11: 0,0,0,100, /* 10 Sekunden */ 

12 

{ 


12: 0,2,20,10, /* Maus (20,10 ) */ 

13 

int ap_ret; 


13: 0,0,0,200, /* 20 Sekunden */ 

14 



14: 0,2,30,10, /* Maus (30,10 ) */ 

15 

appl_init() ; 


15: 0,0,0,50, /* 5 Sekunden */ 

16 



16: 0,2,40,10 /* Maus (40,10 ) */ 

17 

printf("Bitte zeichnen Sie jetzt auf ! 


17: }/ 


(Taste drücken)\n") ; 


18: main() 

18 

gemdos(7) ; 


19: { 

19 



20: int ap_retz 

20 

/* Aufzeichnen von 1000 Ereignissen */ 


21: int i/ 

21 



22: 

22 

ap ret= appl_trecord(buffer , 1000) ; 


23: appl_init()/ 

23 

printf("Alle Daten sind aufgezeichnet worden ... \n") ; 


24: 

24 



25: printf("Bitte starten Sie jetzt ! 

25 

printf("Jetzt wird wiedergegeben. ... 


(Taste drücken)\n") / 


(Taste drücken)\n") ; 


26: gemdos(7)/ 

26 

gemdos(7) ; 


27: 

27 



28 : appl_tplay(buffer,7,1)/gemdos(7) / 

28 

appl tplay(buffer,1000,5)/gemdos(7) ; 


/* 1 : 1-Geschwindigkeit */ 

29 

appl tplay(buffer,1000,10)/gemdos(7) / 


29: 

30 

appl tplay(buffer,1000,20) / gemdos(7) / 


30: appl_exit()/ 

31 

appl tplay(buffer,1000,30)/gemdos(7) / 


31: } 

32 




33 

appl_exit () / 



34 

} 
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ERDEUTLICHT AN MEHR ALS 50 PROGRAMMBEISPIELEN DIE PRO¬ 
GRAMMIERUNG IN GFA-BASIC - DEM WEITVERBREITETEN BASIC 
AUF DEM ATARI ST 


ANWENDUNGEN IN 

GFA-BASIC 

INHALT 

► Alle Programme sind ausführlich doku¬ 
mentiert und übersichtlich programmiert, 
sodaß sie für jedermann verständlich sind 

► Zahlreiche kurze Listings geben Tips, Tricks 
und Anregungen, die in eigene Programme 
übernommen werden können 

► Die Programmthemen sind praxisnah aus¬ 
gewählt, entstammen vielen Bereichen und 
sind für jedermann von Interesse 

► Zur Einsparung umfangreicher Tipparbeit 
gibt es die Programmdiskette mit allen GFA- 
BASIC-Programmen dieses Buches 

WICHTIGE MERKMALE 

► Tips und Tricks zur GFA-BASIC-Pro- 
grammierung (u. a. Verwendung von GEM - 
Funktionen. Eingaberoutinen. Spritepro- 
grammierung) 

► Utility- und Hilfsprogramme (u a 

Kopierprogramme. Mauszeiger, Editor, 
Sprite- und Füllmustereditor, Disk-Echek- 
ker) 

► Grafik-Programmierung in GFA-BASIC 

(u. a. 3D-Grafik, Turtlegrafik) 

► Anwendungsprogramme (u. a Datei¬ 
verwaltung. Präsentation, Manager. Voka¬ 
beltrainer. Widerstanddekodierung) 

► Mathematische Anwendungen <u a 
Statistik. Ableitungen. Simps Integration) 

► Spiele (Alamo, Space-Race. Hamurabi. 
Klicker) 

und vieles andere mehr! 

► Programmdiskette zum Buch mit 

über 50 z. T. umfangreichen Program¬ 
men. D-430 DM 39,- 

Über 300 Seiten 1)1141 ASfe _* 

Best.-Nr. B-430 l#IVI 


DAS GFA-BASIC BUCH 
INHALT 

► Der Umgang mit dem Editor 

► Die Vorteile der strukturierten Program¬ 
mierung ohne Zeilennummem und Pascal¬ 
ähnliche Struktur 

► Kommunikation mit der Außenwelt (Peri¬ 
pherie)-Floppy. Tastatur-Prozessor, MIDI, der 
parallele u. serielle Bus, Joystick und Maus 

► Mathematik und hohe Genauigkeit 

► Schnelle Graphik schnell programmiert - 
Windows, Sprites, Alertbox, Pulldown Menüs 

► Die Systembefehle - einfaches Einbinden 
von TOS-Befehlen (XBIOS, BIOS, GEMDOS) zur 
vollständigen Nutzung des Atari-Betriebssy¬ 
stems 

► Der Sound - Beschreibung des Soundchips 
und dessen Programmierung, sogar mit 
Interrupt-Steuerung 


WICHTIGE MERKMALE 

► Die weit über 200 Befehle des neuen GfA- 
Basic-Interpreters werden mit ihrer Syntax 
und Bedeutung anhand von vielen Beispielen 
ausführlich erklärt 

► Das GfA-Basic-Buch ist in Sachgebiete 
unterteilt, um eine sinnvolle Anwendung der 
Befehle im Zusammenhang zu ermöglichen 
Dabei werden die vielfältigen Fähigkeiten der 
ATARI ST-Rechner (Graphik. Geschwindigkeit. 
Window-Technik und Sound) genutzt 

► Das GfA-Basic-Buch ist leicht verständlich 
geschrieben, so daß auch der Anfänger ohne 
Probleme seine eigenen Programme erstel¬ 
len kann. 

► Aber auch für den fortgeschrittenen 
Anwender und für den, der es einmal werden 
will, bietet das GfA-Basic-Buch die Grundlage 
zur richtigen Handhabung des Betriebssy¬ 
stems. 

► im Anhang ist eine komplette alphabetische 
Befehlsübersicht (Nachschlagewerk) enthal¬ 
ten. 

► Programmdiskette zum Buch: DM 39- 


Über 500 Seiten 


DM 49,-* 


DIE GROSSE GFA-BASIC 

PROGRAMM-SAMMLUNG 

INHALT 

Folgende Schwerpunkte sind gesetzt: 
Allgemeine Eigenschaften des GFA-Basic • 
Zahlen- und Variablenbehandlung • Dateiver¬ 
waltung und Ordner in GFA-Basic • Grundle¬ 
gende Befehle • Schleifentechnik • Felder 
(Tabellenverarbeitung u. Matrizen) • Unterpro¬ 
gramme • Menü-Steuerung Window-Tech¬ 
nik • Zufallszahlen • Sequentielle Dateien • RAN- 
DOM-Dateien • Physikalischer Diskettenzugriff 
• Textverarbeitung • Sortierprogramme • Sor¬ 
tiersystem: SORTMIX • Fakturiersystem FAK¬ 
TURA • Grafik auf dem Bildschirm u dem Druk- 
ker • Grafik-Programm: GRAFIKER • Geometrie. 
Statistik u Funktionsplott • Bildschirmspiel 
FLUSS • Kontoführungsprogramm: KONTO 
520 • und vieles mehr 

WICHTIGE MERKMALE 

Anhand von über 130 Programmbeispielen 
und Erläuterungen lernen und trainieren Sie 
das Programmieren in GFA-BASIC Von einfa¬ 
chen. aber grundlegenden Beispielen bis zur 
ausgereiften Anwendung findet der ST - Besit¬ 
zer Beispiel-Programme, die den perfekten 
Einstieg in die Programmiersprache GFA- 
BASIC leicht und interessant machen 
Alle Beispiele werden so dargestellt, daß das 
Verständnis für den Programmaufbau geför¬ 
dert wird, aber auch die Details der GFA- BASIC - 
Version deutlich werden. Die Programme sind 
gut dokumentiert, wobei die hervorragenden 
Möglichkeiten des GFA-BASIC zur strukturier¬ 
ten Programmierung genutzt werden 
► Programmdiskette zur Progr.-Sa.: 

DM 39- mit 131 Programmen in GFA- 

B DM 49 -* 

320 seiten UIVI 43j 


* Alle Preise sind unverbindlich empfohlene 
Verkaufspreise 


BESTELL-COUPON 


an Heim-Verlag 
Heidelberger Landstraße 194 
6100 Darmstadt-Eberstadt 


Heim Verlag 

Heidelberger Landstr. 194 
6100 Darmstadt-Eberstadt 
Telefon 06151-56057 


Ich bestelle_ 

zzgl. DM 5,-Versandkosten (unabhängig von der bestellten Stückzahl) 
□ per Nachnahme □ Verrechnungsscheck liegt bei 

Name, Vorname_ 

Straße, Hausnummer_ 

PLZ, Ort_ 

Benutzen Sie auch die im ST COMPUTER vorhandene Bestellkarte. 



















1 

y*****************************************************y 


1 

. /*****************************************************/ 

2 

/* 


*/ 


2: 

/* 

*/ 

3 

/* Dies ist ein Demonstration der Gern 

-Routine */ 


3: 

: /* Dies ist ein Demonstration der Gem-Routine 

*/ 

4 

/* APPL TPLAY 


*/ 


4 : 

: /* APPL_TRECORD 

*/ 

5 

/* die dem Abspielen von Ereignissen 

dient . 

*/ 


5: 

: /* die dem Aufzeichnen von Ereignissen dient 

*/ 

6 

/* ( Skalierung ) 


*/ 


6: 

: /* 

*/ 

7 

/******★************★******************★**************/ 


7 

8: 

9: 

. /*****************************************************/ 

8 

9 

int buffer[8*100]; 




: char buffer[8*10]; 


10 





10: 



11 

main() 




11: 

: main() 


12 

{ 




12: 

{ 


13 

int ap ret; 




13: 

int ap_ret; 


14 

int i; 




14: 

char i; • 


15 





15: 



16 

appl init(); 




16: 

appl_init(); 


17 





17: 



18 

for (i=0; i<100*8; i+=8) 




18: 

: printf("Bitte zeichnen Sie jetzt auf ! 


19 

{ 





(Taste drücken)\n"); 


20 

/* Maussteuerung */ 




19 

gemdos(7) ; 


21 

buffer[i]=0; /* Maus- */ 




20 



22 

buffer[i+1]=2; /* Ereignis */ 




21 

/* Aufzeichnen von 10 Ereignissen */ 


23 

buffer[i+2]=i/4; /* X-Inkrement * 

/ 



22 



24 

buffer[i+3]=50; /* Y-Koordinate 

konstant */ 


23 

ap_ret= appl_trecord(buffer, 10) ; 


25 




24 

printf("Alle Daten sind aufgezeichnet worden.., 

An"); 

26 

buffer[i+4]=0; /* Zeit- */ 




25 



27 

buffer[i+5]=0; /* Ereignis */ 




26 

/* Ausgeben des Buffers auf den Bildschirm */ 


28 

buffer[i+6]=0; 




27 



29 

buffer[i+7]=10; /* Zeit = 10 */ 




28 

for (i=0; i<80; i+=2) 


30 





29 

{ 


31 

} 




30 



32 





31 

if (! (i%16)) 


33 

printf("Bitte starten Sie jetzt ! 




32 

printf("\n") ; 



(Taste drücken)\n"); 




33 



34 

gemdos(7); 




34 

printf( " % 4 x ", *(int*) (buffer+i)) ; 


35 





35 

} 


36 

appl_tplay(buffer,200,1)/gemdos(7) ; 

/* 

1:1 */ 


36 

gemdos(7); 


37 

appl_tplay(buffer,200,2)/gemdos(7); 

/* 

1:2 */ 


37 



38 

appl_tplay(buffer,200,3)/gemdos(7) ; 

/* 

1:3 */ 


38 

appl_exit() ; 


39 

appl_tplay(buffer,200,4)/gemdos(7); 

/* 

1:4 */ 


39 

} 


40 

appl_tplay(buffer,200,5)/gemdos(7); 

/* 

1:5 */ 





41 

appl_tplay(buffer,200,10)/gemdos(7) ; 

/* 

1:10 */ 





42 








43 

appl exit(); 







44 

} 








" ^ 

Harte Sachen ! - Easytizer zu gewinnen ! 

Wir möchten dem häufig geäußerten Wunsch unserer Leser, mehr Hardware zu bringen, 
in der Zukunft größere Aufmerksamkeit widmen. Das erste Projekt, der Easytizer, ist ja 
schon veröffentlicht, und es hat sich eine große Resonanz gezeigt. 

Um nun lesemahe Projekte entwickeln zu können, möchten wir alle unsere Leser bitten, 
uns Ihre Wünsche, Probleme oder Ideen, die sich als Projekt veröffentlichen lassen, 
mitzuteilen. Dazu kann man die im Heft befindliche Postkarte an die Redaktion verwenden 
und mit dem Stichwort ‘Hardware’ versehen. Natürlich sind auch fertige Schaltungsideen 
jederzeit willkommen. 

Damit sich das Schreiben auch lohnt, verlosen wir unter den Einsendungen, gleichgültig 
ob es sich um ein Angebot, eine Idee oder auch nur ein Wunsch handelt, ab Dezember 1987 
alle zwei Monate einen fertig aufgebauten Easytizer. 

‘MERLIN’ Computer GmbH 
‘Hardware’ 

Industriestr. 26 
D-6236 Eschborn 

_ J 
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Postkarte 


/I 




ABO 


X 





ABO 


Bitte 
mit 
60 Pf. 
frankieren 


Absender 

(Bitte deutlich schreiben) 


Vorname/Name 


Straße/Nr. 


PI.Z/Ort 


//e/m-Verlag 

Heidelberger Landstr. 194 

6100 Darmstadt-Eberstadt 

Telefon 0 6151/56057 


/I 




X 


/I 


BBBSHiSl 


Einzelheft- u. 
Disketten Service 


Einzelheft- u. 

Monatsdisketten 

Bestellung 


Absender 

(Bitte deutlich schreiben) 


Vorname/Name 


Straße/Nr. 


Pt Z/Ort 




/I 

Kleinanzeigen 


X 





Kleinanzeigen 


Bitte 
mit 
60 Pf. 
frankieren 


Postkarte 


//e/m-Ver lag 

Heidelberger Landstr. 194 

6100 Darmstadt-Eberstadt 

Telefon 0 6151/56057 


Postkarte 


Bitte 
mit 
60 Pf. 
frankieren 


Absender 

(Bitte deutlich schreiben) 


_ -Verlag 

Vorname/Name 

Heidelberger Landstr. 194 

Straße/Nr. 


PLZ/Ort 


6100 Darmstadt-Eberstadt 

Telefon 0 6151/56057 





































Süa 


Abonnement 


X 


Ja, bitte senden Sie mir die ATARI-Computer Fachzeitschrift ab _ 

für mindestens 1 Jahr (11 Hefte) zum ermäßigten Preis von jährlich DM 70,- frei Haus. 

(Ausland: Nur gegen Scheck-Voreinsendung DM 90,- Normalpost. DM 120,- Luftpost) 

Der Bezugszeitraum verlängert sich nur dann um ein Jahr, wenn nicht 6 Wochen vor Ablauf des Abonnements gekündigt wird. 

Gewünschte Zahlungsweise bitte ankrcu/cn 

□ Bequem und bargeldlos durch ßankeinzug 


BIZ 


Vorname 


Institut 


Ort 


Straße/Nr. 


PLZ 


Ort 


□ Ein Verrechnungsscheck über DM - 

liegt bei. 

□ Vorauskasse per 
Post-Einzahlung (Zahlkarte) 

Garantie: 

Diese Bestellung kann ich schriftlich innerhalb einer 
Woche (rechtzeitige Absendung genügt) widerrufen. 
Dies bestätige ich durch meine 2. Unterschrift. 


Unterschrift 


Datum 


Unterschritt 


fl 


BSBEHiga 


ABO 


ST 


™ Einzelheft- 

u. Monatsdisketten 


Bestellung t 


ST-Computer können Sie direkt beim HEIM-VERLAG zum Einzelheft-Preis von DM 6,— (1986 + 1987) 
DM 7,— (1988) nachbestellen. Bearbeitung nur gegen beigefügten Scheck über den entsprechenden Betrag 
(keine Überweisung). 


Jan. 

| Febr. | März 


| Mai 1 Juni 

1 Juli/Aug. 

Sept. 

Okt. 

Nov. 

Dez. 



| April 





























+ Gebühr für Porto u. Verp. 


(1 Heft DM 2,-, ab 2 Hefte DM 5,-) 
di Scheck in Höhe 


1986 = DM 

1987 = DM 

1988 = DM 
= DM 

zus. DM 


liegt bei 


Disketten Service 

Alle Programme, die in ST-Computer veröffentlicht wurden, sind auf Disketten erhältlich. Die Disketten 
enthalten die Programme von jeweils 2 ST-Computer-Ausgaben. Bestellen Sie durch ankreuzen die ge¬ 
wünschten Disketten 


Preis je 
Diskette 
28,-DM 


Jan./Febr. 

März/Apr. 

Mai/Juni 

Juli/Aug. 

Sept./Okt. 

Nov./Dez. 

Jan./Febr. 

März/Apr. 

Mai/Juni 

87 

87 

87 

87 

87 

87 

88 

88 

88 


Lieferung: gegen beigefügten Scheck zuzügl. 5,— DM Versandkosten, 
unabhängig der bestellten Menge. 




Einzelheft- u. 

Monatsdisketten 

Bestellung 


fl 


agjfffiqai 


Kleinanzeigen-Auftrag 


t 


Bitte veröffentlichen Sie für mich folgende Kleinanzeige in der angekreuzten Rubrik 


Biete an C Hardware 
C Software 


Ich suche □ Hardware C Tausch 
□ Software L Kontakte 


G Verschiedenes 

□ 


30 Buchstaben je Standardzeile - incl. Satzzeichen und Wortzwischenräume. 
Groß- und Kleinbuchstaben verwenden, fettgedruckte Wörter unterstreichen. 


Bearbeitung nur gegen Vorausscheck über den entsprechenden Betrag (keine Überweisung) 


privat = DM 7, - je Zeile incl. MwSt. 

G gewerblich = DM 15.- je Zeile + MwSt. 
□ Chiffregebühr = DM 10.- 


G Scheck über DM_ 
ist beigefügt 


Bei Angeboten: Ich bestätige, daß ich alle 
Rechte an den angebotenen Sachen besitze. 


Unterschrift 

Absende'angaben auf der Rückseite nicht vergessen 


fl 


l V ÜL»li=a 


Kleinanzeigen 






























































































fl 


Kontaktkarte 


aiai M ii=u 


fl 


Kurzmitteilung 


/I 


raa"n=>= 


Kontaktkarte 


Bitte Adresse der Firma, bei der Sie Informatio¬ 
nen, oder etwas bestellen möchten, auf der 
rechten Seite eintragen — — ^ ^ ^ ^ — 

Absender 

(Bitte deutlich schreiben) 


Vorname/Name 


Beruf 


St raße/Nr. 


PLZ/Ort 


Telefon Vorwahl/Rufnummer 


Postkarte 



Firma 


Straße/Post fach 


PLZ Ort 


fl 




Kurzmitteilung 


Absender 

(Bitte deutlich schreiben) 


Vorname/Name 


St raße/Nr. 


PLZ/Ort 


Telefon 


Postkarte 



Merlin Computer GmbH 
ST-Computer Redaktion 
Industriestraße 26 

6236 Eschborn 


« EHE3 


fl 

PD Bestellung 


fl 




PD Bestellung 


Absender 

(Bitte deutlich schreiben) 


Vorname/Name 


St raße/Nr. 


Postkarte 



Merlin Computer GmbH 
ST-Computer Redaktion 
Industriestraße 26 

6236 Eschborn 









































/I 




□ Ich bitte um weitere Informationen 

□ Ich gebe folgende Bestellung auf 

in Bezug auf Ihre Anzeige in ST-Computer Heft 


Seite _ 


Menge 

Produkt/Bestellnummer 

DM 

gesamt DM 






































X 


Abgesandt am: 


/I 




Firma: 


Bemerkungen: 


Datum, Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 


/I 




Meine Meinung 


X 


/I 




Zu dem Artikel _ in Heft _, Seite _ 

hätte ich folgendes zu bemerken: 

□ Ich möchte Ihnen folgendes Programm zur Veröffentli¬ 
chung anbieten: (Kurzbeschreibung, Sprache, Länge in 
Druckerseiten, GEM/TOS) 

□ Ich kann über folgendes Thema berichten: (Tips & Tricks 
am ST, Hardware, Software, etc.) 

□ Ich möchte gerne Autor in der ST-Computer werden. Meine 
Fachgebiete: (z.B. LISP, Pearl, Modula-2, Assembler ...) 

□ Ich möchte, daß folgendes Public-Domain Programm in Ihre 
Sammlung aufgenommen wird. 

□ Sonstiges 

Bei weiteren Angaben oder Fragen wenden Sie sich bitte schrift¬ 
lich oder telefonisch an die Redaktion. Tel. 0 61 96/48 18 11 


J1 PUBLIC DOMAIN SERVICE 

Ich bestelle folgende PD-Disketten: 

(Siehe PD Service in dieser Ausgabe) 


Zahlung erfolgt: 

□ per Scheck 

□ per Nachnahme 


Kurzmitteilung 


X 


/I 


Eggsanu 


PD Bestellung 


Je Diskette fügen Sie bitte einen Betrag von DM 10,- bei, 

für Porto und Verpackung je Sendung DM 5,- (Ausland DM 10,-) 


Datum 


Unterschrift 


Datum 





















































































Einkaufsführer 

Hier finden Sie Ihren 
Atari Fachhändler 


Anzeigenschluß für Heft 6/88 ist der 23.04.88 


1000 Berlin 


1000 Berlin 



ilpha 

dom 


omputers g.m.lxh. 

S^iK u. a. alphatronic. atari, commodore, 
daü epson, sord mit pips, nec 
hard/software nach maß — 
Servicetechnik 




Kurfürstendamm 121a, 1000 Berlin 31 (Halensee) 
Telefon 030/8911082 


/ 


[ 


1 


Computare 


Keithstr.18-20 • lOOO Berlin 30 
m 030/21390 21 
aii 186 346 com d 


DATAPLAY 


Bundesallee 25 • 1000 Berlin 31 
Telefon: 030/861 91 61 



A ATARI 

. wir machen Spitzentechnologie preiswert. 


DIGII4L 

COMPUTER 



VarkaufsbOro (I.OO) 1 Berlin 12 
Knaaab*ckstr. 78 • Tel. M27791 


Software Hardware Beratung Zubehßr Sorrtce Literatur 


Ihre Tür: 


• Zukunft'- 


r^r^ nnp ' 8 


H 


Steglitz Schloßstraße 
030/79001-418 


Ihre Tür zur Zukunft: 


Karstadt- 

computsr-cEntEf 

hardtuare-softnjare-Problemlösungen 


5 nunDiiJ 

Büroelektronik 
Keithstraße 26 • 1000 Berlin 30 
© 26111 26 


Computershop 
Edith Behrendt 

Fürbringerstraße 26 • 1000 Berlin 61 
Telefon 0 30/69176 66 


A ATARI 

... wir machen bpitzentechnologie preiswert. 


Vertragshändler 

UNION ZEISS 

KurfOrstendamm 57 • 1000 Berlin 15 
Telefon 32 30 61 


COMPUTER-STUDIO 

chlichting 

. . die etwas andere Computerei W 

Autorisierter ATARI-Fachmarkt 
MS-DOS Fachmarkt • NEC-Fachhandel 


Katzbachstraße 8 * 1000 Berlin 61 
-S* 030/7864340 


2000 Hamburg 


Bit Cömputer Shop 

OstefStraBeTO • 2000 Hamburg 20 
TetdOfr. 040/494400 

Createam 

Computer Hard & Software 

Bramfelder Chaussee 300 • 2000 Hamburg 71 
Telefon Sa. Nr. 040/641 5091 _ 


Hardware 

Software 

Beratung 

Service 


HCA6 


HABA 

COMPUTER AG 



ATARI Systemfachhändler 

Münsterstraße 9 • 2000 Hamburg 54 


Telefon 040/56 60 1-1 


Gerhard u. Bernd Waller GbR 
Computer & Zubehör-Shop 

Kieler Straße 623 
2000 Hamburg 54 

© 040/5706007 + 57052 75 


NEU: Software Shop 

RADIX Bürotechnik 

Heinrich Barth Str. 13 
2000 Hamburg 13 
Telefon: 040-441695 



2000 Norderstedt 



Sienknecht 

Bürokommunikation 

Beratung - Verkauf - Werkstatt 

Heiligengeiststr. 20, 2120 Lüneburg 
Tel. 04131/4 6122, Btx 4024 22 
Mo.-Fr. 9°°-18 00 und Sa. 9 00 -13 00 
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2210 Itzehoe 


larSErncLlesrladai 

Inhaber Ulrich Bubei ■Martin Kopplow 

Coriansberg 2 • 2210 Itzehoe 
Telefon (0 48 21) 3390/91 


2300 Kiel 


mcci 

ITlicro Computer Christ 


Die Welt der Computer 
Dreiecksplatz Nr. 7 
2300 Kiel 1 • © 04 31/56 70 42 


2350 Neumünster 



2390 Flensburg 



2800 Bremen 


PS-DATA 

Doventorsteinweg 41 
2800 Bremen 
Telefon 0421-1705 77 

2850 Bremerhaven 


HEIM- UNO PERSONALCOMPUTER 

n? 7 ! Hurt Jlfeumann 

SPUKJ <> »Bürger“ 160 
V—ItCWiirulicr y 2850 Bremerhaven 
— 1 - ‘ Tel. 04 71/4 20 06 

HARDWARE • SOFTWARE • PAPIERWARE 

2940 Wilhelmshaven 


Radio Tiemann 

ATARI-Systemfachhändler 

Markstr. 52 

2940 Wilhelmshaven 

Telefon 0 4421-261 45 


2950 Leer 



• HARDWARE-SOFTWARE • EDV-SCHULUNG 

• SYSTEM-ENTWICKLUNG • EDV-BERATUNG 

• ORGANISATION • SERVICE-WARTUNG 


Augustenstraße 3 • 2950 Leer 
Telefon 04 91-45 89 


3000 Hannover | 


COM DATA 

Am Schiffgraben 19 • 3000 Hannover 1 
Telefon 0511-32 6736 



Computer 

GmbH 



i_r 

U1J 


Großer Hillen 6 3000 Hannover 71 

V Telefon (0511) 52 25 79 M 



DATALOGIC 

COMPUTERSYSTEME 

ATARI ST- BERATUNG 
COMPUTER SERVICE 
HAR0WARE VERKAUF 
SOFTWARE 

CALENBERGER STR 26 
3000 HANNOVER 1 
TEL 0511-32 64 89 


trEfid 



IBM EPSON • TRIUMPH ADLER itOP 

HEWLETT PACKARD • ATARI etc. lipUlvl 


trendDATA Computer GmbH 
Am Marstall 18-22 ■ 3000 Hannover 1 
Telefon (05 11) 1 66 05-0 


3040 Soltau 


F & T Computervertrieb 

Am Homberg 1 
(Industriegeb. Almhöhe) 
3040 Soltau 
Tel. 05191/16522 


3150 Peine 


Wieckenberg & Schräge GmbH 

Computertechnik 
Hard- u. Software 

Woltorfer Str. 8, 3150 Peine 

Tel. 05171/6052/3 0 . 05173/7909 


3170 Gifhorn 


COMPUTER-HAUS 

GIFHORN 

Braunschweigerstr. 50 
3170 Gifhorn 
Telefon 0 5371-54498 


3300 Braunschweig 


COMPUTER STUDIO 
BRAUNSCHWEIG 


Rebenring 49-50 
3300 Braunschweig 
Tel. (05 31) 33 32 77/78 


3400 Göttingen 


Büroeinrichtungs-Zentrum 

^iederholdt 

3400 Göttingen-Weende 
Wagenstieg 14 - Tel. 0551/3857-0 


- — 

3470 Höxter 



3500 Kassel 


Hermann Fischer GmbH 

autorisierter ATARI-Fachhändler 

Rudolf-Schwander-Str. 5-13 

3500 Kassel 

Tel. (0561) 700000 


3550 Marburg 

L W M 

COMPUTER SERVICE 

Bahnhofstraße 26 b 
3550 Marburg/Lahn 
0 06421-62236 

4000 Düsseldorf 


BERNSHAUS GmbH 
Bürotechnik - Bürobedarf 

Cäcilienstraße 2 

4000 Düsseldorf 13 (Benrath) 
Telefon 0211-719181 
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4000 Düsseldorf 


4400 Münster 


4600 Dortmund 


EDV ANLAGEN GMBH 

Flügelstr. 47 
4000 Düsseldorf 
Tel. 0211-77 62 70 


4050 Mönchefigladbach 


(SSffiMiäfF 


zommescm 


Hindenburgstr. 249 
4050 Mönchengladbach 
Tel. 02161-18764 


4150 Krefeld 



Computer Service GmbH 
Lewerentz Str. 111 
4150 Krefeld 
Tel. 0 2151/77 30 42 


• Service-Center 

• Hardware 

• Software 

• Erweiterungen 


- _——-—- 

4250 Bottrop 


Megateam-Computer-Systeme 

Kirchhellenerstraße 262 
4250 Bottrop 


4300 Essen 


ATARI Systemfachhfindler 


gB&a 


KARSTADT Aktiengesellschaft 
Llmbecker Platz 4300 Essen 1 
Tel.: (02 01) 1763 99 


4320 Hattingen 


ihre 


; Tür zur Zukunft^ 


Äuter-c^ 




4330 Mülheim 


Computer und Bürotechnik 
Vertriebsgesellschaft mbH 

Dickswall 79 4330 Mülholm Tolelori 0208/34034 


Computer Hard- und Software auch Im Leasing 

landon Computarkurt« lür Anlin(*( und FongiichtltltA« 
Cornput»- 

VICTOR >1 SEL-Fernkoplerer 

/VFC A ATARI oki 



COMPUTER SYSTEME GMBH 
Oaimlerweg 39 - 4400 Münster 
Telefon 02 51 / 71 99 75 - 9 



4410 Warendorf 


0 Digital Works ö 


fi ÜÜ 


© 


Computer-Fachhandel - Hardware & Software 

Jörg Kellert - Helmut Müller GbR 
Brünebrede 17 • 4410 Warendorf 
Tel. 02581/61126 


4422 Ahaus 


ATARI • Epson • Fujitsu 
Molecular • NCR • Tan- 
don • Schneider • Star 

OCB 

OCB-Computershop 

OCB-Hard- und Software 

Wallstraße 3 

Wessumerstraße 49 

4422 Ahaus 

4422 Ahaus 

Tel. 02561/5021 

Tel. 025 61/50 21 


4430 Steinfurt 


ATARI SCHNEIDER STAR NEC SEIKOSHA PANASONIC EPSON 


©omputer“ 


°3üromaschinen 


>ervice 


Telefon 02551/2555 


Tecklenburger Sir. 27 4430 Steinfurt 


4500 Osnabrück 


Heinicke-Electronic 

Kommenderiestr. 120*4500 Osnabrück 
Telefon 05 41 - 8 27 99 

Wir liefern Micro-Computer seit 1978 


4600 Dortmund 


Bürostudio BOLZ 

Brauhausstraße 4 • 4600 Dortmund 
Telefon 02 31-52 7713-16 


IweTiüS 


Zukunft'- 






I-l -, Atari, Genk, Schneider, Tandy, Brothet, Star, Memortx, 

M BASF, Verba tim 

cc Computer Studio GmbH 
•Jy Software-Hardware-Beratung 

1 —^ Service-Eilversand 

Ihre Ansprechpartner: Elisabethstraße 5 

v. Schablinski 4600 Dortmund 1 

Jan P. Schneider T. 0231/528184 Tx 822631 cccsd 


Elektronik 

Computer 

Fachliteratur 

ATARI-System-Fachhändler 

4600 Dortmund 1. Güntherstraße 75, Tel. (02 31) 57 22 84 

city-elektronik 

4620 Castrop-Rauxel ~1 


R. Schuster Electronic 

OBEREMÜNSTERSTR. 33-35 ff (02306) 3770C 4630CASTROP-RAUXEL 


A ATARI 

System-Fachhändler 


4650 Gelsenkirchen-Horst 


icnu/pan 

Hard- und Software, Literatur 
Bauteile, Service, Versand 

Groß- und Einzelhandel 
Poststr. 15 • 4650 Gelsenkirchen-Horst 
Tel. 0209/52572 


4700 Hamm 



4800 Bielefeld 


hardware 

aoftwara 

Organisation 

aervlct 



CSF COMPUTER & SOFTWARE GMBH 
Heeper Straße 106-108 
4800 Bielefeld 1 
Tel. (0521) 61663 


Carl-Severing-Str. 190 
4800 Bielefeld 14 

Telefon: 0521/45 99 - 150 ^^^^^ 
Telex : 937340 kr ab d 
Telefax: 0521/45 99-123 Software 
Hardware 
Beratung 
Service 
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5000 Köln 



bürcbmaschinen 


AM RU 


5000 KÖLN 1 

RICHARD-WAGNER-STR. 39 
RUF: 0221/21 91 71 


5010 Bergheim 


f 1 Computerstudio 

I jHÖLSCHER 


EDV-Beratung • Organisation 
Programmierung • Home/Personal-Computer 
Software • Zubehör • Fachliteratur 

Zeppelinstr. 7 • 5010 Bergheim 
Telefon 0 2271-62096 


5060 Bergisch-Gladbach 


Computer Center 

Buchholzstraße 1 
5060 Bergisch-Gladbach 
Telefon 02202-35053 


5090 Leverkusen 


Rolf Rocke 

Computer-Fachgeschäft 
Auestraße 1 

5090 Leverkusen 3 

Telefon 0 21 71/2624 

5200 Siebgurg 


Computer Center 

Luisenstraße 26 
5200 Siegburg 
Telefon 02241/66854 


5220 Waldbröl 

mnf#i 

■ u u m 

remn 

m m pr 

COMPUTlRSYSTtM£ B 

Walds traße 1 • 5220 Waldbröl 
g (022 91) 4408/3386 

5300 Bonn 



Gesellschaft für Computer- und ComrTXjnicationstechnologie mbH 

Hardware • Software • EDV-Zubehör 


* Telefon 0228/222408 
C0C0 GmbH • Schumannstraße 2 • 5300 Bonn 1 


5457 Straßenhaus 

DR. AUMANN GMBH 
Computer-Systeme 

Schulstr. 12 
5457 Straßenhaus 
Telefon 02634-4081/2 


5500 Trier 


bürocenter 

LEHR 

Güterstr. 82 - 5500 Trier 
06 51-2 50 44 

Fordern Sie unsere Zubehör-Liste an. 

5540 Prüm 


ÄT C COMPUTER 
MKj.M. ZABELL 
Ritzstraße 13 • Pf. 10 51 
5540 PRÜM 
- Tel.: 0 65 51-30 39 - 


5600 Wuppertal 


Jung am Wall 

Wall 31—33 
5600 Wuppertal 1 

Telefon 0202/450330 


MEGABYTE 

Computer Vertriebs GmbH 

Friedrich-Engels-Allee 162 
5600 Wuppertal 2 (Barmen) 
Telefon (0202) 81917 


5630 Remscheid 


COM SOFT 

Schelderstr. 12 • 5630 Remscheid 
Telefon (0 2191) 210 33-34 


5650 Solingen 


MegaTeam 

Hardware - Software 
Zubehör - Service 

Hauptstraße 1 - 3 
5650 Solingen 1 
Tel. 0212/45888 



5800 Hagen 


A ATARI 

wir machen Spuientechnotog* preiswert- 


Vertragshändler Axel Böckem 
Computer + Textsysteme 

Eilper Str. 60 (Eilpezentrum) • 5800 Hagen 
Tel. 0 2331/73490 


5900 Siegen 


Hee/ 


Vertrieb» III GmbH 
Hardware Software Schulung 


^Siegen • Weldenauer Str. 72 - g 02 71/7 34 95^, 


6000 Frankfurt 


Müller & Nemecek 

Kaiserstraße 44 
6000 Frankfurt/M. 
Tel. 0 69-23 25 44 


WAIZENEGGER 

Büroeinrichtungen 

Kaiserstraße 41 
6000 Frankfurt/M. 

-E 1 069/27306-0 


Büro-Computer + Organisation GmbH 



Oederweg 7-9 
6000 Frankfurt am Main 1 
-57(069) 5504 56-57 


Qz Commodore OKI ATARI TOSHIBA 


6100 Darmstadt 


44e7m 

Büro- und Computermarkt 

Heidelberger Landstraße 194 
6100 Darmstadt-Eberstadt 
0 0 61 51 /56057 



KARSTADT Aktiengesellschaft 
Elisabethenstr. 15 * 6100 Darmstadt 
Luisencenter • Tel. 0 61 51-10 94 20 


6240 Königstein 


KFC 

COMPUTERSYSTEME 

Wiesenstraße 18 
6240 Königstein 
Tel. 0 6174-30 33 
Mail-Box 0 6174-5355 
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6300 Gießen 


6520 Worms 


7022 L-Echterdingen 



Schneider ATARI Commodore 

BAUMS 

BÜRO • ORGANISATION 

Bahnhofstr. 26 • 6300 Gießen 
Telefon: 06 41/710 96 


J/i j 


IfiT cocorc 

111 LI M IILL 

ScKnitmtllt p«i«ht« Ktmch »4 >nri SI Cy7üT»r~MB 


Thomas Heß 
Asterweg 10 • 6300 Gießen 
Telefon 06 41/3 91 53 


6330 Wetzlar 


E Fachmarkt 

für 

Computer u. 
Unterhaltungs- 
electronic in Wetzlar. 
Einkaufszentrum Bahnhofstwße. Tel. (0 64 41) 4 85 66 


6400 Fulda 


Schneider ATARI Commodore 

WEINRICH 

BÜRO-ORGANISATION 

Ronsbachstraße 32 • 6400 Fulda 
Telefon: 06 61/4 92-0 


6457 Mainlai 


Landolt-Computer 

Beratung • Service • Verkam • Leasing 


Wingertstr. 112 
6457 Maintal/Dörnigheim 
Telefon 06181-45293 


6500 Mainz 


: ELPHDTEC 

Computer Systeme 

Ihr Atari Systemhändler 
mit eigenem Service-Center 

Walpodenstraße 10 
6500 Mainz 

Telefon 0 61 31 - 23 19 47 


ORION 

Computersysteme GmbH 
Friedrichstraße 22 
6 5 20 WORMS 
Tel. 0 6241/6757-6758 


6700 Ludwigshafen 

MKV Computermarkt 

Bismarck -Zen trum 

6700 Ludwigshafen 
Telefon 0621-525596 

6720 Speyer 

MKV Computermarkt 

Gilgenstraße 4 

6720 Speyer 

Telefon 06232-77216 

6750 Kaiserslautern 

c.o.s 

Computer 

Organisation GmbH 

Friedrlchstr. 4 • 6750 Kaiserslautern 
Telefon (0631) 9 20 51 

6800 Mannheim 

MOMP 19 B* 

Computersysteme + Textsysteme 

6800 Mannheim 24 

Casterfeldstraße 74-76 
'S (0621) 85 0040- Teletex 6211912 

, | Computer-Center 

am Hauptbahnhof GmbH 

ooooo ■ ■n 

^ ^ nur*- - -' 

L 14, 16-17 

6800 Mannheim 1 

Tel. (06 21) 2 09 83/84 

6900 Heidelberg fl 

JAC0M COMPUTERWELT 

Hardware • Software 
Schulung • Service 

MönchhofstraBe 3 • 6900 Heidelberg 
Telefon 0 6221/410514-550 


KIDEIBSCER 

COMPUTER CENTER 

Bahnhofstraße 1 

6900 Heidelberg 

Telefon 06221/27132 


Autorisierter ATARI- 
System-F achhändler 

ATARI ST 


Matraii 

;Computer;! 


Matrai Computer 
GmbH 

Bernhauser Str 8 
7022 L -Echterdingen 

- 2 * ( 0711 ) 797049 


7030 Böblingen 


Verkauf - Service - Software 



Norbert Hlawinka 
Sindelfinger Allee 1 
7030 Böblingen COMPUTER 
Tel. 0 70 31/22 6015 CENTER 


7100 Heilbronn 


Unser Wissen ist ]hr Vorteil 

Walliser & Co. 

Mönchseestraße 99 

7100 Heilbronn 

Telefon 07131/60048 


Computer-Welt 


V Am Wollhaus 6 
7100 Heilbronn 
Tel. 07131-68401-02 


7101 Flein 


der COMPUTERLADEN von 

** yoPT ex 

ln der Falterstraße 
7101 Flein 

Beratung, Service, Verkauf, 
Software-Entwicklung 
direkt beim Peripherie-Hersteller 


7150 Backnang 


Computer-Fans finden bei uns alles von: 



7400 Tübingen 


Werner Brock 

COMPUTERSSTUDIO 

Poststraße 2-4 • D-7400 Tübingen 
Tel. 0 7071-34348 • Fax 070 21-347 92 

Autorisierter Systemfachhändler für: 

ATARI, Schneider, Commodore, Panasonic, 
Kaypro, Sharp, NEC, OKI, STAR,... 
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7410 Reutlingen 


7530 Pforcheim 

7800 Freiburg 


Werner Brock 

COMPUTERSHOP 

Federnseestr. 17 • 7410 Reutlingen 
Tel. 07121-342 87 

Tx 1 72 414 024 RMI 0 box rmi taisoft • Fax 0 7121 • 33 97 79 

Autorisierter Systemfachhändler für: 
ATARI, Schneider, Commodore, Panasonic, 
Kaypro, Sharp, NEC, OKI, STAR,... 


7450 Hechingen 


Gesellschaft für Datenverarbeitung mbh 

Computer • Drucker 
Zubehör • Fachliteratur 

SchloBplatz 3 • 7450 Hechingen 
Telefon 0 7471/14507 


7475 Meßstetten 


Ihr ATARI-Systemhändler im Zollern-Alb-Kreis 

H eim + or_ rnmoi iTCOmQQi'T 
Cm / L LUIII u I Ll\l ini\n i 

S HARDWARE • SOFTWARE • LITERATUR 

CHEURER 

ATARI COMMODORE CUMANA DATA BECKER 
MULTITECH RITEMAN SCHNEIDER THOMSON 

7475 Meßstetten 1 • Hauptstraße 10 0 7431/61280 


7480 Siqmarinqen 


Wir stellen uns für Sie 
auf den Kopf! 

Wir führen: 

Hardware - Software - Zubehör 
Zeitschriften - Bücher 

Wir sind autorisiert« Fachhändl«r von: 

A ATARI c DSchneider 

lancJon 


tAan c COMPUTER GMBH , q6ß - )0 iu 

7480 S'gmjcmqen brfu'q.iu 

Am Rjppqassie Pl<W(SlUllf '3 

Tel 0 75 71/124 83 Tel 0 7S8« 2598 


7500 Karlsruhe 


papierhaus erhardt 

Am Ludwigsplatz • 7500 Karlsruhe 
Tel. 0721-1608-16 


MKV GMBH 


Kriegsstraße 77 
7500 Karlsruhe 
Telefon 0721-84613 


DM Computer GmbH 

Hard- & Software 

Durlacherstr. 39 
Tel. 0 72 31-139 39 
7530 Pforzheim 
Telex 783 248 


7600 Offenburg 


FRANK LEONHARDT 
ELECTRONIC 

Ihr Fachgeschäft lür Microcomputer ■ Hifi • Funk 

ln der Jeuch 3 
7600 Offenburg 
Telefon 07 81/5 79 74 


7640 Kehl/Rhein 



Computer. Software- WUrVatng 


»igentr Strvte» • tigtne Softwir» 


Badstrasti 12 
Tel. 0 78 07/8 22 
Telex: 752 913 
7607 NEURIEO 2 

Filiale: 

Hauptstrasse 44 
Tel. 07851/1822 
7840 KEHL/RHEIN 


ELEKTRO-MUNTZER GmbH 


7700 Singen 


U. MEIER 

Com putersysteme 

7700 Singen-Htwl. 

Am Posthalterswäldle 8 
Telefon 0 7731-44211 


7730 VS-Schwenningen 


BUS BRAUCH & SAUTER 
COMPUTER TECHNIK 

Villinger Straße 85 
7730 VS-Schwenningen 
Telefon 0 7720/38071-72 


7750 Konstanz 


ATARI ★ PC’s * SCHNEIDER 


Computer - fachgeschaft 


r £r 


Rhemgutstr. 1 • 0 75 31-2 18 32 


7800 Freiburg 


CDS 

EDV-Service GmbH 

Windausstraße 2 
7800 Freiburg 
Tel. 07 61-810 47 


P M 

1»! iii 

ili 


c 

V 

m 

PiimiiPiiiih m i h 

KARTÄUSERSTRASSE 59 

D-7800 FREIBURG/BRST. 

TELEFON 0761-382038 



7890 Waldshut-Tiengen 



/crvicegmbh 

Lenzburger Straße 4 
7890 Waldshut-Tiengen 
Telefon 0 77 51/3094 


7900 Ulm 


HARD AND SOFT 
COMPUTER GMBH 

Ulms großes Fachgeschäft 
für BTX, Heim- u. Personalcomputer 

Herrenkellergasse 16 • 7900 Ulm/Donau 
Telefon 0731/ 6 2699 




Systemhaus: 

EDV-Systeme Frauenstr. 28 ^ m M ® 

Software- 7900 Ulm/Donau % ™ — ^ 

erstellung Tel 07 31/2 80 76 c< r» 

Schulung Telex 712 973 csulm-d r on?Uvtn 

5t UO^ 0 *^ 




7918 lllertissen 


bicOzch gmbh 

technische Informationsysteme 
Computerladen 


Marktplatz 13 
7918 lllertissen 
07303/5045 


7950 Biberach 


HARD AND SOFT 
COMPUTER GMBH 

Biberachs großes Fachgeschäft 
für BTX, Heim- u. Personalcomputer 

Schulstraße 6 • Bei der VHF 
7950 Biberach • Tel. 07351/12221 


7980 Ravensburg 


GRAHLE 

Expert Grahle Computer 
Eisenbahnstr. 33 
7980 Ravensburg 
Tel.: 0751/15955 

Vertragshändler für ATARI, Schneider und Star 
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8000 München 



COMPUTER - SOFTWARE • PERIPHERIE 
BERATUNG • TECHN. KUNDENDIENST 

INGOLSTADTER STR. 62 L 

EURO INDUSTRIE-PARK • 8000 MÜNCHEN 45 

TELEFON 089/3113066 TELETEX 898341 


schulz Computer 

Schillerstraße 22 
8000 München 2 
Telefon (0 89) 59 73 39 

Beratung • Verkauf • Kundendienst 


8032 Gräfeling 



COMPUTER IcHUUJNG 

Am Haag 5 

8032 Cräfelflng 

Tel. 089-854 5464,851043 


8100 Garmisch-Part. 

Uwe Langheinrich 
Elektronik Center 

Hindenburgerstr. 45 
8100 Garmisch-Partenkirchen 
Tel. 08821-71555 
Bitte Gratisliste anfordern 


8120 Weiiheim 



COMPUTER FACHHÄNDLER 


Elektro-, Radio- und Fernseh-Center 
Beleuchtungskörper • Schallplatten 
Meisterbetrieb 

8120 Wellhelm • Admlral-Hipper-Straße 1 
Geschäft 0 45 00 * Kundendienst 0 44 00 
Computer-Studio 0 6 2167 
Interfunk-Fachgeschäft 


8150 Holzkirchen 


ATARI 

Besuchen 

Fordern Sie MÜNZENLOHER GMBH 

unseren Soft- Tölzer Straße 5 

ware-Katalog 0-8150 Holzkirchen 

(520ST) an! Telefon: (0 80 24) 1814 


8170 Bad Tölz 


Uwe Langheinrich 
Elektronik Center 

Wachterstr. 3 
8170 Bad Tölz 
Tel. 0 8041-41565 
Bitte Gratisliste anfordern 



8330 Eggenfelden 



Computer-Centrum 
R. Lanfermann 

Schellenbruckstraße 6 
8330 Eggentelden 
Telefon 087 21/65 73 

Allöttinger Straße 2 
8265 Neüötting 
Telefon 0 8671/71610 

Innstraße 4 
8341 Simbach 
Telefon 0 85 71/44 10 


— m ■ bb b i-ü —mm 

8400 Regensburg 

Zimmermann 

g kzktrolcind 


8400 Regensburg 8390 Passau 

Dr.-Gessler-Str. 8 Kohlbruck 2a 

'S* 0941/95085 ‘E* 0851/52007 


8423 Abensberg 


COMPUTERVERSAND 

WITTICH 

Tulpenstr. 16 • 8423 Abensberg 

^ 09443/453 



8500 Nürnberg 


EINE IDEE ANDERS 

ES KARSTADT RÜRRRIR0 AN DIA LORf RZKIRCRE 


TECH 

H: 

l 

K 

-CE 

NTERF= 


I. KLASSE EINKÄUFEN IM tNELTSTADTNADS 



8520 Erlangen 



wir vertreiben 
markenprodukte für 
IBM AT/386 
EPSON NEC 
ATARI ST ° AMIGA 
APPLE TL 


loewenichstr. 30 - d - 8520 erlangen 

telefon 09131/25018 

telex 62 9765 atron d 


8520 Erlangen 


Computerservice 

Decker 

Meisenweg 29 - 8520 Erlangen 
Telefon 09131/42076 


Zimmermann 

clcktfolcind 

8520 Erlangen 8500 Nümbarg 

Nürnberger Straße 88 Hauptmarkt 17 
Tel. (0 9131) 3 45 68 Tel. (0911) 2 07 98 


8600 Bamberg 


IbüroH 

1 ZENTRUM 

ES 

n 

<UTZ 


Bamberg Tel.0951/27808-09^ 


8700 Würzburg 

SCHCÜÜL 

_± T _ ._ _ ^ 


Hardware • Software 
Service • Schulung 

computef ccnter 

am Domlnlkanerplatz 
Ruf (0931) 504 88 


8720 Schweinfurt 
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8900 Augsburg 


ATARI Systemfachhändler 


sssr 


KARSTADT Aktiengesellschaft 
Bürgermeister-Fischer-Str. 6-10 
8900 Augsburg • Tel.(0821)3153-416 


8940 Memmingen 


EDV-Organisation 
Hard- + Software 

Manfred Schweizer KG 

Ulmer Str. 2, Tel. 08331/12220 

8940 Memmingen 


Österreich] 


A-1020 Wien 


W + H. 

Computerhandel Ges m.b.H. 


Förstergasse 6/3/2 • 1020 Wien 
Tel. 0222-3509 68 


A-1040 Wien 


Ihr ST-Fachhändler in Wien 

Computer-Studio 

Wehsner Gesellschaft m.b.H. 

1040 Wien - Panigigasse 18-20 
Telefon 0222-657808, 658893 


A-8010 Graz 


iiliiüt mm iüiiih «.ft Hilft 
,i\\t üüiüi mm mm üiiiu 

Uli Uii 'Ui Hi’ HU ii»' ’UI iili ilitilü 



A-8010 GRAZ 
Mandellstroße 23; 


Tel.: (0316) / 70 28 40-0*. 70 28 93-0* 
Tx.:31 25 34zupana- 


Schweiz 


CH-1205 Geneve 


PIMENT ROUGE 

INFORMATIQUE S.A. 

8. RUE DES MARAICHERS 
, 1205 GENEVE TEL. 022/28 56 24 


CH-1700 Fribourg 


FRIDAT SA INFORMATIQUE 

ehern. 

Softy Hard’s Computershop 
Rte des Grives 4 
1700 Granges-Paccot / Fribourg 
0041 (0)37 26 66 28 


CH-2503 Biel 


UE 

URWA Electronic 


Ihr ATARI ST Spezialist in 
der Schweiz. 

0 32 / 25 45 53 

Lindenweg 24, 2503 Biel 


CH-3084 Bern 


Computcr^Corncr 

Ihr ATARI ST-Partner in Bern 


Hard-Software 
Midi-Schulung 


Beratung 

Service 


Seftigenstr. 240 3084 Bern-Wabern 

Zentrum Wabern O Tel.031/54 51 00 


CH-4054 Basel 


Wir sind 
Amiga- 

und ST-Freaks. 

Unsere Öffnungszeiten: 

Von Dienstag bis Freitag 
9.30 -12.30 und 14.00 -18.30 und 
am Samstag 9.30-16.00 

SvSAG 


Basel Tel 061/39 25 25 • Holeestrasse 87 • 4054 Basel 
Aarau Tel 064/22 6333 • Kasernenstrasse 26 ■ 5000 Aarau 


CH-4625 Oberbuchsiten 


STECTRONIC M. Steck 

Electronic-Computer-Shop 

Hauptstr. 104/137 
CH-4625 OBERBUCHSITEN 
Tel. 062/631727 + 631027 


CH-5430 Wetlinqen 


m 

Senn Computer AG 

# # 


Zentralstrasse 93 Tel. 056 / 271660 
CH-5430 Wettingen Telex 814 193 seco 


CH-8001 Zürich 


ADAG LASERLADEN 


SEILERGRABEN 41 . 8001 ZÜRICH 
MO-FR: 12-18.30 TEL.01/251 49 34 

DTP... LASERPRINTS ... ET CETERA! 


CH-8006 Zürich 


ADAG 

COMPUTER-SHOP 

UNIVERSITÄTSSTR. 25 
8006 ZÜRICH TEL. 01/252 18 68 


Computer-Center P. Fisch 

Stampfenbachplatz 4 
8006 ZÜRICH 
0 01/36367 67 


CH-8021 Zürich 


m 

Senn Computer AG 

# # 

langstrosse 31 

Postfach Tel. 01/24173 73 
CH-8021 Zürich Telex 814193 seco 


CH-8021 Zürich 


O WlA/17 


Das Warenhaus der neuen Ideen 

Ihr Computer-Fachhandel an der 
Bahnhofstrasse 75 • Zürich 


CH-8050 Zürich 



# f*y»T-Tn 4il 
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CH-8052 Zürich 



Computers 

zentral in Seebach, Schatthauser Str. 473,8052 Zürich 
Telefone 01-302 26-00 
Versandkatalog anfordem 



CH-8200 Schaffhausen 


CAR-AUDIO 

COMPUTER + ELECTRONIC 
Bachstraße 28 • 8200 Schaffhausen 
Tel.: 053/55224 

Montag—Freitag 
Samttag 


9.00-1200 
1330-18 30 
9.00-16 00 


CH-9001 St. Gallen 


ADAG 

COMPUTER-SHOP 
TORSTR. 25 
9001 ST.GALLEN 
-TEL. 071/25 43 42 


CH-9400 Rorschach 



□ 


Computer 8 Software 
Kirchstrasse 38 
CH-9400 Rorschach 
-_Tel. 071/41 18 85 


cf Vf 


rflL/5-electronic 

Hardware Software Systementwicklung 


Luxemburg 


IHr- Spr 



Gratech Computer GmbH 
Tel. 02151/7767 78 

Solange der Vorrat reicht DM 

Orig. Atari Laufwerk SF 354 

(2-seitig). 200,- 

Nec 1036A Laufwerk 3 Va". 220,- 

Nec 5 Va Laufwerk. 240,- 

Orig. Mega ST Tastaturen. 220,- 

Netzteil 114,- Gehäuse 56,- 

Aladin Mac Emulator 

inkl. Mac Roms . 585,- 

Vortex Festplatte (neue Version) . 1198,- 
Vortex Streamer (in Kürze lieferbar) 

Atari Monochrom Monitor. 439,- 

Ready Seat Go 3.0 (engl. Version) 650,- 

Bavaria Soft Timeadress. 459,- 

Word Perfekt . 790,- 

Timeworks DTP 398,- Superpaint 300,- 
und vieles mehr 


SOFTWAREVERSAND MELCHART 

Innsbrucker Straße 32 - 8230 Bad Reichenhall 


_ . - „ A ( 8.30-10.30 Uhr) 

Tel. 08651/64514 114 . 30 -is.oo uhr) 


Sonderangebote: 


Spiele: 


Asterix. 

54,95 

Blueberry 

54,95 

Lucky Luke . 

49,95 

Bad Cat . 

54,95 

California Games. 

69,95 

Sinbad . 

63.95 

Down at the Trolls 

54,95 

Giana Sisters. 

53,95 

Leviathan. 

44.95 

In 80 T. u. d. Welt 

54,95 

Annalen der Römer 

69,95 

Impossible Mission 2 

69,95 

Programmiersprachen 

Megamax C-Comp. . 379,00 
Megamax Modula-2 379,00 


119,00 

64.95 

62.95 


GFA-Programme: 

GFA Interpreter.79,00 

GFA-BASIC Compiler 79,00 

colorSTar.88,00 

GFA-Movie 129,00 

GFA-Artist.129,00 

monoSTar plus. 129,00 

GFA-Draft . 177,00 

GFA-Draft plus . 319,00 


Kopierprogramm: 

copySTar v2.2 144,00 

G Copy 89,00 


Harddisk Utility. 59,00 

Signum II. 428,00 

Stad.• 164,00 

Imagic. a. A. 

TIM V. 1.1 . 259,00 

CASH Flow. 259,00 


Kaiser. 

Abacus, ein Wirtschaftsspiel 
Bolo. 


GFA-BASIC EINSTEIGERSET. 178,00 DM! 

GFA-BASIC Interpreter + Compiler + GFA-Vektor + 
Computer-Lexikon + GFA-Koffer (solange Vorrat reicht) _ 

24-Std.-Bestellannahme (Anrufbeantworter) 

Fordern Sie kostenlos unseren ausführlichen Katalog an! 


DER KAUFMANN 
VON VENEDIG 


Ein neues Strategiespiel 

• Lassen Sie sich in die Zeit des 15. 
Jahrhunderts zurückversetzen. 

• Versuchen Sie sich in 80 Jahren 
eine Existenz aufzubauen. 

• Ein Spiel in 3 Schwierigkeitsstufen. 

• Ein Spiel, entstanden nach histori¬ 
schen Vorlagen. 

• Ein Spiel, das Sie begeistern wird. 

• Spiel läuft mit Monochrom-Monitor. 

• Mit bis zu 6 Spielern spielbar. 

• Test in ST-12/87 S. 67 75,- 

Lieferung gegen 

Übersendung eines Schecks oder Versand per 
Nachnahme zuzügl. 5. - DM Versandkosten 


SAUER Hard & Software 

8754 Großostheim 2 * Danzigerstr. 1 


COMPUTER HARD - UND SOFTWARE 


1040 STF, SM 124.1498,- 

MEGA ST2, SM 124.2698,- 

VORTEX HD PLUS20. 1149,- 

STAR LC-10, 9 Nadeldrucker .648,- 

EPSON LQ 500, 24 Nadeldrucker .998,- 

NEC P6,24 Nadeldrucker .1198,- 


WEITERE SOFT UND HARDWARE ZU 
GÜNSTIGEN PREISEN AUF ANFRAGE 

Klaus Tschebisch 

Lübecker Weg *5210 Troisdorf 15 

Tel. 02241/403507 



wissenschaftliche 

STATISTIK 

mit 

WiSTat 

einfach in der Anwendung 
vielseitig in der Leistung 

— alle einfachen Testverfahren (t-Tests usw.) 

— mehrfaktorielle Varianzanalysen 

— Korrelationen, multiple Regression 

— Faktoren-, Cluster-, Regressionsanalyse 

— Item- und Diskriminanzanalyse 

— Bequemes Dateienhandling 

— Umfangreiche Datentransformationen 

— Ausgabe aller Ergebnisse auch auf Drucker 

— Hotline, Update Service, Sonderwünsche... 

wir scheuen keinen Vergleich! 

mit Lehr-Handbuch nur noch 398,- DM 

12-seitiges Info: 

Thomas Leschner -s* 06 41/4 74 59 

Grünberger Straße 81 6300 Gießen 


THE ART OF SOFTWARE 



T - C A C H E 

- VOLLSTÄNDIG IN ASSEMBLER GESCHRIEBEN 

- UBER EIGENSTÄNDIGES GEM PROGRAMM KONFIGURIERBAR 

- PUFFERGRÖSSE FREI WÄHLBAR ( AB 1K IN 1K SCHRITTEN 
BIS HAUPTSPEICHERGRÖSSE ) 

- BELEGT 1.5K SPEICHER 

- UNABHÄNGIG VOM FULLUNGSZUSTAND UND PUFFERGRÖSSE 

- ÖKONOMISCHE SPEICHERPLATZBELEGUNG 

- LÄUFT MIT TOS IM ROM ( AUCH BUTTER-TOS ) 

- SCHONT MECHANIK VON FESTPLATTEN UND LAUFWERKEN 

DM 69.- 

TAOS • PEXL • P.O. 1002 7140 LUDWIGSBURG • 07141-57858 


4/88 S\ 155 


























































































































Kleinanzeigen 


BIETE HARDWARE 

32-Bit-Userport mit Eprom- 
Brenner kpl. m. Kabeln, Gehäuse u. 
Software evtl. m. best. Eprom-Bank 
DM 385,- VB. 069/531595 


MEGA-ST, Sammelbest. Suche für 
S.-Best. User, die einen Mega haben 
wollen. Besonderheit: Er hat ein 
zweites LW (NEC) einge. 5% — 10% 
Ersparnis! Schreibt an: Th. Rapp, 
Curtiusweg 21, 2000 Hamburg 26 


SF 314 Tel.: 02241/203983 


STAR NL10 m. IBM-Interface und 
Druckerkabel; 400,- 04183/5494 


Monitor SM124, Maus, SF354 neu, 
Festplatte SH204 neu, Drucker 
Seikosha SP 1000, kompl. 2100 DM 
Tel. 06724/1304 


Hard-Disk 21 MB (Seagate) für ST! 
neu, ohne Gehäuse/Netzteil, sonst 
kompl., 890,- 07222/6338 


260ST, 3,5” Floppy - 1 MB, 
ROM-TOS f. Bastler, VH 400,- 
Tel. 06150-81460 


Mega ST2 + SH205 + SM 124 + 
Laser SLM804 mit Garantie 
Preis VB 6850,- Tel. 08139/6444 
Eventuell Laser alleine 


Funkuhr DCF77 T. 07131/161151 


Sanyo CD 3185A RGB/PAL Moni¬ 
tor incl. Kabel DM 370 06782-4840 


Zusatzplatine für den Anschluß 
eines Ompti-Controllers an den 
ATARI ST zu verkaufen. VB 59,- 
Tel. 0511/469817 oder 320054 14 h 


ST Floppy 360 100, - 089/267466 


Verkaufe Festplatte 10 MB für 
DM 300,- (07253) 22375 ab 18 Uhr 


Scanner f. STAD nur DM 180, — 
Schnellste Lieferung. 

Tel.: 0208/482249 (nach 18.00 Uhr) 


Atari SF354, neuwertig, 150 DM, 
ab 16.30 Uhr, Tel. 02991/6578 


5'A-Zoll-Floppy 1.6 MB brutto 
40/80-Track Umschaltung 360 DM 
Modem 1200/300 Bd vollduplex 
HAYES kompatible auto dial& 
answer 350 DM Tel: 0201/515151 

BIETE SOFTWARE 

GFA-Basic-Compiler DM 50, Color 
Star DM 50, Pro-Text DM 90, 
DB-Master one DM 50, GFA Ba- 
sic-Interpreter DM 50, Sub-Battle 
DM 30, alles Orig. 06782-4840 


★ Atari Lernkurs für Anfänger ★ 
Disk, Info: B. Biffingcr, Dammw.25 

★ CH-3903 Naters (Rückporto)* * 


Wärmebedarfsberechnung DIN4701 
KZahlbcrechnung DIN4108 

Wärmeschutznachweis WäSchV 
Dipl. Ing. V. Koch, Am Mehnacker 11 
3563 Dautphetal 3, Tel. 064687652 


ST-PD-Mailbox 0211-719261 8N1 


★ Super-Lohn-Einkommensteuer 
Jahresausgleich 87 neu m. Daten¬ 
speicher, Kundenverw. Formular¬ 
druck, Analyse ab 70,- jährl. Aktu 
(10,-) Info gg. RP PC-Demodisk 
10,- H-I-Software H-Ilchcn Nie- 
derfelderstr. 44, 8072 Manching 
08459-1669 


BAtari • Schulmeister ST • AtariB 
B Die komfortable Noten- und B 
BKlassenVerwaltung mit über 40B 
BFunktionen/GEM. EditierbareB 
B Masken und Parameter: B 
B (Fächer, Unterbereiche, Ge- ■ 
B wichtung, Notentyp, Sortier- B 
Bkriterien ect.) 500 Kbyte RamB 
Bmonochrom-Monitor. VersionB 
fl für BRD und SCHWEIZ. B 


B Ausführl. Info/Freiumschlag.B 
B M. Heber-Knobloch B 
BAuf der Stelle 27, 7032 Sindelf.B 



Vokabelprgm VocMaster +, V:2.5 
Grundwortschatz, Synonyms, Gern 
49,-, Info: Gratis, Demo: 20,- 
Reiner Kocher, T: 089/3134946 
Caracciolastr. 16, 8 München 45 


Wärmebedarf DIN4701 + K-Zahl 
★ Heizflächenauslegung ★ Rohr¬ 
netz * Demodisk 2-seitig für 
DM 10 Vorkasse von J. Binder 
Eichendorffstr. 15 • 5030 Hürth 


///I Heilpraktiker VI. 1 DM 448 
Die Anwendung für die Praxis 
Info u. Demo DM 20,- (0731/4671) 
mss masch Software Service 
Irisweg 45 7900 Ulm-16 


B B PD-SERVICE B B 
B PD-Angebot dieser Ausgabe B 
B Einzeldiskette SS DM 5,00 B 
BDoppeldiskette DS z. B. 1+2fl 
B33 + 34, 89 + 90 usw. DM 7,00fl 

■ Pakete 1-10, 11-20, usw. ■ 

■ auf je 10 Disk. DM 40,00 ■ 

■ auf je 5 D. (DS) DM 30,00 ■ 
B Porto u. Verpack. DM 3,00 B 
BV.-Scheck o. NN ( + DM 3,50)B 
BN. Twardoch, Gröchteweg 22B 

■ 4902 Bad Salzuflen 1 B 


Anti-Virus Vl.l 

Info bei: Marcus Klocke-Sewing 
Gronauer Str. 19 - 48 Bielefeld 1 


> > > HANDWERKER!!! < < < 

> Rechnungen, Angebote, Lie- < 

> ferscheine, Auftragsbestä- < 

> tigungen, Mahnungen und < 

> Kalkulation: das ist < 

> > > HAROFAKT < < < 


★ ★ ST-WINDOWMAKER ★ ★ 
Windowprogrammierung für je¬ 
den leicht gemacht! Preis: 40 DM 
Info bei: J. Velmans 
Kuyckheide 60, 4174 Issum 2 


PD-Grafik + Art-Libs für Degas 
+ STAD Katalog von Frey, Rhein- 
str. 12A, 6538 Münster-Sarmsheim 


PD-Softw. für Erwachsene 
Fischer, Pf. 1619, 4830 Gütersloh 
Bitte Rückporto; auch Tausch 

Atari-Public-Domain ★ 600 Disk’s 
in IBM-Format auf 3'/i Zoll ★ Ab 
10 Disk’s Rabatt ★ Tlf: 02954-1050 


Programme PD-Special für Atari- 

ST. Liste S/88 gegen Freiumschlag 
(A4) bei M. Römer-Reinl, Rüdes- 
heimer Str. 34, 6200 Wiesbaden 


Wettkampfauswertung für Lauf- 
veranst., Ergebnislist., Urkunden 
drucken, f. alle STs, 89 DM, K. 
Winterstein, 02524/2376 17 Uhr 


MS-DOS Emulator PC ditto 179,- 
über 2000 Prg. bei uns erhältl. 
und ST-Software ★ Info 17 —21 h 
SMC H. Keseling Fanny-Lewald- 
Ring 5, 2050 Hmb80,040-7351931 


Biete PD-Software auf 2-seitigen 
Disketten! AB 4 DM/Disk! 
Volker Losch, Am Göhlen 1 
2910 Westerstede 2 


Easybank 576 KB-Platine, Profi¬ 
mat, Div. Bücher Tel. 06408-7328 


PD-Software ab 2, - DM/Diskette 
Angebot wie PD dieser Ausgabe 
Tel: 02721/2432 von 12-21 Uhr 


■■■fl PD ab DM 3,50 ■■■■ 
BPD 1 bis PD dieser Ausgabe* 
■ INFO-Liste gegen DM 0,80 ■ 
■G. Grasberger, C-Orff-Str. 9B 
■■■ 8221 Traunwalchen ■■■ 


Angebot wie PD dieses Heftes & 
eigene PD ab 2 DM, lOer-Pakete 
ab 35 DM, INFO: Witaseck, Josef- 
Neuberger-Str. 26, 4000 Düsseldorf 


ÜÜAUFMASS AUF DEM ST!!!!! 
Mit HAROMASS erstellen ! 
Handwerker ihr Aufmass auf ! 

dem Computer! SUPER!!! ! 
DM 698,- DEMO: 20,- DM s! 
Telefon: 07346/3845 ! 


Drucker MT90 750 DM; Floppy 
SF354; Div. Originale: Lattice C, 
Hackerll, MS-DOS, GFA-Starter, 
Dizzy-Wizzard, Video-Construc- 
tion-Set. Auch Tausch möglich. 
07723/4471 


Lohnsteuerjahresausgleich/Einkom¬ 
mensteuer 87/88. Grunddaten + 
Ergebnis speichern. WasWäreWenn 
Lohn- u. ESt-Tabellen 1987/88 
30 DM Vork. J. Höfer, Grunewald 
2a, 5272 Wipperfürth, 02192/3368 


Videofilmprogramm unter STbase 
mit beigefügtem Run-Time-Inter- 
preter. Schreibe auch Programme 
zu STbase nach Ihren Wünschen. 
Uwe Bremer, Tel. 0211/419240 


ST-COMPUTER komplett bis auf 
3/86 u. orig. DATAMAT 
046159389 


Ahnenverwaltung m. Listen u. 
Grafikausg. v. Vor- u. Nachfahren 
Pfeiffer, Espen-5, 4047 Dormagen 


Verkaufe Originalprogramme 

STEVE-Programm 250,- 
GFA-Basic V2.0 80,- 
Tel: 09392/7874 


■■Brandneue PD-Software■■ 
■Fast täglich neue Programme,■ 
■direkt vom Autor, die es nur* 

■ bei mir gibt! Riesiges Ange- ■ 

■ bot auf über 30 Seiten! Alle ■ 
■Programme sind einzeln aus-B 

■ wählbar!!! Der absolute Hit: ■ 

■ NUR 1,5 PF PRO KBYTE ■ 

■ Sie können eigene Disketten ■ 
■senden oder auf MarkendisksB 

■ bestellen!! Jedem PD-KatalogB 

■ liegt ein Extrablatt mit den ■ 
■allerncusten Programmen, dieB 

■ ständig erfaßt werden, bei!! ■ 

■ Bearbeitung erfolgt selbst- ■ 

■ verständlich postwendend!!!! ■ 
GRATISkatalog bei Arne Zingel, 
Vermehrenring 11a, 24 Lübeck 1 


★ ★ ★ HANDWERKER ★ ★ ★ 

★ oooo*. ist die perfekte ★ 

★ Fakturierung für Handwerker* 

★ Kinderleicht! Mausgesteucrt ★ 

★ DM698,- DEMO: 20,- DM* 

★ Telefon: 07346/3845 ★ 


■■■■ Supergünstig ■■■■ 
■PD aus ST incl. Disk DM 4,70B 
■Versand Schneider 0281/61772B 


Original! 32-Forth, Starglider*, 
XTRON, Tracker*, Time-Bandits* 
je 35 DM (*engl. Anl.) 

Tel. 07173/8009 


★ PD-AKTUELL, das Infomaga¬ 
zin für den PD-Anwender. Probe¬ 
heft von EUSAX PD-Service, Haus 
Gravener Str. 85, 4018 Langenfeld 

□ □ SUCHEN SIE PD-SOFT? 

□ □ Dann fordern Sie unseren 

neuen Gratiskatalog 

Klaus Köhler 

□ □ Don-Carlos-Str. 33 B 

7 Stuttgart 80 


Wordplus-Druckertreiber f. alle 
STAR NL-10 u. LC-10. Kompl. an¬ 
gepaßt, volle Befehlsausnutz. m. ca. 
100 KB Anleit.; HEX+CFG. Grundl 
Treiber v. K. Plüher. 30,- p. Rech. 
Wörterbuch 240 KB: 10,- DM incl. 
Disk. U. Köhler, Mont-Cenis 537, 
4690 Herne 1 - Tel. 02323/64315 


■■■ !! PD jetzt DM 5,50!! ■■■ 

■ PD von 1 - diese ST-AusgabeB 
■auf Mark.-Disk SS je DM 5,50,■ 

■ P&V. DM 5,00, ab 20 St. frei!B 
BV.-Scheck od. NN (+ DM 1,70)B 
■■ NEU! ■ NEU! ■ NEU! M 

■ Weg mit dem PD-Müll ■ 

■ Qualität vor Quantität!!! ■ 
■Jetzt eigene PD-Sammlung mitB 

■ Bereichssortierung, als Disk ■ 

■ o. einzel. PRG’s nach Kbyte! ■ 

■ Viele Sonderangebote!!! ■ 
■2,50 DM-PD-Disk, Gratis-PDJB 
■SUPER GRATIS-KATALOGIB 

■ J. Rangnow • 7519 Eppingen ■ 

■ Talstr. 8 • 07262/5131 ab 17°°B 
■■■ PD-Express-Versand ■■■ 


Public-Domain-Blitzversand! 
Riesenauswahl! Preise: 
ab DM 4,- einseitige Disketten 
ab DM 6,- doppelseitige 
Inclusive Diskette!!! 

Auch alle ST-Disks! Auf Doppel- 
disks beliebig kombinierbar! 
Gratisliste anfordem bei: 

A. Gauger Software 
Buhlstraße 16a, 7505 Ettlingen 
07243/31828 
Bitte Computertyp angeben!! 


Statik- u. Matheprogr. unter Gern 
Demo-Disk u. ausf. Info (10 DM bar) 
V. Scheck) von: Dipl. Ing. Jürgen 
Bullmann, Zur Hindenburgschlcusc 3 
3000 Hannover 71 


★ ★ i k s Public Domain ★ ★ 

bitte beachten Sic unsere Anzeige 
an anderer Stelle in dieser Ausgabe. 
Es lohnt sich! 


Von Bauleiter für Bauleiter!! 
Aufmass-Massen-Abrechnungs-Prg 
f. ATARI-ST 245,- T. 0821-499518 


★ Atari Lcmkurs für Anfänger ★ 

★ Disk, Info: B. Biffiger, Dammw. 25 

★ CH-3904 Naters (Rückporto) ★ ★ 


★ ★ NEUE DIMENSIONEN * ★ 
PD-Software für Emulatoren auf 
Atari ST: Aladin, Supercharger, 
PC-Ditto, CP/M, Amiga u.v.m.! 
Info: DM 0,80 - Carsten & Marcus 
Postfach 65 06 02, 2000 Hamburg 65 


BERLIN: PD-Software, 200 Disks 
z. Mitnehmen je DM 7,-, auch. 
Großauswahl an Kaufsoftware und 
Zubehör. Computershop Behrendt, 
Fürbringerstr. 26, 1—61, Tel. 6917666 
BTX 0306917666 


Von Lehrer für Lehrer! Noten- 
verw.prg Markbook plus in GEM. 
Über 20 versch. Funkt, f. alle gäng. 
Notensyst. Spez. vers. auf Wunsch; 

Info gegen Freiumschlag. 

H. J. Merkel/Nahestr. 28/6600 SBR 

ATARI ST-LOTTOSTATISTIK 
39 DM, 20 seit. Dokumentation 
vorab gegen 2,40 in Briefmarken. 
F. Klein, Zur Fröhn 15, 

6601 Heusweiler, Tel. 06806/8901 


SPORT-MANAGER-ST! 
Professionelle Sport Verwaltung für 
ST! Alles für den gut organisier¬ 
ten Wettbewerb. Preis: 130,- DM, 
Scheck oder NN bei: MTC, 
Postfach 56, A-6027 Innsbruck. 

Info gegen Rückumschlag! 

SUCHE HARDWARE 

Verkaufe Schneider DMP 3000 
Drucker Epson + IBM kompatibel 
DM 300, und einen Centronic GLP 
Drucker DM 100, Tel. 07564/2747 


Suche SH 204/5 02273/1472 

SUCHE SOFTWARE 

Suche Astrologie u. Bio. Prg. 

L Bamhofer, Postf. 1403,523 Altenk. 


Suche 6802/6805-Crossassembler für 
ATARI 1040/ST nach 20:00 
Tel.: 06128/42600 

TAUSCH 

Tausche neuste Software Listen an 
Wolfgang Müller, Landsberger Str. 93 
8901 Königsbrunn 

Tausche PD-Software (auch gegen 
Leerdisks!) Für Liste bitte 1 Disk 
+ Rückporto an: D. Metz; Bahn- 
hofstr. 84a; 2153 Neu Wulmstorf 


Programmierer, nebenberuflich für 
LATTICE C gesucht 044032167 


Suche Kontakte im Raum 89 zum 
Training mit ADIMF.NS-ST u. and. 
Progr. u. Tausch. Tel. 08233/20769 

VERSCHIEDENES 

Platinen-Layouts! 
von Elektroniksch., Atari-ST Plot- 
terscrvice für alle CAD Progr.. 
0431-180975 

U. Tams. Westring 273. 2300 Kiel 


ST-Computergrafik-Gest alten. 
Clip-Art Disk ü. 1000 Zeichen 
Scanner-Service-HAWK PD-Grafik 
PRG.-Bild. Software Grafik Info 
R. Probst Pnxluktdesigner. grad. 
2121 Dahlenburg OT F.llringen 12 


Adimens-ST-1,6-Handbuch gesucht: 
W. Klemke, Am Krausen Baum 6 
4000 Düsseldorf 31 


★ Neue Fonts für Signum ★ 

★ Professional Quality ★ 

★ für 9-, 24- und Laderdrucker ★ 

★ H. Manschus, Tel. 0651/76814* 

★ Karl-Marx-Str. 70b • 55 Trier ★ 


Übernehme Prt>granmiieraufgaben in 

GFA BASIC 

P. Neurohr. Eschersheimer-landstr. 
273. Tel: C69/567298 




















































































INTEGRIERTES SOFTWAREPAKET FÜR DEN 
KLEIN- UND MITTELSTÄNDISCHEN HANDEL 

Das Programm mit der hohen Geschwindig¬ 
keit und Bedienerfreundlichkeit. 

Leistungsmerkmale 

► Verwaltung von Artikeln, Kunden, Interes¬ 
senten, Lieferanten 

► Erstellung von Adress-, Inventur-, Provi- 
sions- und Postenlisten 

► Datenkapazität nur von externem Speicher¬ 
medium abhängig 

► Erstellung von Bestellungen, Angeboten, 
Auftr.-Bestätigungen, Lieferscheinen, 
Rechnungen, und Gutschriften 

► Automatisch Bestandsüberwachung 

► Automatisches Mahnwesen 

► Einfache Weiterverarbeitung von bereits 
erstellten Dokumenten 

► MWSt-Änderung für alle Artikel miteinem(l) 
Befehl 

► 4 VK- Preise pro Artikel, jeder Artikel einzeln 
rabattierbar 

► 1 Zusatz-Preisfeld pro Artikel 

► Kunden-und Artikelumsatzstatistik 

► Komfortable Druckeranpassung 

► Schnittstelle zu Ist Word (Plus) 

► Verarbeitung von Ist Word-Texten (Plus) 

► Serienbriefunktion, Etiketten 

► Druckermasken für alle Dokumente frei 
erstellbar, somit Anpassung an Vordrucke 
aller Art 

► einfache Benutzerführung, hohe Bedie¬ 
nungsfreundlichkeit 

► kompakter Programmcode (nuc 80 KB), 
dadurch hohe Verarbeitungsgeschwindig¬ 
keit 

► ständige Programmpflege & UP-Date-Ser- 
vice 

► Handbuch 

DM 899- 



DIE KOMFORTABLE BUCHFÜHRUNG FÜR 
FREIBERUFLER UND KLEINGEWERBETREI¬ 
BENDE. 

Ohne Vorkenntnisse leicht zu bedienen. 

Leistungsmerkmale 

► Freie Wahl des Abschlußzeitraums (Periode) 

► Voreinstellung von bis zu 5 Steuersätzen 

► Einrichtung von bis zu 10 laufenden Konten 

► Einrichtung von bis zu 200 Einnahme/Aus¬ 
gabe-Konten 

► Erfassung von bis zu 2.500 Buchungen pro 
Periode 

► Volle Eingabekontrolle auf Fehler (Löschen 
der letzten Buchung) 

► Erstellung von Bilanzen 

► Erstellung von Journalen 

► Erstellung von Saldenlisten und Kontenrah¬ 
men 

► Datenaufbereitung für USt.-Voranmel- 
dung 

► Ausdruck aller wichtigen Daten 

► Anpassung an jeden Drucker 

► Schnittstelle zu anderen Programmen 

► Periodenabschluß mit automatischer Sal¬ 
denübertragung in die Datei für die Folge¬ 
periode 

► Voll in GEM eingebunden 

V Einsetzbar auf allen ATARI ST und MEGA ST 
mit S/W und Farbmonitor 

► UP-DATE-SERVICE 

► Handbuch 

DM 149,- 



ORDNUNG, ÜBERBLICK, PLANUNG - 
MIT DER HAUSHALTSBUCHFÜHRUNG 
FÜR ALLE. 

Leistungsmerkmale 

► Monats- und Jahresabschluß 

► Benenung von bis zu 50 laufenden und 200 
Kostenkonten 

► Verwaltung von bis zu 50 Dauerbuchungen 
mit wählbarer Frequenz 

► Bis zu 2.500 Buchungen pro Periode 

► Volle Eingabekontrolle auf Fehler 

► Erstellung von Bilanzen, Journals, Salden¬ 
listen und Kontenrahmen 

► Ausgabe von Buchungslisten mit Korrek¬ 
turmöglichkeit 

► Saldenbildung von Kontenblöcken 

► Anpassung an jeden Drucker 

► Schnittstelle zu anderen Programmen 

► Voll in GEM eingebunden 

► UP-DATE-SERVICE 

► Handbuch 

DM 129,- 


alle Preise sind unverbindlich empfohlene Verkaufspreise 


Heim Verlag 

Heidelberger Landstr. 194 
6100 Darmstadt-Eberstadt 
Telefon 06151-56057 


BESTELLCOUPON 


Bitte senden Sie mir 

_Stück TKC-FAKTURA ST Z Preis V. DM 899- 

_Stück TKC-EINNAHME/ÜBERSCHUSS ST Z. Preis V. DM 149 - 

_Stück TKC HAUSHALT ST z Preis v. DM 129 - 

zuzüglich DM 5,- versandkosten unabhängig von der Bestellmenge. 
□ per Nachnahme □ Scheck liegt bei □ per Vorausberweisung 


an Heim Verlag 
Heidelberger Landstraße 194 
6100 Darmstadt-Eberstadt 

Name, Vorname_ 

Straße, Nr_ 

PLZ. Ort_ 

Unterschrift_ 

Benutzen Sie auch die im ST-COMPUTER vorhandene Bestellkarte 








Tr 


Marconi RB2 Trackerball 


Die Maus ist tot, es lebe der Trackerball 

Marconi ist ein renomierter Hersteller von Trackerballs mit weltweitem 
Vertrieb. Die Anwendung des Trackerballs in der Flugsicherung und im 
militärischen Bereich sprechen für die Zuverlässigkeit des Produkts. 
Der Trackerball eignet sich hervorragend im CAD/CAM Bereich, in der 
Textverarbeitung und zur Positionierung des Cursors auf dem 
Bildschirm. 



nur 198,- 


Der Marconi Trackerball Ist weit mehr als nur ein Maus¬ 
ersatz I Dank seines kompakten Gehäuses benötigen Sie 
in Zukunft keinen Platz mehr zum Bewegen einer Maus. 
Die Drehung de6 Trackerballs wird digital umgesetzt und 
entspricht der Bewegung des Cursors auf dem Bildschirm. 
Die Firma Weeeke steht mit ihrem Namen hinter diesem 
Spitzenprodukt und ist Ihr Ansprechpartner für den Ver¬ 
trieb in Deutschland, der Schweiz und Österreich. 

Achtung Computer-Fachhändler 
Immer wieder bedauern Kunden am Telefon die schlech¬ 
te Zubehörversorgung vor Ort. Dieser Umstand trefot sie 
in die aufgehaltenen Arme der Versandhändler. Sie haben 
die Möglichkeit diesen Zustand beim Marconi Trackerball 
zu ändern. 

Fordern Sie doch einfach die EinkaufekorKf tionen 
mit Mengen«taffe! an! 


Technische Daten: • Stromversorgung: 5 V ♦/- 5 % 

• Spannungsaufnahme: 60 - 200 mA (je nach Ausf.) • 
Output Signal: TTL • Kugeldurchmesser: 2,25 inches • 
Gewicht: 0.6 kg • Abmess.: (B/L/H) 115 x 200 x 70 mm. 


Diskettenlaufwerke 

(NEC / TEAC) für Atari ST 

• Erstklassige Verarbeitung • komplett mit Metallgehäuse, 
Netzteil und Kabel • leise • anschlußlertig und vollkom¬ 
patibel • 





(720 KB) 
(1,4 MB) 
(720 KB) 
(1,4 MB) 


348,- 

648,- 

448,- 

798,- 


3,5" Floppy 2x80 Spuren 
3,5" Doppelfl. 4x80 Spuren 
5,25 Floppy 2x80 Spuren 
3.5”-5.25" Mix 4x80 Spuren 

Einzelteile für Eigenbau: 

Winkelstecker Shugart an Atari 3Z. 

Netzteil 39,-- Gehäuse 29,80 

Kabelsatz einfach 29,-- Kabelsatz doppelt 39,80 

V ^,5" Laufwerk eint. 248,-- 5,25" Laufwerk eint. 280,-j . 


APPLICATION SYSTEMS 


EZ1 

Software ^ 

jr 

Kieckbusch 

"KT 

czi 


Signum 2 

Super Textverarbeitung für unterschiedlichste 
Anwendung . Für Literalen, Musiker, Sprach¬ 
wissenschaftler. Physiker, Chemiker, Mathe¬ 
matiker usw. 

Viele zusätzliche Fonts sind erhältlichl 

448,- 

Signum-Fontdisketten 

Fontdiskette Julia 100,- 

Eurofont Diskette 69,- 

Professional Fontdisk 100,- 

Fontdiskette Rokwel 100,- 

SignumiUtility 89,- 

STAD 

Das Grafik-Programm, das fast keine Wünsche 
offen läßt. Neue Version: 99 Bildschirme beim 
Mega-ST. Laserdruckertreiber für Atari-Laser. 

Megamax Modula-2 

Modula-2 Entwicklungssystem mit GEM- 
Shell. 

Demodisk (20.--) 398,— 


Megamax C-Compiler 

Das bekannte C-Entwick!ungssystem! 

Mit Single Pass-Compiler, Inline Assembler. 
Disassenrtoler. Linker & Lbrarien, Vollständige 
GEM-Lbraries, GEM-Editor, GEM-Sheil, 370 
seitige6 Handbuch. 

Neuer Preis: 398,- 


Deutsches Handbuch 


49,- 


Imagic Der Grafikcompiler 
Oie Sprache, die Bilder schreibt! 

498,- 


69.- 


Spiel Bolo 
Creator oemoe».--) 
FiexDISk Ramdish 69,— 

Harddisk Utility 69,- 

Editor Toolbox 149 ,- 


Software^ 


Neu!! 

Timeworks Desktop Publisher 

mit allen wichtigen Hilfsmitteln, die ein 
professionelles DTP-System aus¬ 
machen • mit Druckertreiber für Laser¬ 
drucker • deutsche Version mit aus¬ 
führlichem deutschem Handbuch • 

nur 389,- 


VIP Professional 1.4 

• Kalkulation • Grafik • Datenbank 

Daten- und Bedienungskompatibel mit 
LOTUS 1-2-3. Jetzt mit NEC-P6-Treiber! 
Kompl. in deutsch. 

Mit 3500 verkauften Paketen in 
Deutschland das meistbenutzte 
Kalkulationsprogramm 498,— 


Programmknüller: STEVE 398,- 

Integriertes Programm: Text • Grafik • Datenbank 

Programm in Maschinensprache, daher enorm schnell. 

Text: Lexikon für Deutsch. Englisch, Russisch und Jugoslawisch 
verfügbar. Übersetzt wörtlich Deutsch-Englisch. 8 Schriften. 
Serienbriefe mit Adressen aus der Datenbank. 

Grefik: Zeichenmöglichkeiten ähnlich Easy Draw. Zeichnungs¬ 
übergabe an die Textvera/beitung. 

Datenbank: Sehr schnelles Sortieren. Über 20 Datenbank-Funki. 


Desk Assist 11+ 

Rundum Programm: Terminplanung. 
Kalender. Uhr, Alarmtermine. Notizblatt, 
Rechner, residente Adressen- und Tele¬ 
fondatei. mit komfortablen Such- und 
Druckmöglichkeiten. Super-TerminaJprg. 
im Lieferumfang, deutsch 139,— 


A-MAGIC Turbo 
Dizer 

Non plus Ultra unter 
den VicteodigrtizBm. 
Echtzeitverarbeitung in 
16 Graustufen. 

298,- 


STEVE- 

Lehrbuch 

Wichtige Information¬ 
en über STEVE inkl. 
Beispiel-Disk. 250 
Seiten, 480 Gramm. 

58,- 


Multi-Hard- 

copy 

Anpassung an wirk¬ 
lich jeden Drucker, 
ob Matrix oder Laser 
Drucker. 

98,- 


Handy-Scanner für Atari st 

Endlich ist die Grafikeingabe so leicht, 
daß sie ein wirkliches Vergnügen ist! 


Einsatz im Desktop-Publishing 
Abrastern von Bildern (f oder sw) 
Speichern von Unterschriften 
Anfertigen von illustrierten Hand¬ 
büchern 

Überarbeiten und Entwickeln von 
Logos und Typen 
Abbildung auf dem Bildschirm er¬ 
folgt in weniger als 3 Sekunden 


Das Grafikpaket CAMERON HANDY PAINTER 2.0 

ist im Lieferumfang enthalten! (Bei Atari nur s/w-Biidschirm). 
FürTechniker, Lehrer, Werbefachleute, Redakteure... 
Mit deutschem Handbuch! Info anfordern (Computertyp) 

798,- 



Schwarz- Wei 3 Version 


Neu! Typ 3 mit 16 Graustufen 


nur 898,-;, 


/g f A-Syste mtech nik Software + Literatur 


Bücher: GFA-Basic (Ostrowski) 79,— 

GFA Basic Programmierung 
inkl. Diskette 49,— 


GFA Handbuch TOS&GEM 49,- 


GFA VEKTOR 

3D-Grafik-Toolbox zum GFA- 
BASIC 

99,- 


GFA STARTER 

Startet GEM-Prg. aus dem 
Auto-Ordner, bis zu 10 Prg. 
hintereinander startbar. 

59,- 


monoSTar PLUS 

hervorragendes monochro¬ 
mes Zeichenprogramm mit 
vielen Kniffs und Tricks. 

149,- 


ST DIGI-DRUM 

Drum-Maschine für Atari ST 
Von 2-Bit-SystemB. 

79,- 


GFA BASIC Comp. 

Schneller 2-Pa8s-Compiler. 
benötigt keiner Linker, voll 
kompatibel zum Interpreter, 
einfachste Bedienung. 

9?,- 


GFA BASIC Interpr. 

Kompakter Hochgeschw.- 
Interpreter, Strukturiertes 
Programmieren, Komfor¬ 
tabler Editor. 

9?l 


GFA Objekt 

3D-Zeichenprogramm. voll¬ 
ständig in GFA Basic ge¬ 
schrieben, Schnittstelle zu 
GFA-BASIC.-DRAFT.-VEKT. 

198,- 


rGFA“MOVtE“ 

Zeichenprogramm, Zeichen¬ 
satzeditor. Drehbuchprogr.. 
Effektprogr.. SnapShot 
Möglichkeit 

149^ 


GFA ARTIST 

Erstellen eines Films durch 
Zusammensetzen verschied. 
Animationen. Arbeitet mit 
1024 Farben gleichzeitig. 

149^ 


GFA Publisher 

Deßktop Publishing Prg., 
Leistungsfähiger Texteditor. 
Automatischer Textfluß und 
-Umbruch. Silbentrennung. 

ab April 88_398,- 


GFA DRAFT 

Leistungsfgähiges CAD-Prg. 

198,- 

GFA DRAFT plus 

noch komfortabler 349,— 


GFA BASIC 68881 

Läuft nur mit Motorola 68881 
Floaling-Point-Coprazessor. 
Kompakter Hochgeschw.- 
Interpr. und 2-Pass-Comp. 

349.- 


158 /f" 4/88 









































































































































-Data Produkte > 

G-Ramdiskll 48,-- 

G-Diskmon II 98,- 

Harddisk-Help & Extens. 129,- 

Interprintll 49,- 

Interprintll Ramdisk 99,- 

As Sound Sampler II (Softw.) 149,— 

PiskHelp 79,- 

Omicron-Produkte 

Omicron-Basic(Disk.) 179,- 

Omicron-Basic (Modul) 229,- 

Omicron Compiler 179,- 

Omicron Assembler 99,- 

Royal-Produkte 

Disk-Royal (Disk-Monit.) 89,-- 

Katpro- Royal (Disk.-verwait.) 89,-- 

Wizard-Royal (Spiel) 139,-- 

Voc-Royal (Vokabeltrainer) 79,— 

Desktop Publishing 

Calamus 998,- 

Publishing Partner 498,- 

Fleet Street Editor 348,- 

^meworks Publisher _ 389,V 


Public-Domain-Service 

Wir liefern auf erstklassigem Diskettenmaterial die PD-Software 

aus ST (siehe PD-Liste in dieser Ausgabe) und 1000-1042 

(siehe unten; nur bei uns erhältlich)! jede Diskette nur 8,~ 


1001. Digimu»ik Oxygpn 
1004. Pyramide, ST Pic 
Zeichenprogramm 
KXÄ.Fonö, Kennil GEM 


1000. DakeOenverwaltungspr. 

1003. B*sicpr.,Terminilpr. 

1006. Fdecopy, Convertierpr. 
für Monitor 

1010. Dirprinl, Dill“- 

H^mcopy Neu! MS-DOS Freesoftware 

1017 Büd^t^d PC-Ditto und Supercharger ermöglicHfen es 
Süir ’ MS-DOS Software auf Ihrem Atari ST laufen 
1021.Schach. Con zu lassen. Mehr als 700 Disketten mit über 
i023.Mau9editor, 10000 Programmen sofort lieferbar! 

1026.Drudcertreib Fordern Sie unsere MS-DOS PD-Liste an! 
iSn y°rT? adci Bitte schriftlich mit Angabe des Computertyps. 


1002. TOS vom 16.86 
lOOS.Fmanzpr., MusDqpr. 
1007.Diakmanitor 
1009. Sounds, Analoguhr, Calc 
-pibcT Ist Word 
Diskmonitor, 


1030. Grafikdemo L 

1033. Forth Interpreter, l«ogo 

1034. Basic-Files, Megaramd. 
1037.GEM-Demo, Desk-Uhr 
1039. Ramdisks, Copy-Pr., 

Pnnlhelper EPSON 



Grafikdemo 


KnifTel-Spiel 

1035. Source-Code-Lister, 
Sound-Demos 
1040. Ramdisk, Spiele 
1041 Pro fT 


Druckertreiber Ist Word 
1036. Degas-Pücs, Degasfonts 
1038. Label-Maker, Datetime 
1041.BasiC'Utüitie*. PrintDir 


10er Blöcke: 10 Programme auf jeweils 5 Disketten 1DD (1MB)U 
1-10, 11-20, 21-30, 31-40, 41-50, 51-60, 61-70, 71-80. 81-90 und 
101-110, 111-120, 1001-1010 usw... je Block nur 40,- 


MonaLsausgaben ST 28,« 

V jJpdates (U1, U2, U3, U4) 8,-- 


Bel Best. Computertyp 
angeben. Liste anfordern 


f Atari-Schaltpläne 


260 ST/520 ST 

29.80 

520 ST+ / 520 STM 

29.80 

1040 STF 

29.80 

1040 Erweiterung 

29.80 

SF314/SF 354 

je 19.80 

SNM804/1050 

je 19.80 

600 XL/800 XL je 

19.80 

SC 1224/SM 124 je 

19.80 

Mouse Pad 

Super!! 

^Gleitrnatte f. Maus 

DM19,80 J 

T Kuma Software 

K-Spell 

iis- 

K-Seka (Assembler) 

ios,-- 

K-Spread 2 (Tabellenkalk.) 198,— 

K-Graph 2 (Grafik) 

148,-- 

K-Comm (Kommunikal.) 

148,-- 

K-Resource (Editor) 

118,-- 

K-Word 2 (Textvera/b 

118,-- 

K-RAM 

89,- 

K-Switch (Utility-Prg.) 

99,- 

K-Minstrel 

89- 

\dB man 4.0 (neu) 

624 *-J 


Neu • Neu • 


■j 

EZL 


Software 




PC DITTO (Softwareemulation) 
Nun können Sie Tausende von MS-DOS 
und PC-DOS-Programme auf Ihrem Atari 
ST ablaufen lassen! 

• Verwandelt Ihren Atari ST in einen IBM-Kton 

• Für FÄRB- und MONOCHROM-Monitore 

• Stützt auch Festplatten 

• Stützt Seriell / Parallel angeschlossene Drucker 

• Kompatibel mit europäischer Tastatur 

• Leicht verständliches, deutsches Manual 

(Testbericht in Atari ST 12/87) ^ 7 8,— 


Tommy Software 

ISTSpeeder 89,- 

Be6chleunigt das Arbeiten mit 
Diskette bis zu Faktor 101 

MuslX32 89,- 

Der Musikstandard auf dem ST 
IST Freezer 148,-^ 

Ermöglicht komprimierte Spei¬ 
cherdumps auf Disk. 

Dizzy Wizard 69, 
Tolles Spiel • S/W und Farbe 


STandardBASE lll(Knupe) 
Professionelle Datenbanksprache! 

VoM kompatibel zum Weltstandard dBASE III 
Inkl. 600 Seiten deutschem Handbuch • 
Hardware-Anforderungen: Atari ST mit 
1MB RAM u. ROM-TOS, Monochrom-Monitor, 
Diskettenlaufwerk SF 314. 698,— 


TEMPUS Editor 2.0 (CCD) 

Hohe Verarbeitungsgeschwindigkeit • Hoher 
Programmkomforl • TEMPUS hilft dem Hobby- 
u. dem professionellen Programmierer, kost¬ 
bare Zeit einzusparen. 109,— 


Supercharger 698,- 

MS-DOS-Hardwareemulator 

Erweitert Ihren Atari ST um einen IBM- 
XT (oder AT): 

• volle PC-Kompatibilitäl 

• sehr schneller Datentransfer 

• eigenständiger 8086 Prozessor 

• Anschluß an DMA-Port mit spez. 
Interface 

» Erweiterurvgsmöglichkeiteri (802861 . 


TIM 1.1 (Time is Money) 

Buchführung für Atari ST (Monochrom) 
(Test Atari ST 7/87) 


298,--. 


Stets aktuell 


Software 


Textverarbeitung: 


Programmiersprachen: 


1 st Word /Word Plus 99,- 

-/199,— 

MCC Lattice C-Compiler 

298,-- 

1 st Proportional 

148,— 

MCC Pascal Compiler 

248,-- 

Wordstar / Mailmerge 

199,— 

MCC Macro Assembler 

168.-- 

Textomat ST 

99,-- 

MCC Make 

168,-- 

Protext ST 

148,-- 

MCC Lisp 

448,- 

Becker Text ST 

199,- 

MCC BCPL-Compiler 

329- 

Megafont ST 

119,-- 

Pro Fortran 

448,-- 

Word Perfect 

910,- 

Pro Pascal 

443,-- 

Typsetter Elite 

139,” 

Modula 1! (Standard) 

298,-- 

Grafik • CAD: 


Modula ll (Deveiop.) 

448,— 

Art Direktor 

173,” 

Datenbanken: 


Film Direktor 

188,” 

Adimen ST neu 

199,-- 

Monostar / Colorstar je 

78,-- 

Aditalk 

189,-- 

Maps & Legends 

98,- 

DB-Man deutsch neu 

395,- 

Degas 

169,” 

Logistix 

398,-- 

MICA 

298,” 

Profi mat ST 

99,- 

Animator 

119,” 

dBase II ST deutsch 

348,- 

Campus Maschinen-und Werkzeug¬ 

Side Click 

145,-- 

bau. Fertigungs- und Elektrotechnik sowie 
Architektur, einfach alle6, was mit technisch¬ 

CopystarV2.2 

169,-- 

em Zeichen zu tun hat. meistert Campus 

Steinberg Musikprogramm: 

- professionell . (Demo 20.-) 

998,- 

Twenty Four 

478,- ^ 


^ HEIM PRODUKTE ^ 

Bücher: Omicron Basic 

29, - 

Progr. in Omicron Basic 

49,-- 

Das große VIP-Buch 

49,-- 

C auf dem Atari ST 

49,-- 

Software: Salix Prolog 

198,- 

SteuerTax'87 Vers. 2.7 

98,- 

Vers. 3.7 

159,- 

ST Aktie 

69,- 

ST Plot 

59,- 

ST Print 

59,” i 


Aladin 


(Mac Emulator) 

Die Chance für Sie, auf Ihrem Atari 
ST Macintosh-Software zu fahren! 

• höhere Bildschirmauflösung 

• höhere Verarbeitungsgeschwindigk. 

• integrierte, resetsichere Ramdisk 

• Hard- und Software incl. Handbuch 

398,-- 

Mac-Betriebssystem 
(ROM-Satz) 195,-- 

Info anfordem! (schriftl.) A 


r Zubehör 

Etiketten endl., 70x70 (200 Stk) 16,- 
10 Disketten 1 DD 39,- 

10 Disketten 2DD 49,- 

Dis ketten box 40/80 39-/46,-- 

Druckerkabel 38,-- 

Floppystecker 9.80 

Monitorstecker 6.80 

Monitorbuchse 14.80. 

PAL-Interface III Anschluß Ihres 
ST's an Farbfernseher 198,— 

Abdeckhauben: 

Konsole 520/1040 29,- 

Monitor (124/1224) 39,- 

Farbbander a.A. 
CSF-Gehäusefür26<y520 148,- 

ROM-Satz für alle ST's 148,— 

Akustikkoppler 30cy 1200 378,- 

Literatur a.A. 

THINGI-Konzepthalter 24,80 

Trackball von Atari 98,- 

Monitor-Box umschaltbar Mono¬ 
chrom / Color 58,-- 

Computertlsch grau, eckig 298,- 
hochwertige Qualität rund 348, 


Alles 


aus einer 

Hand ! 

Wir unterhalten ein reiches 
Läger! Alle Atarf Soft- und 
Hardwareprodukte stehen 
vorführtjereit in unseren 
Ausstellungsräumen. Be¬ 
suchen Sie uns doch ein¬ 
mal, ' _ 

Kart-Heinz ■ Potsdamer Ring 10 * 7150 Backnang 
Telex 724410 weebad * Kreissparkasse Backnang 
(BL2 60250020)74397 • Postgiro Stgt. 83326-707 


Weide-Produkte > 

Echtzeltuhr Jede Uhr im Rechner getestet 
129,— wd gestellt. Interner Einbau 

ohne Löten. 10 Jahre Laufzeit. 

Speicher- Interner Einbau ohne Löten, 
erweiterung Gut bebilderte Embauanleit. 
298,- Erw. auf 1MB für 260/520 STM. 

Video Sound Klangkräftige 3-wege Box mit 
Box integriertem HF-Modulaior zum 

Direktanschluß aller Atari ST 
an den Fernseher. Unübertrof¬ 
fene Bildqualrtäll J 


248,- 




COnPUTER-ELEKTROniK 


Zahlung per Nachnahme oder Vorauekasse (Ausland perScheck), 
Versandkosten pauschale (Inland 6,80 OM /Ausland 16,60 DM). 
Bitte bei Bestellung + tnfoanforderung den Computertyp angeben! 

07191/1528-29 od. 60076 


J 
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BITTEEINSTEIGEN 

DER V.l.P.-KURS FÄHRT AB 



Tabellenkalkulationsprogramme 
für den ATARI ST erfreuen sich 
nach wie vor großer Beliebtheit, für 
manchen Anwender geht kein Weg 
an solch einem Rechen-, Daten¬ 
bank- und Grafikprogramm vor¬ 
bei. Die sogenannten integrierten 
Programmpakete sind jedoch 
durch ihren sehr großen Befehls¬ 
umfang nicht immer leicht zu be¬ 
dienen. Unser Kurs soll den NEU¬ 
LING oder “absolute Beginner” 
(David Bowie möge es mir verzei¬ 
hen) auf dem Gebiet der Tabellen¬ 
kalkulation, Schritt für Schritt an 
die Bedienung von VIP PROFES¬ 
SIONAL, einem LOTUS 1-2-3 
ähnlichen Tabellenkalkulations¬ 
programm, heranführen. 

Was’n V.l.P ? 

Der Kenner würde VIP mit “very 
important programm” übersetzen. 
Unser Vip-Professional wird in 
Deutschland von der Computertech¬ 
nik Kiekbusch GmbH seit 1984 auf 
dem deutschsprachigen Markt ange- 
boten. Seit der Programmfreigabe 
ließen sich immerhin 4500 Pakete 
dieses Tausendsassas veräußern, eine 
wohl unbekannte Menge zusätzlicher 
gravitationsloser Freundschafts-Si¬ 
cherheitskopien wird die Zahl der 
Anwender wohl auf über 10000 
schnellen lassen. 

Gut finde ich, daß nur registrierte 
Anwender von dem reibungslos lau¬ 
fenden Update-Service der Kiek- 
busch-Mannen Gebrauch machen 
können, denn inzwischen kann man 
das Programm mit der Freigabe 1.4 in 
zwei Programmversionen erwerben 
oder updaten lassen. 


Die TEXT-VERSION, auch Turbo- 
Version genannt, zeichnet sich durch 
(MS-DOS-Anwender bitte überlest 
diesen Absatz) relativ hohe Verarbei¬ 
tungsgeschwindigkeit gegenüber der 
GEM-Version aus. Die GEM-Ver- 
sion (das ist die, mit der man die 
Mäuse hüpfen lassen kann) hat leider 
nur das GEM aufgesetzt bekommen 
und ist nicht, wie es sich heutzutage 
gehört, völlig dem GEM-Zauber ver¬ 
fallen. 

Das Vip Professional kann seine 
Verwandschaft mit dem Top-Renner 
der Tabellenkalkulationsprogramme, 
dem LOTUS 1-2-3, nicht verschwei¬ 
gen. Mit den ersten Versionen von 
1-2-3 setzte man mit der Einführung 
von macro-programmierbaren Tabel¬ 
lenkalkulationen einen neuen Trend. 
LOTUS 1-2-3 wurde allerdings aus¬ 
schließlich für die MS-DOS-WELT 
geschaffen und befindet sich heute 
schon in der 3.Generation. 

Die Atari-Anwender schauten recht 
lange neidvoll auf dieses 1 -2-3, so daß 
sich die VIP TECHNOLOGIES in 
Santa Barbara, Califomien, an die 


Entwicklung eines Clone-Ablegers 
von 1-2-3, ausschließlich für die 
68000-Welt machten. Das gelang den 
Entwicklern nach einigen Anlauf¬ 
schwierigkeiten recht gut und nach 
nunmehr 3 Jahren seit der Programm¬ 
einführung erhält man ein fast fehler¬ 
freies Programm, das es einfach in 
sich hat. 

Anfänger auf gepaßt! 

Den Fans von alten Heinz-Rüh- 
mann-Filmen empfehle ich, die “Feu¬ 
erzangenbowle” nochmals Revue 
passieren zu lassen, sagte da nicht ein 
Professor: “Soo, nu stelle MIR uns 
mal janz doof’. Doch nun genug mit 
diesem Smalltalk, fangen wir an! 

Am besten läßt sich eine Tabellenkal¬ 
kulation, auch Rechenblatt genannt, 
mit einem Blatt Papier vergleichen. 
Teilen Sie Ihr Blattin Spalten und 
Reihen auf. 

Beschriften Sie die Spalten mit Buch¬ 
staben von A bis H, die Reihen 
numerieren Sie mit Ziffern von 1 bis 
19. Wenn wir nun die Spalten und 
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1 Unser Koordinatensysten 
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Bild 1: Leeres Koordinatensystem 


Reihen durch Linien trennen, erhal¬ 
ten wir ein Koordinatensystem mit 
Zellen. Diese Zellen werden durch 
ihren Platz im Koordinatensystem 
unseres Blattes mit den Koordinaten¬ 
schnittpunkt benannt. 

Also nochmal ganz langsam: die Zel¬ 
le im linken oberen Eck erhält den 
Namen Al die Zelle im linken unte¬ 
ren Eck den Namen H19 und so wei¬ 
ter, und so weiter. 

Eine Zelle hat also immereinen festen 
Namen in unserem Rechenblatt, zu¬ 
sätzlich kann sie unterschiedliche 
Attribute erhalten, die sich aus Zel¬ 
lenname, Zellenbreite, Text- oder 
Labelvorgabe, Schutz-Bemerkung 
und so weiter zusammensetzen kön¬ 
nen. In unserem Bildchen sehen wir 
die Zelle C6 mit einer Zellenbreite 
von 9 Stellen, wir haben nur Textein¬ 
gaben für diese Zelle vorgesehen und 


haben den Zellen-Schutz mit U (für 
unprotected = ungeschützt) verein¬ 
bart. Das war jetzt ein wenig kompli¬ 
ziert, aber dazu noch später. 

Hurra, unser Baby 
lernt laufen! 

Ich gehe davon aus, daß Ihnen das 
Papierkritzeln zu langweilig gewor¬ 
den ist und Sie Ihr Vip-Professional 
bereits geladen haben. 

Das leere Arbeitsblatt enthält in der 
TEXT-Version keine Trennlinien 
von Zelle zu Zelle, GEM-Vips kön¬ 
nen mit GRID Ihr Gitter zu- oder ab¬ 
schalten. 

Doch es dürfte auch dem Laien nicht 
schwerfallen, sich solch ein Koordi¬ 
natensystem sinnbildlich dazuzuden¬ 
ken. Der schlaue Anwender wird 
schnell feststellen, daß mit einem 


Arbeitsblatt dieser abgebildeten Grö¬ 
ße nicht viel anzufangen ist. Begeben 
wir uns doch auf die Reise, lernen wir 
die Grenzen des VIP-Universums 
kennen. 

Versuchen Sie mit der CURSORTA¬ 
STE (SÜD) über die 20 Reihen-Gren¬ 
ze hinauszupreschen. Siehe da, unser 
Blatt wird größer. Doch jetzt runter 
von der Cursortaste, unser ATARI 
puffert nämlich bei gedrückter Taste 
jeden Intervallanschlag, und es kann 
passieren, daß die Bildschirm-Expe¬ 
dition zu einem endlosen Marathon¬ 
lauf ausartet. 

Unser 2. Versuch soll uns nun seiten¬ 
weise an das Reich der Mitte heran¬ 
führen. Halten Sie die SHIFT-Taste 
und die CURSORTASTE (SÜD) 
gemeinsam einmal gedrückt. Wir 
stellen fest, unser Marsch wird nicht 
so anstrengend. 

Im 3. Versuch hören wir auf zu mar¬ 
schieren und nehmen das Flugzeug. 
Drücken Sie bitte die INSERT-Taste; 
auf der rechten Bildschirmunterseite 
erscheint das Wörtchen “END”, da¬ 
nach die CURSORTASTE (SÜD) 
und siehe da - wir haben die Grenze 
unseres Universums schon erreicht. 
Immerhin liefert unser Blatt 8192 
Zeilen ! 

Doch wie sieht’s denn mit unserer 
Orientierung nach “rechts” aus, also 
in Richtung der Buchstaben X,Y,Z ? 
Die Tastenbedienung haben wir ja mit 
unterschiedlichen Kombinationen 
schon kennengelernt, auch hier neh¬ 
men wir das Flugzeug: mit der Taste 
INSERT (END-Anweisung) und der 
CURSORTASTE (OST) fliegen wir 
gen Osten. 

Bis zur Spalte IV reicht unser Sprit, 
also 256 Spalten ! Lassen wir uns 
nicht von dieser Doppelbuchstaben- 
Spaltenbezeichnung (uhh, langes 
Wort) verwirren, denn Vip zählt seine 
Spalten wie folgt: 

X, Y, Z, AA, AB.IV (Ganz ein¬ 

fach oder ?) Ich empfehle Ihnen drin¬ 
gend etwas Bewegung, damit meine 
ich natürlich Bildschirmbewegung in 
unserem Vip. Bei großen Anwendun¬ 
gen sind die nun mal eingeprägten Ta¬ 
stenkombinationen sehr hilfreich. 
Hier nochmal die Zusammenfassung 
unserer Trimm-Dich-Aktion: 


Ai: 

I 


Mas ist eine Zelle ? 


TTirrm 



Zelle C6 


Bild 2. Koordinatensystem mit Zelle C6 
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a) reihen-/spaltenweises 
Fortbewegen 

= CURSORTASTEN 

b) seitenweises Fortbewegen 

= SHIFT + CURSORTASTE 

c) Sprung an den Rand 

= INSERT-TASTE, CURSOR¬ 
TASTE 

d) Sprung auf A1 

= CLRHOME-TASTE 

So, nun müssen wir uns aber beeilen, 
unser Atari läuft so langsam aber si¬ 
cher warm, und wir haben noch nichts 
Produktives erreicht. Tragen Sie in 
Ihr Vip-Blatt nun in der Zelle Al den 
Wert 100, in Zelle A2 den Wert 230, 
in Zelle A3 den Wert 400, in Zelle A4 
den Wert 400, in Zelle A5 den Wert 
900 ein. 

Man kann diese Eintragung auf zwei 
Arten durchführen: 

1. ) Wert eingeben, mit Retum be¬ 

stätigen, CURSORTASTE 
(SÜD) zur nächsten Zelle. 

oder 

2. ) Wert eingeben, CURSOR 

TASTE (SÜD) drücken und 
schon sind wir in der nächsten 
Zelle. 

Sie sehen VIP interpretiert im Eintra¬ 
gungsmodus für Zellen auch die 
CURSORTASTEN als RETURN 
(Enter)+Richtung. 

Leider müssen wir bei der Addition 
unserer eingetragenen Zellenwerte 
unser Gehirn anstrengen, bis wir in 
der Zelle A6 die Summe 2030 eintra¬ 
gen können. 

Damit unser Gehirnschmalz nicht 
zum Sieden kommt, ließe sich nun im 
Rechenblatt in der Zelle A6 ein Be¬ 
fehl zur Summenbildung eintragen. 
Hierfür gibt es mehrere Möglichkei¬ 
ten: 

a) Schreibe in die Zelle A6 folgen¬ 
de Befehlsfolge: 

+ A1+A2+A3 +A4+A5 (Return) 

Wir teilen unserer Zelle A6 mit, 
daß in ihr die Zellen Al, A2, A3, 
A4 und A5 miteinander addiert 
und mit dem Ergebnis am Bild¬ 
schirm angezeigt werden sollen. 

b) Wesentlich eleganter kann man 
diese einfache Addition mit dem 
Summenbefehl des Vip-Sprach- 



Jiild J: S u m men bi Idu ng im VII* 

Schatzes durchführen. 

Schreibe in die Zelle A6 folgen¬ 
de Befehlsfolge: 

@SUM(A1..A5) (Return) 

Sie sehen, auch mit der Formel 
@SLJM(Bereich ) lassen sich 
Additionen durchführen. 

Bei großen Bereichen empfiehlt 
sich als oder Summenbefehl schon 
von selbst. 

c) Die 3. Variante der Zellenbe¬ 
reichserfassung ist das “Lasso¬ 
werfen” oder “Einkreisen”, wie 
es die alten Trapper unter den 
Vips bezeichnen. 

Stellen Sie mit den CURSOR¬ 
TASTEN Ihren Zellenzeiger 
wieder auf Zelle A6 und führen 
die Eingabe nach Tabelle 1 
durch: 

Klappt doch schon ganz gut, oder? 
Üben Sie jetzt kräftig bis zum näch¬ 
sten Teil unseres Programmierkur¬ 


ses, denn dann werden Ihnen die For¬ 
meln und Befehle nur so um die Oh¬ 
ren fliegen, als Vorgeschmack hier 
eine kleine Hausaufgabe. Geben Sie 
in eine beliebige Zelle nachfolgende 
Formeln ein: 

1. ) +314+((7*1,987)^3)1765 

2. ) +2/0.185*(1258/8) 

3. ) in Zelle Al 15667 eingeben, 
in Zelle A2 eingeben: 
+Al*(678/4)+(Al/2) 

HDS 


Zur Person des Autors: 

Name: Heinz Dieter Schultz 
Alter: 33 

Ausbildung: Betriebswirt(VWA) 

VIP-VIRUS: seit 1983 mit Lotus 1-2-3, 
über Symphony, dann zu Hause auf 
ATARI umgestiegen, Vip von Anfang an. 
Bei Problemfragen: Heinz D. Schultz 
Ingersheimer Str. 12 
7140 Ludwigsburg 

Bitte Versionsnummer VIP nicht verges¬ 
sen. 

(GEM oder TEXT, V1.1, V1.2 etc.) 


TASTE: 

Bemerkung: 

@ 

Anweisung für Formel 

s 

der 

u 

Summen- 

M 

Befehl 

( 

Klammer öffnen, für den Bereich 

Taste INSERT 

END-Anweisung 

CURSORTASTE (NORD) 

Cursortaste und Sprung auf A1 


Punkt (Anker) setzen 

CURSORTASTE (SÜD) 

Cursortaste 

CURSORTASTE (SÜD) 

Cursortaste 

CURSORTASTE (SÜD) 

Cursortaste 

CURSORTASTE (SÜD) 

Cursortaste 

) 

Klammer schließen, für den Bereich 

RETURN 

Mit Retum die Eingabe abschließen. 


Tabelle 1 
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Aus der Hardwareküche 


der 


IRLItJ 

Computer gmbh 



Der Easyprommer V2.2 

Ein universelles Programmiergerät für den ATARI ST, das 
nicht nur alle gängigen EPROMs der 27...-Serie inkl. 27011 
(Megabit-Eprom) brennt, sondern auch die modernen 
EEPROMs lesen und programmieren kann. Die sehr kom¬ 
fortable Software, natürlich voll GEM unterstützt, erlaubt 
alle nur denkbaren Manipulationen. Mit dem integrierten 
HEX/ASCII-Monitor lassen sich Änderungen der Daten 
blitzschnell realisieren. Der auf der Platine befindliche 
Druckertreiber erlaubt das problemlose Drucken der Da¬ 
ten. Zwei Zusatzprogramme ermöglichen das Brennen je¬ 
der nicht kopiergeschützten Software direkt von Diskette 
einschließlich Accessories und Autostart-Programmen. Der 
Easyprommer wird an den Druckerport angeschlossen und 
samt Diskette und Handbuch geliefert. 



Easytizer 

- der Videodigitizer ohne Geheimnisse 

Mit dem Easytizer können Sie beliebige Videosignale von einer 
Schwarzweiß- oder Farb-Kamera, Videorecorder oder auch di¬ 
rekt vom Fernsehgerät (mit Composite Video Ausgang) digitali¬ 
sieren und somit auf dem Bildschirm Ihres ATARI ST sichtbar 
machen. 

Der Easytizer wird am Modul-Port des ST angeschlossen. Die 
Auflösung beträgt 800x600 Bildpunkte, so daß in mittlerer Auflö¬ 
sung 640x200 Bildpunkte in vier Graustufen dargestellt werden 
können. In dieser Betriebsart werden 12,5 Bilder in der Sekunde 
wiedergegeben! Im hochauflösenden Modus werden 640x400 
Bildpunkte in Schwarzweiß wiedergegeben. 

Besondere Merkmale des Easytizers: 

- Software vollständig in Assembler 

- Abspeichern der Bilder im DEGAS-Format 

- Spiegeln eines Bildes in horizontaler und vertikaler Ebene 

- Von STAD ansteuerbar 

- Ein beliebiger Bildausschnitt kann in ein mit der Maus wähl¬ 
bares Format verkleinert oder vergrößert werden 

- Animation mit beliebig vielen Bildern möglich, nur durch die 
Kapazität des Rechners begrenzt (beim Mega ST4 über 100 
Bilder) 

- Eingebauter Druckertreiber für die mittlere Auflösung für 
NEC P6/P7 und EPSON oder Kompatible 

- Wahlweise automatische oder manuelle Helligkeitseinstellung 

- Schnappschuß 

Lieferumfang: 

1. ) Fertiggerät 

komplett aufgebaut und geprüft, inklusive Diskette mit der 
Easytizer Software und Bedienungsanleitung. Preis: DM 289,- 

2. ) Teilesatz 

Für Bastler liefern wir einen Teilesatz bestehend aus: 

- doppelseitiger, elektronisch geprüfter Platine mit Lötstopp¬ 
lack und Bestückungsaufdruck sowie vergoldeten Anschluß¬ 
kontakten 

- fertig programmiertes GAL 16V8 

- Quarzoszillatormodul 32 MHz 

- Diskette und Bedienungsanleitung Preis: DM 129, — 


Hiermit bestelle ich 

□ Easyprommer (Fertiggerät) 
für DM 349,- 

□ Easyprommer (Bausatz) 
für DM 298,- 

□ Easytizer (Fertiggerät) 
für DM 289,- 

□ Easytizer (Teilesatz) (w. o. beschrieben) 
für DM 129,- 

□ 128 KByte EPROM-Karte (fertig bestückt o. EPROMs) 
für DM 58,- 

□ Verlängerungskabel für Easyprommer 
für DM 39,90 

Versandkosten: Inland DM 7,50 Ausland DM 10,- □ Vorauskasse 

Auslandsbestellungen nur gegen Vorauskasse d Nachnahme 

Name:_ Vorname:_ 

Straße:_ Ort: _ 

Unterschrift:_ 

Bezugsquelle: 

Computer gmbh 

Industriestraße 26 
6236 Eschborn 




























SOFTWARE 
DIE ES IN SICH HAT! 


Nun auch in Deutschland! 



Mit dem PC ditto läuft auch die Software, 
die es für den ATARI ST noch gar nicht gibt. 


Mit dem PC ditto laufen so viele 

Programme, daß wir sie hier gar 
nicht alle auflisten können. 


Schwarz auf Weiß kann jetzt jeder auf seinem ATARI ST unter MS-DOS 


arbeiten. 


Doch nicht nur monochrom, nein, auch in Farbe ist nun 
der Zugriff auf die Welt der PC-Rechner möglich. 

Die Software-Emulation PC ditto öffnet 
allen ATARI ST Anwendern das Tor zum 
gewohnten professionellen 
Business Standard. 


NEU 


EUR O 


VERSION 


3.64 


Mit dem PC ditto können Sie 
mühelos mit Lotus 1-2-3 oder 
Symphony Ihre Kalkulation erstellen, 
oder Ihre Daten mit DBase III plus verwalten. 

Mit dem PC ditto haben Sie Zugang zu Turbo 
Pascal, zum GW BASIC Interpreter, und 
auch zu Borlands neuestem Kind Turbo Basic. 


Der PC ditto unterstützt die ATARI-Festplatte, den Druckerport, sogar den 
Laserdrucker und alle Schnittstellen, soweit es die Hardware zuläßt. 


Machen Sie aus Ihrem ATARI ST den preiswertesten PC-Clone! Bestellen Sie 
den PC ditto zum Superpreis von nur DM 198,-. 

Wir laden Sie ein! Steigen Sie mit Ihrem ATARI ST in die Welt des MS-DOS 
ein. 


-! 

Hiermit bestelle ich_PC ditto für 198.- ! 

. Anruf genügt! ( 

Tel.: 06196/481811, Mo-Fr 9-13 und 14-17 Uhr. Schriftliche Bestei- ! 

lung nur gegen Vorkasse oder Nachnahme (Versandkosten DM 7,50; | 

bei Nachnahme zuzüglich DM 3,50 Nachnahmegebühr) , 

Name: _Vorname_ 

Straße:_Ort:_ 

Unterschrift:____ 

MS-DOS und GW-BASIC sind Warenzeichen von Microsoft Corp. Lotus 1-2-3+ Symphony s‘nd 

Warenzeichen von Lotus Dev. Corp. Turbo Pascal und Turbo BASIC sind Warenzeichen I 

von Borland Corp. DBase UI Plus ist ein Warenzeichen von Ashton Tate Corp. * 
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Nähere Informationen gegen ausreichend 
frankierten Rückumschlag bei: 



MERLIN COMPUTER GMBH 
INDUSTRIESTRAßE 26 
6236 ESCHBORN 
TEL.: 06196/481811 

























ZWISCHEN- % 
LAGERUNG 


Laut Murph’schem Gesetz treten 
sie immer dann auf, wenn man sie 
überhaupt nicht gebrauchen kann - 
die Zwangspausen, in denen man 
mal wieder auf den Drucker warten 
muß. Aber, wo eine Pause ist, ist 
auch ein Wille (oder so ähnlich), 
und so gibt es findige Helferlein, die 
der Warterei ein Ende bereiten 
sollen. 

Obwohl fast alle Drucker, die heute 
auf dem Markt sind, eingebaute Zwi¬ 
schenspeicher von 2 bis 32 kRAM 
aufweisen, gibt es doch noch immer 
gewisse Wartezeiten beim Drucken, 
zumindest bei den Modellen mit bis 
zu 8 kRAM. Bei den größeren Zwi¬ 
schenspeichern läßt sich zwar eine 
Beschleunigung beobachten, doch 
wenn man mal eine falsche Datei zum 
Druck abgeschickt hat, kann entwe¬ 
der nur der unnötige Verschleiß an 
Papier und Farbband bedauert oder 
der Drucker durch Abschalten von 
seinen gespeicherten Daten befreit 
werden. Hier könnte durch einen von 
außen bedienbaren Resetknopf für 
den Speicher einiges anwender¬ 
freundlicher gestaltet werden. 

Speicher engros... 

Eine bessere Variante stellen da 
schon die Programme dar, die der 
heutigen Computergeneration mit 
ihren Riesenspeichern von 1 MByte 
und mehr ein paar kByte vom RAM 
abknapsen, um das Ganze zum soft¬ 
waregesteuerten Druckerspooler 
umzufunktionieren. Das klappt aber 
nur so lange, wie die Programme 
normale Routinen zur Druckausgabe 
verwenden. Im anderen Fall werden 
nämlich diese Spooler einfach igno¬ 
riert und der gewünschte Effekt der 


Beschleunigung tritt nicht ein. Ein 
Paradebeispiel hierfür ist gerade das 
Textverarbeitungsprogramm SIG¬ 
NUM !, das die Druckerdaten als reine 
Grafikdaten sendet und eine eigene 
Druckroutine benutzt. 

Überlisten 

Doch es gibt ja noch die dritte Va¬ 
riante, und die wollen wir hier einmal 
näher betrachten. Im konkreten Fall 
war es auch genau das Programm 
SIGNUM!, das die Versuche mit ei¬ 
nem externen Druckerspooler oder 
Druckerpuffer interessant machte. 
Die externen Puffer sind in aller 
Regel kleine Kästen, die zwischen 
Computer und Drucker geschaltet 
werden, entweder als kleines Steck¬ 
modul (quasi als Verlängerung eines 
Centronics-Steckers) oder als eigen¬ 
ständiges Gerät mit separater Strom¬ 
versorgung. Diese kosten je nach 
Speichergröße (64 kByte bis über 2 
Mbyte RAM) ab etwa DM 400,-. Um 
so erfreulicher ist, daß es jetzt einen 
64-kRAM-Spooler für knapp unter 
DM 200,- gibt, den wir hier einmal 
näher unter die Lupe nehmen wollen. 

Aufgabenstellung 

Wie gesagt, ausschlaggebend für 
den Test eines solchen Spoolers war 
die lange Wartezeit, die durch den 


Ausdruck von SIGNUM-Textdateien 
entsteht. Der Computer meldet sich ja 
wirklich erst nach dem letzten Pixel¬ 
chen auf dem Papier zur Weiterarbeit 
zurück. Die Anlage, an der der Spoo¬ 
ler getestet wurde, war ein normaler 
ST der alten Serie mit 1 MByte-RAM, 
daran angeschlossen ein NEC P6 mit 
automatischem Einzelblatteinzug. 
Als Testgrundlage dienten zwei Text¬ 
dateien mit unterschiedlicher Größe, 
die als ASCII-Datei vom Desktop aus 
gedruckt und als Tetxe in SIGNUM! 
und Wordplus konvertiert wurden. 

Outfit 

Doch zuerst wollen wir uns das 
Gerät einmal näher anschauen. Der 
Multi-Buffer MB64 wird mit exter¬ 
nem Steckemetzteil und 8-seitiger 
deutschsprachiger Gebrauchsanwei¬ 
sung in einem stabilen Pappkarton 
geliefert, deren äußere Werbesprüche 
die Lösung all unserer Probleme ver¬ 
sprechen (“Drucken mit Buffer - 
Computer frei für gleichzeitige Be¬ 
nutzung” oder “speichert bis zu 64 k, 
ca. 32 Schreibmaschinenseiten” 
usw.). Nach dem Auspacken wäre mir 
das Gerätchen trotz seiner kleinen 
Abmessungen von 190 x 135 x 60 mm 
fast aus der Hand gefallen - das Ding 
hat das stolze Gewicht von 1,4 kg, wer 
rechnet denn mit sowas?... Zusam¬ 
men mit den Gummifüßen ergibt das 


BUFFER PRINTER BYPASS 

READY ERROR ÖTK ^ 


COPY 





RAM 

STATUS 

■ m 

* 



• 

1 6K 

32K 

48K 

64 K 


OB. 


RESET 


onoff star e t nd plus > Multi Buffer < MBB4 


Bild I: Die Bedienungselemente des Multi-Buffers 
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aber eine beeindruckende Stand¬ 
festigkeit, die - schaut man sich die 
fingerdicken Centronicskabel an - gar 
nicht so verkehrt ist. Auf der Rücksei¬ 
te befinden sich neben den beiden 
Centronicsbuchsen der Ein/Aus¬ 
schalter (nicht Netzschalter!) und die 
Buchse für die 9V-Spannungsversor- 
gung. Hier wäre auch eine erste Kritik 
anzusetzen, die Klammer der Centro- 
nicsbuchse für den Printer läßt sich 
bei eingesteckter Spannungsversor¬ 
gung nicht weit genug öffnen, um den 
Centronicsstecker an- oder abzukop¬ 
peln. 

Tastatur 

Auf der Vorderseite finden wir von 
links nach rechts den Reset-Knopf 
mit darüberliegender “Buffer-Rea- 
dy”-Anzeige, eine Anzeige für “Prin¬ 
ter Error”, den Taster und die Anzeige 
für die “Bypass”-Funktion, eine LED 
für die “Copy”-Funktion mit den 
Tasten “Start/End” und “Plus” und 
vier LEDs, welche den “RAM-Sta- 
tus” in den Bereichen 16k, 32k, 48k 
und 64k anzeigen. 

Gebrauchs-an- 

weisung 

Ich werde immer etwas mißtrauisch, 
wenn der erste Satz in einer Anleitung 
mit einer “Gratulation zum Kauf...” 
anfängt. Ist das jetzt ironisch gemeint, 
frei nach dem Motto “selbst daran 
schuld...” oder ehrlich, daß man es 
endlich geschafft hat, sein schlechtes 
Gewissen wegen der Geldausgabe zu 
überwinden? Naja, zumindest der 
zweite Satz verspricht wieder ruhigen 
Schlaf, der da heißt: “Jetzt können Sie 
endlich umfangreiche Dokumente 
ausdrucken und gleichzeitig an Ihrem 
Personal Computer Weiterarbeiten”. 
Die Anleitung selbst ist ausreichend 
und bietet auch dem Nur-Benutzer 
genügend Hilfestellung. Selbst eine 
Tabelle mit der Belegung der Ein- 
und Ausgangsbuchse fehlt nicht. 
Einer Adaption nicht ganz kompatib¬ 
ler Druckerports steht somit wohl- 
nichts im Wege. 


Innereien 

Ein Blick in das Innere des Gehäuses 
verrät “gute Hausmannskost” und 
zeigt einen sauberen Aufbau. Dort 
versieht eine Z-80-CPU ihren Dienst 
(üblich, da sie den Refresh der dyna¬ 
mischen RAMs automatisch macht), 
neben dem 2764-EPROM mit der 
“Spooler-Software” gibt es noch eini¬ 
ge TTL-ICs und die RAM-Bank mit 
acht 4164 (wider Erwarten liegen 
innen doch keine Bleiplatten, an¬ 
scheinend ist das Gehäuse aus 2 mm 
Stahlblech...). 

Jetzt wird’s ernst 

Schauen wir uns die Funktion des 
Spoolers mal im einzelnen an. Beim 
Einschalten leuchten die LEDs zur 
Kontrolle kurz auf und im RAM wird 
ein Selbsttest durchgeführt, die An¬ 
zeigen für den RAM-Status verlö¬ 
schen dabei nacheinander (sie dienen 
später als Information für die Bele¬ 
gung des Speichers, bei “Überlauf’ 
flackert die 64k-LED) und die Buffer- 
Ready-Anzeige leuchtet auf. Beim 
Druck auf die Reset-Taste wiederholt 
sich der ganze Vorgang und der Inhalt 
des Puffers wird gelöscht. Ist jetzt 
kein Drucker angeschlossen oder 
dieser angeschlossen, aber nicht ein¬ 
geschaltet, oder aber eingeschaltet 
und Off-Line, so leuchtet zusätzlich 
die Printer-Error-LED. Bei dem NEC 
P6 mit Einzelblatteinzug wird das 
Papier erst kurz vor dem Ausdruck 
eingezogen. Drückt man beim Spoo¬ 
ler allerdings die Bypass-Funktion, 
so zieht er das Papier sofort ein und 
wartet dann auf die auszudruckenden 
Daten. 


Morse 

An der Copyfunktion hätte der Erfin¬ 
der der Telegrafie sicher seine Freude 
gehabt, denn er könnte den Puffer als 
Übungstaster benutzen. Das Aufru¬ 
fen dieser Funktion funktioniert 
nämlich nach folgendem Schema: 

1. Taste Start/End drücken 
(Copy-Anzeige blinkt) 

2. Ausdruck am Computer star¬ 
ten 

3. Für die gewünschte Anzahl 
der Kopien die Taste Plus 
entsprechend oft drücken 

4. das Ganze mit nochmaligem 
Druck auf die Taste Start/End 
abschließen (Copy-Anzeige 
leuchtet) 

Was sagten Sie gerade, wieviele 
Kopien brauchen Sie...? 

Auf die Plätze... 

Als erstes wurde die kleinere Datei 
(entspricht einer normalen Brief-Da¬ 
tei) einmal ohne eingeschleiften 
Spooler ausgedruckt und jeweils die 
Zeiten, bis der Computer wieder ein¬ 
gabebereit war, gestoppt. Anschlie¬ 
ßend wurde der Puffer angeschlossen 
und die Ausdrucke einmal über die 
Spooler-Funktion und ein zweites 
Mal über die Bypass-Funktion ge¬ 
druckt. Die Ergebnisse finden Sie in 
der Tabelle 1. Die Zeitangaben für 
Wordplus stimmen nicht hundertpro¬ 
zentig, da man ja nach dem Druckbe¬ 
fehl eine andere Datei weiterbearbei¬ 
ten kann (Druck im Hintergrund, es 
geht doch...). Die einzige Aussage 
über den Druckab-lauf ist das Häk¬ 
chen im Menüeintrag - nur, wenn 
irgend ein Menüeintrag geöffnet 
wird, stoppt die Druckausgabe. Des- 



Bild 2: Der Multi-Buffer wird einfach eingeschleift 
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Größe 

ohne Spooler 

Bypass 

mit Spooler 

ASCII 

821 

7,9 sek 

2,8 sek 

2,7 sek 

Wordplus 

942 

19,3 sek 

17,1 sek 

9,8 sek 

SIGNUM! 

1980 

44,5 sek 

46,5 sek 

25,8 sek 


Tabelle 1: Zeitvergleich mit kleinen Dateien 


wegen sind die Werte in Tabelle 1 
etwas über den Daumen gepeilt. 
Diese Werte muß ich kurz kommen¬ 
tieren. Der große Unterschied für die 
ASCII-Datei zwischen “ohne Spoo¬ 
ler” und “Bypass” ergibt sich einfach 
daraus, daß beim Einschalten der 
Bypass-Funktion wie oben bereits 
erwähnt das Papier schon eingezogen 
wird. Ansonsten zeigen die Werte ja 
einen gewissen Zeitvorteil bei der 
Spooler-Funktion. Das beim SIG- 
NUM!-Ausdruck allerdings die 16k- 
LED schon aufleuchtete, hätte mich 
mißtrauisch machen sollen... 

Einen Spooler mit kleinen Dateien zu 
testen, ist ja nicht ganz im Sinne des 
Erfinders, deshalb wurde der Testlauf 
mit einem größeren Text wiederholt 
(ca. 5 Seiten ASCII-Text, s. Tabelle 
2). Kaum zu glauben, aber SIGNUM! 
braucht ohne angeschlossenem Spoo¬ 
ler weniger Zeit als mit! Außerdem 
war nach sage und schreibe 57 Sekun¬ 
den der 64kRAM-Puffer voll... 


Die restlichen Zeiten können sich 
sehen lassen, bei der ASCII-Datei 
meldet sich der Computer schon nach 
12% der ursprünglich benötigten Zeit 
zurück, aber... 

Fazit 

Für eine Zeitersparnis beim Ausdruck 
von SIGNUMi-Texten ist dieser 
Druckerpuffer gänzlich ungeeignet - 
es heißt also weiterhin warten. Für die 
anderen Anwendungen ist er brauch¬ 
bar, wäre da bei Wordplus nicht die 
Möglichkeit, eine andere Datei zu 


Tabelle 2: Zeitvergleich mit großen Dateien 


ENDE 


bearbeiten (oder dieselbe, die gerade 
gedruckt wird, nur unter einem ande¬ 
ren Namen), während der Drucker im 
Hintergrund läuft. Für ASCII-Datei- 
en kann genausogut ein (bestimmt 
billigerer) Softwarespooler verwen¬ 
det werden. Da wäre noch das Argu¬ 
ment der Copy-Funktion, aber wie 
gesagt - schönen Gruß von Herrn 
Morse (wo ist denn der Software¬ 
spooler mit Copyfunktion?). 

HP 

Bezugsquelle: 

Elite Multibuffer MB64 - 
Preis DM 199,- 

erhältlich in allen Kaufhof-Filialen 
(Außerdem notwendig: 
Centronicskabel, gibt’s ab 
DM 30,- aufwärts) 



Größe 

ohne Spooler 

Bypass 

mit Spooler 

ASCII 

18591 

2’44 min 

2’38 min 

0’29 min 

Wordplus 

18931 

5’52 min 

5’46 min 

2’35 min 

SIGNUM! 

31628 

17’03 min 

20’23 min 

18’29 min 


THE ART OF SOFTWARE 



- SCHNELLER DYNAMO COMPILER 

- KOMPLETTES SYSTEM MIT SIMULATOR UND DISPLAYER 

- SOURCE KOMPATIBEL ZU PROFESSIONAL DYNAMO 

- LÄUFT UNTER GEM. HIRES. FARBE UND IN DEUTSCH 

- RERUNS MÖGLICH. BATCH-FILE STEUERUNG 

- VIELE EINGEBAUTE FUNKTIONEN 

- GRAFIKAUSAUSGABE AUF MONITOR UND DRUCKER 

- DEUTSCHES HANDBUCH MIT REFERENZKARTE 

- MS DOS VERSION AUF ANFRAGE 


DM 225,- 


TAOS • P. EXL • P.O. 1002 • 7140 LUDWIGSBURG • 07141-57858 


Die Hardware-Uhr 

lur Aian ST 1040. 520. 260 
Schalfiahrerkennung 

Sommerzeit - Wmterzeit - Umscnaltung 
automatische Jahrestortschaltung 
keine Änderungen am AoschirmWech notwendig 
Langzeit akkugepulfert 
super oretswert 


DM K 


Dipl Ing. A Esch Hauptstr. 50 5405 Ochtendung 
Tel.: 02625 / 1231 


SCANNER Hawk CPU ST. 1758,- 

Imagic 395.- STAD 155.- Bolo 55.- 

NEU Blitter-Tos + Altes Tos in 

einem Rechner umschaltbar 195.- 

PD-Soft Atari-ST Hefte 1 - . 3.95 

Comptec CL1 mit NEC 1037a . 289.- 

CL1 durchgeschleifter Port. 315,- 

Signum II 355,- EINBAUUHR 75.- 

128 KB-Epromk. mit Programmen 

Ihrer Wahl für nur. DM 119.- 


COMPTEC GbR. Schulstraße 15 
3584 Zwesten. Tel.: 0 56 26/13 74 


Computer Thotograpfiy 

- Ihr Partner für Photo Publishing - 

Photo Workstation: mit Software erweiterte 
und ergänzte Photographie. Das exzellente System 
für die digitale Bild- und Graphikverarbeitung mit 8 
Bksjixd 498 DM 

Slide Maker: Das neue Verfahren auf dem 
Monochrom Monitor zur Herstellung von Dias, bei 
voller Auflösung, nach Wahl mit 256 Graustufen oder 
256000 verschiedenen Farben. Zusätzliche 
1 landwarewild nicht benötigt! 298 DM 

B i Id Vision : Millionen (u.a. kaleidoskopische) 
Möglichkeiten der digitalen Bildverarbeitung; Quellen¬ 
unabhängig (Easytizer, Scanner, Degas, P & T, STAD, 
de) 149 DM 

A-Frisur: die neue digitale Frisur, selbst entworfen, 
ohne die Schere anzusetzen! 249 DM 

Computer r Pfiotograpfiy 
Stcgemühlenwcg 48 
3400 Götüngcn 
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STEUERN SPAREN 
MIT 


STEUER TAX'87 

MIT DEN NEUEN 87ER VORSCHRIFTEN 
DAS UNENTBEHRLICHE PROGRAMM 
ZUR RICHTIGEN BERECHNUNG DER 
LQHN- UND EINKOMMENSSTEUER 
FÜR ALLE STEUERZAHLER MIT 
ST-COMPUTERN 

IN DER BRD UND WEST-BERLIN 


VERSION 2.7 

MIT DEN NEUEN STEUERLICHEN 
ÄNDERUNGEN UND VOR¬ 
SCHRIFTEN FÜR 1987 


► voll unter CEM eingebunden 

► mausgesteuert, einfache Bedienung 

► auf allen ATARI-ST-Rechnern lauffähig 
(bei 260 TOS im ROM) 

► Eingabe an Steuerformulare ange¬ 
paßt 

► Auswertung auf Monitor oder Drucker 
wurde dem Steuerbescheid angepaßt 

► schnelles durcharbeiten, da durch Pull- 
down-Menues nur die erforderlichen 
Bereiche bearbeitet werden müssen 

► mit vielen Hilfen, so daß auch der Laie 
mit seinem ATARI schnell und mühelos 
seine Steuer berechnen kann 

► ausführliches Handbuch, somit syste¬ 
matische Einführung in das Steuer¬ 
recht, mit Steuertabellen und Tabel¬ 
len für die Steuerklassenwahl bei 
Arbeitnehmer- Ehegatten 

► ständig werden aktuelle Steuer-Tips 
aufgrund der Einkommensteuer¬ 
rechtssprechung eingebaut 

► dem Handbuch sind Musterformulare 
beigefügt, um z. B. Werbungskosten 
aus unselbständiger Tätigkeit geltend 
zu machen 

► Update-Service für die Folgejahre 

► alle Eingaben und Auswertungen kön¬ 
nen abgespeichert und später wieder 
aufgerufen werden, um zwischenzeitli¬ 
che Änderungen einzugben und Neu¬ 
berechnungen durchzuführen 

► die Version 2.7 ist geeignet für den 
„normalen Anwender", der für sich 
seine Steuer berechnen will 

► S/W oder Farbmonitor 

DM 98,-* 


VERSION 3.7 

MANDANTENFÄHIG 


► Alle Merkmale wie Version 2.7, jedoch 
zusätzlich mit einer Datenbank. Pro¬ 
gramm deshalb mandantenfähig 

► pro doppelseitiger Disk können ca. 250 
Mandanten abgespeichert werden, auf 
20 MB Harddisk ca. 6.600! 

► die Version 3.7 eignet sich besonders - 
aber nicht nur - für Steuerberater, 
Lohnsteuervereine, Buchführungshel¬ 
fer, Versicherungsvertreter usw., die 
die Steuer auch für andere berechnen 
oder aber für solche Anwender, die 
mehrere Fallbeispiele für sich durch¬ 
rechnen und abspeichern wollen 

► darüber hinaus auch für Selbständige 
sehr interessant, die mehrmals im Jahr 
bzw. ständig einen Überblick über ihre 
Steuerbelastung haben wollen, um z. B. 
Investitionsentscheidungen zu treffen, 
also nach dem Motto: was muß ich noch 
tun, um die Steuerbelastung zu drük- 
ken (was wäre wenn) 

DM 159,-* 


UP DATE SERVICE 


STeuer Tax-Besitzer erhalten die neue 
Version 2.7 oder 3.7 gegen Rücksendung 
Ihrer registrierten Original-Diskette zum 
Preis von 35,-DM zuzügl. 5-DM Versand¬ 
kosten. 

Lieferung erfolgt nur gegen Übersendung 
eines Schecks in Höhe von 40,- DM. 

DM 35,-* 


* Alle Preise sind unverbindlich empfohlene Verkaufs¬ 
preise. 


Bitte besuchen Sie uns in 
Halle 7 / Stand E 46 



16. - 23. MÄRZ 1988 


BESTELL-C0UP0N 


an Heim-Verlag 
Heidelberger Landstraße 194 
6100 Darmstadt-Eberstadt 


Heim Verlag 

Heidelberger Landstraße 194 
6100 Darmstadt-Eberstadt 
Telefon 0 6151-56057 


Bitte senden Sie mir Lohn- und Einkommensteuer-Programm 

_St. STeuer-Tax 87 - Version 2.7 ä 98,- DM _St. STeuer-Tax 87 - Version 3.7 ä 159,- DM 

zzgl. DM 5,-Versandkosten (unabhängig von der bestellten Stückzahl) 

□ per Nachnahme □ Verrechnungsscheck liegt bei 

Name, Vorname_ 

Straße, Hausnummer_ 

PLZ. Ort_ 

Benutzen Sie auch die im ST COMPUTER vorhandene Bestellkarte 








PRODISC-II-DRIVES > DIE ECHTEN < 



ST-13 2 x 950 KB max. 



qtq. 07Q HM ★ Kpl. m. Netzteil u. allen Kabeln; Metallfleh, grau 

^ 1 "O. c.i O Utwi * Garantie: 6 Mon. + Prof-Service im Schadensfall 

__ _ _ _ * 100% ST-Kompatlbel; 85 Tr./Il Sektoren max. 

ST-13: 549 DM * Mit NEC 1037A oder Kompatiblen 


ATARI-MIDI-Synthesizer: Wir führen die neuesten Sampling-Synthesizer mit 
12 und 16 BIT Auflösung, die dazugehörige Software u. die Neuigkeiten dazu von 
der Frankfurter Musikmesse. Ihr Atari: Der perfekte Synthesizer. 

Für weitere Informationen bitte nachfragen. 

MEGA-ST-AUFRUSTUNG: Wir rüsten Ihren MEGA mit einem 2. Laufwerk auf! 


Aufrüstung mit NEC 1036 A (3 1/2 Zoll - 720 KB incl. Einbau): DM 349,00 

Aufrüstung mit TEAC 5 1/4 Zoll 40/80 Tr. umschaltb. + Einbau + Software: DM 499,00 

WEITERE FL0PPY-STATI0NEN: 

Modell 

Tel: 

0 6164/46 01 oder 
06151/51395 

ST-5 5 1/4” (720/360 KB), 40/80 Tr. Fertiggerät: 
ST-16 5 1/4 + 31/2 (NEC 1036 A)-””-Doppelstation: 

Diese Modelle sind 100 % ST-kompatibel und werden im Metallgehäuse grau mit eingebautem 
Netzteil und allen Kabeln kompl anschlußfertig geliefert. 

379,00 DM 
699,00 DM 


ri nnnv 11IWID A11 ■ Wirbauen lhrSF354miteinem NEC1036A 

| LU I I I - U IVI DH U • (720 KB) um. 100 % ST-komp. NUR 259,00 DM 

PC-ditto: Sonderpreis 


M. Fischer Computersysteme • Goethestr. 7 • 6101 Fränkisch-Crumbach ■ 0 0 6164/46 01 u. 0 6151 / 513 95 


multicomp Computersysteme 


5220 Waldbröl • Waldstraße 1 

• Telefon: 022 91-44 08/3386 

COMPUTER 


DRUCKER 


Atari PCI, 512 KBRam, EGA, Monitor. 


STAR LC 10 

695.- 

Maus. MS-DOS. GEM sofort lieferbar 

1.549,- 

NEC P2200, Bidi -Trakt Emzelblatt 

998.- 

Mega ST2, 2MB. Maus. Monitor SM124 2.948.- 

Epson LQ500, Bidi -Trakt.. Einzelblatt 

948.- 

Mega ST4. 4MB. Maus. Monitor SM124 

3.948- 

Epson LQ850. Bidi -Trakt., Einzelblatt 

1598. 

1040 STF. 1MB, Maus. Monitor SM 124 

1598. 

Epson LQ1050. Bidi -Trakt.. Emzelblatt 

1898. 

Amiga 2000. 1MB. Maus. Mon 1084 

2848.- 

Brother M1409, Traktor. Emzelblatt 

998.- 

MONITORE 


ZUBEHÖR 


NEC Multisync GS. a 3 Aufl sw 

698. 

Vortex HDPLUS 20. 20 MB Harddisk 

1295.- 

Eizo Flexcan. alle 3 Auflösungen 

1548. 

Vortex HDPLUS 30. 30 MB Harddisk 

1495.- 

Mitsubishi EUM 1471A. a. 3 Aufl 

1498.- 

BTX Term ST, Kabel u Software 

288.- 

Sanyo Monitore, grün amber. sw 


Schaltkabel. Atari an NEC/EIZO u a 

75,- 

oder Farbe auf Anfrage 


Druckerkabel. IBM/ST 2m. montiert 

29.90 

SOFTWARE 


BS Handel, neueste Version 

998, 1 

1 BS Fibu. neueste Version 

1098.- 

Omikron Basic, auf Disk 

179.- | 

| Omikron Compiler 

179.- 

Lieferung UPS Nachnahme o Vorkasse * Händleranfragen willkommen ★ 



Copy II ST - NEUE VERSION - DM 79,00 

Lattice C V3.04. DM 194,95 

MCC-Assembler VII.01. DM 99,95 

MCC-Pascal V2.0. DM 175,00 

Modula II Standard V3.01. DM 189,00 

Psion Chess, Barbarian. je DM 59,95 

Defender of the Crown. DM 64,95 



Kostenlose Prospekte von... 

Computerversand CWTG Joachim Tiede 
Berastraße 13 ■ 7109 Roigheim 
Tel/BTX 0 62 98/30 98 von 17-19 Uhr 


HÄNDLERANFRAGEN erwünscht! 


Diskstation LA1 1 mb. anschiuß. 298,- 

Neue Generation mit 3,5" NEC 1037-Laufw., im grauen Alu¬ 
gehäuse * inclusive Netzteil * 100% kompatibel ★ Extrem 
leise und klein ★ Maße in cm: L 17,5 x B 10,4 x H 2,9 ★ Für 
alle ST u. Mega ST * ACHTUNG: Unsere Stationen laufen 
auch als 2. Station an SF 314/354 und 1040 ST einwandfrei 

Gegen Aufpreis in mehreren Ausführungen lieferbar: 

★ Ein-/Ausschalter DM 10. - ★ Umschalter zum Anschluß 
für 3. Laufwerk DM 20,- (nur in Verbindung mit Buchse) 

★ Buchse zum Anschluß einer weiteren Station DM 35, - ★ 

21 MB Festplatte 1.198,- 

Vortex HD plus 20 im neuen Mega ST Design ★ Bootfähig 
★ Anschlußfertig und partioniert ★ inclusive Disk-Backup- 
Programm, Festplattenmanager. Auto-Park-Programm. Catch- 
Memory ★ Für alle ST und Mega ST ★ 

Anschlußfertige Kabel 

Festplatten-Verlängerungskabel, 1 m, 49,90 ★ Festplat- 
ten-Ersatzkabel, 2 m. 55. - ★ Floppykabel (3,5") 29.90 ★ 
Floppykabel (5,25") 29,90 ★ dto. für 2 Laufwerke 49,90 * 
Monitorkabel für Fremdmonitor (Cinch) Rechnertyp angeben 
35. - ★ Scartkabel, 2 m (V). mit R-Schaltung 39.90 * 
Druckerkabel 2 m, rund 29,90 ★ Midi-Kabel, 5 m, 35. - ★ 

Monitorbox anschlußfertig 49,90 

Umschaltung zwischen Färb- u. S/W-Monitor (Bild u. Ton) 
anschlußfertig im Gehäuse eingebaut ★ Mit ca. 20 cm 
langem Kabel, d. h. Rechnerbuchsen werden nicht verdeckt. 

Stecker und Buchsen 

Original 40pol Modulportbuchse 19,- ★ Monitorstecker 
6,90 ★ Monitorbuchse 8,90 ★ Floppybuchse 10,90 ★ Flop- 
pystecker 8,90 ★ 19pol DMA-Stecker mit Gehäuse 9.90 ★ 
Sonstige auf Anfrage 

Doppelstation 2xLAl 598,- 

ST-Oszilloskop 399,- 

ST als Oszilloskop, Speicheroszilloskop, und Oszillograph. 
50 Seiten Bildschirmspeicher ★ Meßdauer: 1 msec bis 70 Std. 
60 000 Messungen pro Sekunde ★ Timebase: 50us/L bis 500 
sec/L ★ Die gespeicherten Daten können mit beliebiger Soft¬ 
ware weiterverarbeitet werden * Auch als Sound-Sampler er¬ 
setzbar ★ Mit zusätzlicher Software ist der Betrieb als EKG- 
Auswerter, Sprachanalysator. Nachhallmeßgerät usw. möglich. 

Sonstiges Zubehör 

Speichererweiterung auf 1 MB, 2 MB u. 4 MB auf Anfrage 
★ Uhrmodul ★ Floppy-Einbaunetzteil 39,90 ★ Alu Roh¬ 
gehäuse für NEC 1037 19, - ★ Blittertos-Fastrom 25. - * 
Fastrom (altes TOS) 25. - ★ Rom Tos incl. Fastrom 99. - ★ 
Blitter-ROMTOS incl. Fastrom 89.- ★ NEC 1037 (incl. An¬ 
schlußkabel u. Powerstecker 249, - 

FlOppybOX 3 LAUFWERKE AM ST 99,- 

Ermöglicht den Anschluß von 3 Stationen am ST, integrierte 
Treiberschaltung für 5.25” Laufwerke ★ Leuchtdioden zei¬ 
gen an, welche Laufwerke aktiviert sind ★ Umschaltung wäh¬ 
rend des Betriebs ohne Reset und Programmverlust ★ SF314/ 
354-Laufwerke auch als B- oder C-Station anschließbar ★ Für 
alle ST/Mega ST ★ Bei Bestellung Rechnertyp angeben! ★ 

□ All xne 1 IMCAU Al TI IMA i QQ 

Versandhinweis: Mindestbestellwert DM 20.- ★ Versandkosten: Nachnahme DM 6.50 ★ Vorkasse DM 5. - ★ 
Versand ins Ausland nur gegen Vorkasse und abzüglich 14 % Mwst. (Versandkosten DM 12,-) 

HUM I Uo-UMotnAL 1 UNü . iyy,- 

Blittertos und altes Tos gleichzeitig, für alle ST-Mega ST 
Umschaltbar. steckbarer Einbau incl. Fastrom. 

WISCHOLEK Computertechnik ★ Mesteroth 9 ★ 4250 Bottrop 2 ★ 'S? (0 20 45) 816 38 Mo-Fr 10-11 30 U i5-i8Uhr 

VORMALS MIWIKO * NUR VERSAND: DIREKTVERKAUF UND VORFÜHRUNGEN NUR NACH VORHERIGER TELEFONISCHER TERMINVEREINBARUNG. 
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RELAX 



XENON 

Wieder einmal bleibt es an Ihnen 
hängen, Ihrem Captain aus einer 
brenzligen Situation zu helfen. Sie 
sind der einzige im Sektor und ma¬ 
chen sich deshalb sofort auf, den - in 
Anbetracht der kurzen Zeit - langen 
Weg zurückzulegen. Sechszehn Zo¬ 
nen sind zu durchqueren, in denen 
starke Gengenwehr zu erwarten ist. 
Am Ende jedes Sektors wartet ein 
besonders gefährliches Kampfschiff - 
das ‘ Sentinel ’, das nur sehr schwer zu 
bekämpfen ist. Für diese Aufgabe 
steht Ihnen ein ganz besonderes Ge¬ 
fährt zur Verfügung, das Sie wahl¬ 
weise als Bodenfahrzeug oder als 
schnelles Flugzeug verwenden kön¬ 
nen. Das Umschalten zwischen den 
beiden Betriebsarten erfolgt blitz¬ 
schnell und gibt die Möglichkeit, 
sowohl die beweglichen Bodenfahr¬ 
zeuge als auch die höhergelegenen 
Kanonentürme zu zerstören. 

Einige der Kanonentürme hinterlas¬ 
sen nach ihrer Zerstörung Bonus¬ 
punkte, die man beim Überfliegen 
aufnehmen kann. Besonders wichtig 
sind dabei die Treibstoffpakete, die 
unbedingt in ausreichendem Maß 
mitgenommen werden müssen. An¬ 
dere Punkte verschaffen Laserwaf¬ 
fen, Raketen oder andere schußstarke 


Waffen. Sehr wirkungsvoll sind da¬ 
bei die ‘Balls’, die sich als Begleitge¬ 
fährten an das Gefährt hängen und 
synchron feuern. Besonders im 
Kampf gegen den ‘Sentinel’ leisten 
diese Begleiter gute Dienste. Aber 
auch im Einsatz gegen die vielfältigen 
Angreifer, die so klangvolle Namen 
wie Ladybirds, Eyes, Spinners, Cells, 
Kites, Lip Guns haben, sind spezielle 
Waffen so gut wie unverzichtbar, 
wenn man den Hauch einer Chance 
haben will. 

Obwohl es bereits eine Flut von 
‘Ballerspielen’ gibt, ist XENON eine 
Bereicherung dieses Genres. Dies 
liegt daran, daß sich die Programmie¬ 
rer einige Gedanken darüber gemacht 
haben, wie man vom simplen ‘Gebal¬ 
lere’ zum unterhaltsamen und span¬ 
nenden Spielgeschehen kommt. Sehr 
gut gelungen ist deshalb die Steue¬ 


rung, bei der man blitzschnell zwi¬ 
schen zwei Betriebsarten umschalten 
kann. Sehr effektvoll sind auch die 
Zusatzwaffen, die durch ihre knallige 
Aufmachung herrliche ‘Baller’-Ac¬ 
tion garantieren. 

Die Gestaltung des Spiels zeigt die 
Liebe zum Detail der Autoren und das 
wirkt sich sehr positiv auf die Spiel¬ 
freude aus. Action- Fans sollten sich 
XENON deshalb nicht entgehen las¬ 
sen. 

Markus Nerding 



TETRIS 


Angeblich kommt die Idee die¬ 
ses Spiels aus den wilden Step¬ 
pen des Urals, und wenn dem 
so wäre, dann sollte man mehr 
Spielideen von dort aufgreifen. Auf¬ 
gabe des Spielers ist es, herabfallende 
Bausteine so zu drehen und anzuord¬ 
nen, daß sie ineinander passen. Dabei 
gibt es acht verschiedene Steinfor¬ 
men, die durch die Farbgebung leicht 
zu unterscheiden sind. Fällt ein Stein 
herab, muß man blitzschnell feststel¬ 
len, in welcher Lage er wohin am 































































besten paßt. Dabei kann der Stein so 
lange nach links und rechts bewegt 
und um jeweils 90 Grad gedreht wer¬ 
den, bis er den schon vorhandenen 
Steinhaufen erreicht. Wenn es ge¬ 
lingt, eine lückenlose waagrechte 
Reihe zu bilden, dann verschwindet 
diese und der Steinhaufen senkt sich 
um eine Reihe ab. Gelingt es nicht, 
lückenlose Reihen zu bilden, wächst 
der Haufen an, und wenn er das obere 
Feldende erreicht, ist das Spiel been¬ 
det. 

Die Handlung von TETRIS ist im 


SLAYGON 

Sie und Ihr Spezialfahrzeug werden 
gebraucht, um die Welt von einer un¬ 
heimlichen Macht zu befreien. Diese 
will nämlich menschliche Arbeiter 
durch Roboter ersetzen; aber auch das 
ganze menschliche Leben könnte von 
dieser Macht ausgelöscht werden. 
Um Ihre Aufgabe zu erfüllen, gibt es 
nur eine Möglichkeit, Sie müssen das 
Kühlsystem des Kraftwerks zerstö¬ 
ren, um das System so zur Explosion 
zu bringen. Das ist aber gamicht so 
einfach. Sie brauchen dazu nämlich 
fünf Codes, die Sie nur mit einem 
speziellen ‘Interface’ eingeben kön¬ 
nen. Sie dringen in das System ein, 
das aus einer Vielzahl von Gängen 
und Räumen besteht. Aber nicht je¬ 
den Raum kann man betreten, die 
Räume haben einen farblichen 
Schlitz an der Tür für eine Magnet¬ 
karte. Am Anfang des Spiels, wo man 
noch keinerlei Gegenstände besitzt, 
kann man nur in die Räume mit 
schwarzen Schlitzen. Außer schwar¬ 
zen gibt es noch blaue, grüne, gelbe, 
rote und weiße Schlitze. Um in Räu¬ 
me mit blauen Schlitzen eindringen 
zu können, braucht man eine blaue 
Magnetkarte. Mit einer grünen Karte 
kommt man schon in Räume mit blau 
und grün gekennzeichneten Schlit¬ 
zen. Mit einer weißen Karte kann man 
in jeden Raum eindringen. Räume 
können durch Roboter bewacht wer¬ 
den. Um sie zu umgehen oder un¬ 
schädlich zu machen, haben Sie in 
Ihrem Fahrzeug einige hilfreiche 


Prinzip sehr einfach, aber davon soll¬ 
te man sich nicht täuschen lassen und 
zu dem (Kurz-)Schluß kommen, auch 
das Spiel sei einfach. Gute Kombina¬ 
tionsgabe und Reaktionsschnellig¬ 
keit sind hier gefragt, sonst kann man 
nur hilflos Zusehen, wie der Steinhau¬ 
fen ‘in den Himmel wächst’. Wer sich 
etwas ‘eingespielt’ hat, wird zudem 
feststellen, daß sich mit diesem Spiel 
die Konzentrationsfähigkeit steigern 
läßt, denn nur damit kann auf die 
Dauer das nervenaufreibende Ge¬ 
schehen auf dem Spielfeld, bei dem 


man immer unter Zeitdruck reagieren 
muß, beherrscht werden. Somit emp¬ 
fehle ich dieses Spiel allen Freunden 
von schnellen Kombinationsspielen. 

Markus Ner ding 


öl •. 

TETRIS |, 


E 

Kategori e * 

Kombinationsspiel 



Besonderheiten^ erfordert hohe 



Konzentrationsfähigkeit 


Soie1er = 

1 



Monitor » 

nono/color 



Steuerung * 

u. ^ 

Wertun» t 


Herste 11er' 

Hirrorsoft 

Hl 



Gertrieb « 

flriolesoft 

§1^ iSa 




rofteacft iise 





4810 Gütersloh 1 




Pre is ' ca. 

DM 59,95 




R 


Dinge zur Verfügung. Zum Beispiel 
den Cloaker, der Sie für die Roboter 
unsichtbar macht, oder den Lazer mit 
dem Sie den Roboter unschädlich 
machen können, um dann den Raum 
zu betreten. Auch versperren Ener¬ 
giefelder oder Minen Ihnen den Weg, 
dafür haben Sie dann einen Energie¬ 
schild zur Verfügung. Aber Vorsicht, 
Ihre Spezialgeräte verbrauchen Ener¬ 
gie und Ihr Energievorrat ist begrenzt. 
Besitzen Sie keine Energie mehr, ist 
die Mission fehlgeschlagen. Energie 
kann mit Energiebällen aufgefüllt 
werden. 

Es gibt noch andere nützliche Dinge 
in den Räumen zu finden, zum Bei¬ 
spiel einen ‘Force Field Neutralizer’, 
der die Energiefelder unschädlich 
macht, oder Laserpistolen, die die 
Laserkraft erhöhen. Ihre Aufgabe ist 
ja, fünf Codes zu finden, die Sie dann 
im Terminal Room mit einen speziel¬ 
len ‘Interface’ eingeben müssen. Ist 
dieses Ziel erreicht, heißt es, schnell 
den Ausgang zu finden, bevor das 
ganze System zur Explosion kommt. 
Das Spiel besitzt eine übersichtliche 


Bildschirmaufteilung, in der Mitte 
die Richtungspfeile, die von der Maus 
angeklickt werden müssen. Im obe¬ 
ren Teil des Bildschirms befinden 
sich acht kleine Fächer, wo die gefun¬ 
denen Gegenstände aufbewahrt wer¬ 
den können. Im unteren Teil befinden 
sich sechs kleine Bildschirme mit den 
Spezialgeräten des Fahrzeugs. Dann 
die beiden größeren Bildschirme, von 
denen der eine das System von oben 
zeigt und der andere die ‘Geradeaus¬ 
richtung’ des Fahrzeugs zeigt. 
Slaygon ist ein spannendes Spiel mit 
einer guten Idee, welches im ‘Expert- 
Modus’ schon mal einige Tage dau¬ 
ern kann. 

Andreas Suchy 
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kurze Einarbeitungszeit 
k dialogorientiert 
t menügesteuert 
t GEM Oberfläche 
t übersichtliche Eingabe- 
büdschirme 

t kein Hardware-Kopier¬ 
schutz, kein Port belegt 

t Auswertungen jederzeit | 
in Sekundenschnelle 
auf Bildschirm, Drucker | 
oder Massenspeicher 

t frei wählbares Wirt¬ 
schaftsjahr 

t variable Mwst.-Sätze 

r integriertes Abschrei¬ 
bungsprogramm 

r Journal, Saldenliste 
r Kassenbuch, Finanz¬ 
konten 

r Kosten- und Erlöselisten 
t Wareneingangsliste 

r USTvoranmeldung di¬ 
rekt auf das amtliche 
Formular 

r Einnahme-Überschuß- 
Rechnung (fibuMAN e/m) I 

r Bilanz und Gewinn- und | 
Veriustrechnung nach 
dem Bilanzrichtlinien¬ 
gesetz (fibuMAN tim) 

r BWA - Betriebswirt¬ 
schaftliche Auswertung 
(fibuMAN m, optional 
fibuMAN f) 

r Sammeldruck aller zum 
Monatsabschluß relevan¬ 
ter Auswertungen 
r Kontoauszüge über das | 
gesamte Jahr nach Kon-, 
ten chronologisch geord¬ 
net 

■ Hinweis auf unsinnige 
Buchungen 

auf Mausklick automati¬ 
sches Anlegen einer 
Stornobuchung 

• Automatikjournal zur ein-1 
maligen Eingabe monat-1 
lieh wiederkehrender 
Buchungen 
diverse Schnittstellen 
(fibuSTAT, Faktura in 
Vorbereitung: faktuMAN) I 
schnelles Suchen nach | 
Buchungen mit optiona¬ 
ler Übernahme in das ak¬ 
tuelle Journal, z. B. Aus-1 
buchungen von offenen 
Posten 

Kontenanlage mit optio-1 
nalem Automatiktext und i 
-UST auch während der | 
Buchungen 
Hochrechnung der 
Mwst. von Nettobeträgen | 
Kennwort auf 2 Ebenen 
Sicherheitskopien nach 
frei wählbarem Zeitraum 
komfortable Druckeran¬ 
passung 

Ordner vom Programm 
aus anzulegen 
Dateien vom Programm 
aus zu löschen 


Ich bin mit 
keinem Buchhaltungs- 
Programm zufrieden!!! 


Ich brauche Zuverlässigkeit, 
Schnelligkeit, Übersichtlichkeit, 
aussagekräftige, gesetzlich 
anerkannte Auswertungen 


• *.::» ? i 


und habe keine Zeit, mich 
erst lange einarbeiten 
zu müssen... 


Kennt der 


noch nicht!! 


□ n 

d lila 


Herausragende Beurteilung in: 

ST-Computer 12/87, Data Welt 3/88, CT 4/88, ST Magazin 4/88 
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jibuMRN m 

fibuMRN { 

jibuMRN e 

MANDANTENFÄHIGE 

FINANZ¬ 

EINNAHME-ÜBERSCHUSS- 

FIBU MIT BWA 

BUCHHALTUNG 

RECHNUNG 

DM 968,- 

DM 768,- 

398,- 


BWA ZU fibuMAN 
DM 98,- 


MIT HANDBUCH 
DM 65,- 


Preise für MS Dos Versionen auf Anfrage 

ische Hotiii 


|PR0DATA bietet Ihnen vollen professionellen Anwenderservice wie kostenlose telefonische Hotline, täglich von 10 - 23 Uhr, Schulur 
und individuelle Einarbeitung, ggf. Anpassung der Programme an Ihre Bedürfnisse, prompten Updateservice und, und, und... 

■Ein Aufstieg in der fibuMAN-Reihe ist jederzeit unter Anrechnung des Preises der ursprünglichen Version möglich. Sie können alle hi 
laufgeführten Produkte direkt beim Entwickler PRODATA oder im autorisierten Fachhandel erwerben. 


fibuKURS DM 348,- 


fibuSTAT DM 398,- 


Diskette mit ausführlichem Lehrbuch (weit über 100 Seiten) 
leichter Einstieg in eine eigene EDV-Buchführung 
Finanzbuchhaltung und Einnahme-Überschuß-Rechnung 
Nachschlagewerk für das spätere praktische Buchen 
Bibliothek von weit über 100 anschaulichen Fallbeispielen 
nach Abschluß des Kurses ist selbständiges Arbeiten möglich 


unabhängiges GEM-Statistikmodul zu allen fibuMAN Programmen 
Berechnung von betriebswirtschaftlich interessanten Kennziffern 
diverse grafisch vergleichende Statistiken 
übersichtliche Grafiken für einen schnellen Einblick in Ihre jeweilige 
Finanzlage 

Balken- und Kuchendiagramme 


BROICHERSTRASSE 39 

5060 BERGISCH GLADBACH 1 

TEL. 02204/51456 - 01 61/221 5791 


PROFESSIONELLE 

DATENVERARBEITUNI 


///® 


ENTWICKLUNG UND VERTRIEB INTELLIGENTER ANWENDERSYSTEM 



















BIA CK 
LAMB 



Jack ist ein kleiner Hofnarr im Kö¬ 
nigreich von Allegorien. Seine Auf¬ 
gabe ist es, Lampen zu finden und sie 
in das entsprechende Fach einer Tru¬ 
he zu stellen. Jede Lampe hat eine 
eigene Farbe. An die schwarze Lam¬ 
pe ist am schwierigsten heranzukom¬ 
men, sie wird nämlich von einem Dra¬ 
chen bewacht. Um sie zu bekommen, 
muß Jack erst den Drachen besiegen. 
Das macht er mit Hilfe seiner Zauber¬ 
blitze. Aber Vorsicht vor den Feuer¬ 
bällen, die der Drache ausatmet, de¬ 
nen muß Jack ausweichen oder mit 
seinen Blitzen abschießen. 

Jack hat nicht nur Drachen als Geg¬ 
ner, so machen ihm auch Drachenflie¬ 
gen, Wespen, Vampir-Fledermäuse, 
Werwölfe, Krähen, Bussarde, 
Kampfzwerge, Schleimhexen, Trol¬ 
le, Schläger und Kobolde das Leben 
schwer. Sie können ihm dermaßen 
zusetzen, daß ihm der Energievorrat 
zur Neige geht. Aber zum Glück gibt 


es da die Speisen und Getränke, wo 
Jack seine Energie wiederauffrischen 
kann. Auch Juwelen, Musikinstru¬ 
mente und Waffen lassen sich ein¬ 
sammeln, die zwar nicht die Energie 
auffrischen, aber den Punktestand 
erhöhen. 

Die Steuerung erfolgt am besten über 
einen Joystick, aber auch mit der 
Maus oder der Tastatur läßt sich die 
Figur steuern. In Gebäuden und im 
Freien findet das Spielgeschehen 
statt. Die Gebäude haben mehrere 
Etagen welche man mit Leitern oder 
mit Springen über Kisten und Fässer 
erreichen kann. 


Das Spiel ist in seiner Idee lustig und 
in der Grafik gut, aber die Fülle der 
angreifenden Gegner ist etwas stö¬ 
rend und die Figur spricht nicht 
immer auf die gewollten Sprünge an. 

Andreas Suchy 



TESTDRIVE 



Mit Testdrive bringt Accolade den 
ersten Fahrsimulator für den ST auf 
den Markt. Ganz kurz zur Geschichte: 
Du hast Deine erste Million durch 
Softwareverkäufe gemacht und nun 
stehen Dir alle Türen offen. Dir Dein 
Auto, von dem Du immer geträumt 
hast, vor die Haustür zu stellen. Zur 
Wahl stehen mehrere Flitzer, denn 
das Hauptziel des Spieles besteht 
darin, möglichst schnell und unbe¬ 
schadet von einer bis zur nächsten 
Tankstelle zu kommen. Die verschie¬ 
denen Fahrzeugtypen zählen zu den 
bekanntesten in der Welt: Porsche 
Turbo 911, Chevrolet Corvette, Lam¬ 
borghini Countach, Lotus Turbo 
Esprit und Ferrari Testarossa. Zu je¬ 
dem Fahrzeugtyp wird ein ausführli¬ 
ches Datenblatt über die Maschine 
gegeben, denn jedes Fahrzeug hat 
andere Eigenschaften. Sportliches 


Fahren (um nicht zu sagen, Ge¬ 
schwindigkeitsbegrenzung, was ist 
das?) ist angesagt. Das wird schon 
deutlich, nachdem der Traum wahr 
wurde und man sich für ein Fahrzeug 
entschieden hat. Ein smarter Fahrer 
läßt mal kurz die Sonnenbrille aus 
dem geöffneten Fenster blitzen und 
schenkt uns ein zuversichtliches Lä¬ 
cheln. Ab jetzt bist Du eins mit diesem 
Fahrer und hast die nötigen PS bzw. 
KW zu kontrollieren. 


Up on the highway... 

Vor sich die Armaturen und das 
Lenkrad, den Blick zuversichtlich aus 
der Windschutzscheibe auf die Stra¬ 
ße, hat man seine Fähigkeiten und 
seine Erfahrung im Steuern mit dem 
Joystick zu beweisen. Fährt man zu 
langsam, bekommt man beim Zwi- 
schenstop prompt einen süffisant 
höhnischen Kommentar wie zum 
Beispiel frei übersetzt “Da fährt ja 
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meine Oma schneller!”. Es gilt, bei 
Testdrive eine Menge Schwierigkei¬ 
ten zu überwinden. Von Tankstelle zu 
Tankstelle begegnen einem immer 
neue Probleme, die einiges an Fahr¬ 
geschick erfordern. Kaum hat man 
sich halbwegs mit der Steuerung und 
der Gangschaltung seines Renners 
vertraut gemacht (am Anfang riskiert 


s: 

TESTDRIUE 


E 

Kategor 1« * 

Fahrsinulation 



Beionderhaiten: Realitätsnähe 


Spieler: 

1 



Monitor « 

c o 1 or 



Steuerung : 

X 

Mer'unst 


Hers te11er 

Acco1ade/AEGIS 




Oertrieb 

F achhänd1er 

Hl 



Pre is ; c a . 
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man leicht einen Motorschaden, 
wenn man nicht rechtzeitig schaltet), 
schon begegnen einem die ersten 
Trucks, PKWs, Ölflecken usw. Man 
muß Steinschlägen ausweichen und 
darauf achten, dabei nicht von der 
Straße abzukommen. 

Ein Blick in den Rückspiegel 

Unter anderem taucht auch immer 
wieder im Rückspiegel ein Wagen 
der Highway Police mit hübscher 
Partybeleuchtung auf, an dem man 
zuvor mit “Full Speed” vorbeige¬ 
braust ist. Da bleiben nur zwei Mög¬ 
lichkeiten, Gas geben und “ab durch 
die Mitte” oder brav überholen las¬ 
sen, anhalten, den Strafzettel bezah¬ 


len und sich mit Sicherheit einen bis¬ 
sigen Kommentar an der nächsten 
Tankstelle abholen. 

Im großen ganzen kann man Test¬ 
drive durchaus positiv beurteilen. 
Leider wird die Fahrerei auf Dauer 
etwas eintönig, da die Landschaft 
kaum Abwechslung bietet. Hier 
könnte bestimmt noch etwas getan 
werden, was das Spiel deutlich auf¬ 
werten würde. Auch in Bezug auf die 
Landschaftsgrafik wären noch Ver¬ 
besserungen wünschenswert. Gelie¬ 
fert wird es auf einer Diskette und mit 
einer etwas mageren Anleitung. Doch 
der gewohnte Joystick-Artist wird auf 
Anhieb damit zurechtkommen. 

HE 


ENDURO 

RACER 

Enduro Racer ist ein Motorradren¬ 
nen nach dem üblichen Spielprinzip: 
Eine Straße, rechts und links davon 
Bäume oder andere Hindernisse und, 
immer in der Mitte: das Motorrad. 

Es gibt fünf Levels zu überwinden. 
Für ein Level hat man sechzig Sekun¬ 
den zur Verfügung. Von Level zu 
Level wird es etwas schwieriger, so 


Öl ENDURO RACER | 

E 

Kategorie : Motorrad-Rennen 
Besonderheiten- gute Grafik 

Spieler< 1 

Monitor « col or 

Steuerung « 

Herste 1 1er SEGA 

Vertrieb ACT I VISION 

post *»cn ?eoseo 

2000 HkrDurj 
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Me r t uns: 
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gibt es zum Beispiel Sprunghügel zu 
überwinden, es liegen Steine auf der 
Straße, oder es kommt ein anderes 
Fahrzeug entgegen. 

Die Grafik ist durchschnittlich, aller¬ 
dings ist die Steuerung alles andere 
als gut. Drückt man den Joystick nicht 
andauernd nach vorne, verliert das 
Motorrad an Geschwindigkeit und 
man kann den Level nicht schaffen, 
durch das andauernde Nachvome- 


drücken des Joysticks verliert das 
Motorrad aber an Wendigkeit, so daß 
man schneller gegen einen Baum 
prallt, als man denkt. 

Die Motivation ist auch nicht beson¬ 
ders groß, nach mehrmaligen Spielen 
verliert man die Lust. 

So kann man als Fazit sagen: Ein 
durchschnittliches Spiel mit keinen 
besonderen Vorkommnissen. 

Andreas Suchy 



Diskettenstation für ATARI ST 

TYP D 25 Basisgerät NEC 1037 A <iopp.i.»iiig4. 3.s* Diskettenlaufwerk i mb 

luia II. 14 p ol. Auaganf ibucht« tum AniehluB »mar weiteren Station- voll SB 314 kompatibel 
halaa susbllllcher Alapltr tum AnschluB «»• twel FI o pp y % t a t Ion • n * r «or4.r I I cb• 
SF Sun ala • - Laufwerk anachllatkar • konkurenzlos kompatlbal auch für MEGA ST o.ATAftl FC 
voll ausbauUh.g - Em/AuiaeKaltar - komplatt antcMallartig T\ \,fl O 4 Q _ 
kuni tstoffbetchicbtetee Alumlniungakauta Abm. 105«J7«200 JL»r IVä wJ I U - 

TYP D 26 wie D 25 Jedoch ohne Durchschi iff .... DM 289.- 

ATARI 520 STM incl. Maus . DM 525.- 

TYP D SO Doppelstation fUr ATARI ST 2 x 726KB DM 548.— 

NEC P6color/P6/P7/PS a.A NECP2200. DM 95 9.— 

TEAC FDS5FR DM 2 5 5.— Vortex HD plus 20.. D M 1 13 5.— 
ATARI SM 124 .. DM 396.— Seagate ST225....DM 459.— 

Speichererweiterungen a.A OMTI 5520 .DM 159.— 

Druckerawltchbox 20 rucker an IComputar oder umgekehrt.... DM 7 5.— 

NEC FD1037A D M 1 89.— mit Gehäuse .DM 209.— 

62pol. PC Slot_10.- OM - Druck erkabel Cantr. 2m .. 20.- DM - Shugert Bu« 34p. 4.- OM 

Geht»*a für 1 . NEC 1036 A 24 .- OM - Joyi tiekverltngerung 3an 12.- OM - Sear tkabal —... 36.- OM 

OaMvta für 1*NEC 1037 A 24.- OM - Moni torbuchaa-6.- OM - Monllora lock ar S.- DM 

Gakiuta für 2. NEC 1037 A 34.-OM - Floppy« tackar-7.-OM - Floppybwtbaa —a-OM 

DELO comp. TECH.S 0231 -339731 o. 3311*8 

Groppenbrucher Str. 1 24 b 4600 Dortmund - IS 


9 ruPP 6 - Locher * 11 

datentechniklMCU S 

Eichachstraße 13,7404 Ofterdingen, Tel. (074 73) 2 2810 

endlich! »ST-TAST« endlich! 

ermöglicht es, Tastaturen im IBM-Design am ATARI zu betreiben. 


Die Tastatur wird einfach über unser ST-TAST Interface am Modulport 
eingesteckt. 

- Die Treibersoftware ist autostartfähig. 

- Auch eine extravagante Tastenbelegung ist über die mit 
gelieferte Software problemlos zu realisieren. 

Wir bieten an: 

- IBM-Kompatible Tastaturen, 

Preise auf Anfrage 

- ST-TAST Interface incl. Software und 
ausführliche Anleitung 

- fordern Sie gegen Vorauskasse von DM 5,- 
unser ST-TAST-Handbuch an. 

(Wird bei Kauf angerechnet) 


DM 
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Schneider/Steinmeier 


Programmieren 

in 

OMIKRON 

BASIC 


H«4m-V«rlaa 


WICHTIGE MERKMALE 

► BASIC-Einsteiger und Profis erfah¬ 
ren in diesem Buch, wie man professio¬ 
nelle Programme in Omikron-BASIC 
erstellt. ► Neben vielen ausführlich 
dokumentierten Listings, die zeigen, 
wie man in Omikron-BASIC optimal 
programmiert, finden Sie zahlreiche 
hilfreiche Tips und Anregungen, die Sie 
bei der Arbeit an Ihren eigenen Projek¬ 
ten verwenden können. ► Ein umfang¬ 
reiches Kapitel beschäftigt sich aus¬ 
schließlich mit dem Einsatz von GEM- 
Funktionen in Omikron-BASIC-Pro- 
grammen. Hier finden Sie Erläuterun¬ 
gen zur Verwendung von Fenstern, 
Dialogboxen und Menüzeilen. Weiter¬ 
hin wird eine auf der von Omikron mit¬ 
gelieferten GEMLIB-Bibliothek auf¬ 
bauende Library zur Programmierung 
der erwähnten GEM-Funktionen vorge¬ 
stellt und erklärt. ► Die abgedruck¬ 
ten Listings wurden aus allen Anwen¬ 
dungsbereichen ausgewählt und zei¬ 
gen, daß man Omikron-BASIC zur 
Erstellung von Utilities, Anwendungs-, 
Mathematik- und Grafikprogrammen 
benutzen kann. Natürlich finden Sie 
auch einige Spielprogramme in diesem 
Buch. ► Zum Buch gibt es eine Pro¬ 
grammdiskette mit allen aufgeführten 
Übungs- und Beispielprogrammen. ► 
Ausführliche Übersicht der OMIKRON- 
BASIC-Befehle ► Über 50 Programme 

AUS DEM INHALT 

► Tips und Tricks zur Programmierung 

► GEM-Programmierung ► Utilities 

► Grafik-Programmierung ► Anwen¬ 
dungsprogramme ► Mathematikpro¬ 
gramme ► Spiele in Omikron-BASIC 


ca. 350 Seiten 


DM 49,- 


Diskette 

mit allen abgedruckten Programmen 


DM 39,- 


'ATARIST 


Schneider/Steinmeier 


kurz&klar 

OMIKRON 

BASIC 

Ein fundiertes Nachschlagewerk 


Helm-Verlag 


AUS DEM INHALT 

OMIKRON BASIC ist eine der lei¬ 
stungsfähigsten Programmier-Spra- 
chen für den ATARI ST. 

Um den komplexen Befehlssatz und 
die zahlreichen Möglichkeiten richtig 
einsetzen zu können, ist ein fundiertes 
Nachschlagewerk unbedingt erforder¬ 
lich, damit das ständige Blättern in der 
Anleitung, in Zeitschriften und Büchern 
überflüssig wird. 

In KURZ & KLAR finden Sie alle Be¬ 
fehle und deren Parameter in einer 
ausführlichen alphabetischen Über¬ 
sicht. 

Auch ein nach Sachgebieten geordne¬ 
tes Verzeichnis der Anweisungen ist 
enthalten. Weiterhin erleichtern Tabel¬ 
len und Übersichten die tägliche Ar¬ 
beit. 

Für die Besitzer des OMIKRON-BASIC- 
COMPILERS ist ein Abschnitt mit Hin¬ 
weisen und Informationen über die 
Anpassung von Programmen des In¬ 
terpreters gedacht. 


Über 200 Seiten 


DM 29,- 


SPITZEN 


BÜCHER 



rATARIST 


Schneider/Steinmeier 


NEU 


H 


DAS GROSSE 
OMIKRON 
BASIC BUCH 


MIT mit Programm-Diskette 

MSKim 


BESTELL-C0UP0N 


WICHTIGE MERKMALE 

OMIKRON-BASIC stellt eine der lei¬ 
stungsfähigsten Programmiersprachen 
für den ATARI ST dar. Trotz seines gro¬ 
ßen Umfangs ist es gerade auch für 
den Programmier-Anfänger ideal ge¬ 
eignet. 

Das jetzt vorliegende GROSSE OMI- 
KRON-BASIC-BUCH bietet dem Anfän¬ 
ger einen hervorragenden Einstieg in 
diese komfortable Programmierspra¬ 
che. Das Buch ist leicht verständlich 
geschrieben, sodaß der Neuling ohne 
Probleme seine eigenen Programme 
erstellen kann. Aber auch für den fort¬ 
geschrittenen Anwender und Aufstei¬ 
ger ist dieses Buch die richtige Grund¬ 
lage. 

Der 1. Hauptteil des Buches ist eine 
systematische Einführung in die Pro¬ 
grammierung von BASIC unter Berück¬ 
sichtigung der besonderen Fähigkeiten 
von OMIKRON-BASIC. Der Neuling er¬ 
fährt hier vom ersten Einzeiler bis zu 
abstrakten Datentypen alle Möglichkei¬ 
ten der strukturierten Programmierung. 
Anhand zahlreicher Beispiele mit Fluß¬ 
diagrammen kann man gute Program¬ 
mierung nachvollziehen und trainieren. 
Im 2. Hauptteil werden Programmier- 
Kenntnisse erweitert und vertieft. Aus¬ 
führlich beschriebene und erklärte Pro¬ 
gramme wie z. B. Fakturierung, ein 
Kopierprogramm, eine universelle ran- 
dom-access-Datenverwaltung sowie 
Beispiele zur Betriebssystemprogram¬ 
mierung vermitteln Neulingen und dem 
Fortgeschrittenen die Fähigkeit zur per¬ 
fekten Programmiertechnik. 

Im GROSSEN OMIKRON-BASIC-BUCH 
wird besonderer Wert darauf gelegt, 
die sinnvolle Anwendung der BASIC- 
Befehle im Zusammenhang zu er¬ 
lernen. 

Im Anhang findet der Leser die ASCII- 
Tabelle, einen Index, eine vollständige 
alphabetische Befehlsübersicht, eine 

an Heim-Verlag 
Heidelberger Landstraße 194 
6100 Darmstadt-Eberstadt 


ausführliche Worterklärung und weite¬ 
re nützliche Tabellen. 

Ob mit oder ohne Programmiererfah¬ 
rung - wer OMIKRON-BASIC beherr¬ 
schen will, braucht dieses Buch. Sämt¬ 
liche Programme des Buches gibt es 
auf Programm-Diskette. 

AUS DEM INHALT 

► Erklärung der Schleifen- u. Pro¬ 
grammstrukturen - Primzahlenbe¬ 
rechnung - Zahlenraten ► Variablen¬ 
typen und Arrays - Sieb des Eratos- 
thenes - Adresseingabe ► Nume¬ 
rische- u. Stringfunktionen ► Unterpro¬ 
gramme u. Prozeduren - Rekursionen 

- Labyrinthsuche ► Multitasking in 
OMIKRON-BASIC ► Abstrakte Daten¬ 
typen - Druckerspooler - Verkettete 
Listen ► Sequentielle Dateiverwaltung 

► Random-Access-Dateien - Verket¬ 
tete Listen auf der Diskette ► Grafik¬ 
programmierung - Turtlegrafik - Ar¬ 
beiten mit mehreren Bildschirmen 

► Betriebssystemprogrammierung - 
Aufrufen von TOS-Befehlen - Ver¬ 
wenden der GEMLIB - Erweiterte 
GEMLIB zur Fensterverwaltung ► 
Beispielprogramme - Fakturierung 

- Copy/Backup-Programm - univer¬ 
selle Adress-Verwaltung etc. ► An¬ 
hänge - Worterklärungen - alpha¬ 
betische Befehlsübersicht - Index - 
Sonstige Anhänge. 

Hardcover 

Über 400 Seiten |-Q 

einschl. Programm-Diskette 39j" 


Preise sind unverbindlich 
empfohlene Verkaufspreise 


Heim Verlag 


Ich bestelle:_St. Das große OMIKRON-BASIC-BUCH 

(incl. Programm-Diskette) ä DM 59,- 

_St. Programmieren in OMIKRON-BASIC ä DM 49,- 

_St. PROGRAMMDISKETTE zum Buch ä DM 39,- 

_St. Kurz & Klar 

- Nachschlagewerk OMIKRON-BASIC ä DM 29,- 
zzgl. DM 5,- Versandkosten (unabhängig von bestellter Stückzahl) 

□ per Nachnahme □ Verrechnungsscheck liegt bei 

Name, Vorname_ 


Heidelberger Landstraße 194 Straße, Hausnr.- 

6100 Darmstadt-Eberstadt plz, Ort_ 

Telefon 0 61 51 - 5 60 57 Benutzen Sie auch die in ST COMPUTER vorhandene Bestellkarte. 


SCHWEIZ 

Senn Computer AG 
Langstr. 31 
CH-8021 Zürich 
































Wollen Sie auch 


GELD 


Verwaltung von bis zu 100 Aktien mit 
bis je 300 Kursen. 

Verwaltung von ausländischen Aktien 
mit bis zu 16 verschiedenen Währungen. 

(mit mathematisch genauer Einstandswährung.) 

Wertpapiere können alphabetisch sor¬ 
tiert werden. 

Mischen von bis zu 20 verschiedenen 
Depotdateien. 

5 verschiedene Kurzfristcharts und 2 
verschiedene Langfristcharts. 

Auf Mausklick übereinanderlegen von 
verschiedenen L angfristcharts in weni¬ 
ger als 0,5 Sekunden (und natürlich wie¬ 
der zurück). 

Charts können mit eigenen Kommenta¬ 
ren versehen werden. ( beliebig vielem) 
Beliebig gleitender Durchschnitt (belie¬ 
big viele gleichzeitig). 

Sie können im Chart zeichnen . ( Erkennen 

Sie TYendkanäle, Unterstützungen oder Widerstände.) 

RSI-CHART auf Mausklick. (RSi = Rela¬ 
tive Stärke Index - damit arbeiten die Profis.) 



DEPOT DELUXE 

Das Depotverwaltungs- 
u. Chartanalyseprogramiu 
für Aktionäre 
mit hohen Ansprüchen. 

398,- DM 


unverbindlich empfohlener Verkaufspreis 

Erforderliche Hardware: 

A TARI ST mit min. 1 MB Ram. 
Monochrome Monitor 
SF 354 oder kompatible. 


an der Börse verdienen? 


• DEGAS kompatibel (Sie können alle 
Charts auf Diskette abspeichern und mit 
Graphicprogrammen weiterbearbeiten.) 
Dies erleichtert Ihre Argumentations¬ 
technik wesentlich. 

• DELUXE unterstützt natürlich auch 
Kapitalerhöhungen und Dividendenzah¬ 
lungen . (mit Operation Blanche!!!), und 
zeichnet diese natürlich im Langfrist¬ 
chart ein! 

• Umfangreiches graphisches Hilfsmenü 
implementiert. 

• 2 verschiedene Kurseingabemöglichkei¬ 
ten. (Für jeden Bedarf das Richtige!!!) 

• Die wichtigsten Börsenusancen abruf¬ 
bar. 

• Alle Daten im Speicher = keine lang¬ 
wierigen Diskettenoperationen. 

• Festplattenkompatibel. 

• Programm wurde von Aktienhändler 
geschrieben. 

• Deutsches Handbuch . Up-date-Service . 


Heimveriag 

Heidelberger Landstraße 194 
6100 Darmstadt-Eberstadt 
Telefon 06151-56057 


BESTELL-COUPON 


Heidelberger Landstraße 194 
6100 Darmstadt-Eberstadt 


Ich bestelle: □ DEPOT DELUXE 398, -DM 

zuztigl. 5, - DM Versandkosten (Scheck oder per Nachnahme) 

(unabhängig von bestellter Stückzahl) 

Benutzen Sie auch die in ST COMPUTER vorhandene Bestellkarte. 

Name: ____ 

Straße: _____ 

Ort: - - 


Geheim-Tips 


copySTar v2.2 

« Kopiert alle Atari ST Disketten, normale und kopier¬ 
geschützte ohne zusätzliche teure Hardware 

♦ Superschnelle Kopien von “normalen" Disketten 
unter 30 Sek. Beim Kopieren wird das Format der 
Disketten (9.10.11 Sekt./SS-DS) automatisch erkannt 

♦ Automatische Fehlerkorrektur während des Kopier¬ 
vorganges. Umfangreiche Statusanzeige 

♦ Superschnelle Formatierung z B SS 16 Sek Er¬ 
weiterung der Disk-Kapazität auf über 912KB ist mögl. 

♦ Konvertiert in Spezialformat für doppelte 
Geschwindigkeit ohne zusätzliche Hardware 

« Prüfung von Leer-Disketten (Qualitätstest) 

♦ Testmöglichkeit der Drehzahl des Disk-Laufwerkes 

♦ Super-Update-Service! Leichte GEM-Bedienung 

nur DM 169- 

arPR’s Disk-Speeder 

♦ DAS Disk-Beschleunigungs-Programm für den ST 

» Durch ein intelligent optimiertes Cache-Prinzip er¬ 
reichen Programme mit vielen Disk-Zugriffen unglaub¬ 
liche Geschwindigkeiten. Und das ohne teure Hard¬ 
ware oder komplizierte Instalationen Frei konfigurier¬ 
bar (Device s/Harddisk/Speicherbelegung etc) Durch 
reine Assembler-Programmierung unglaublich schnell 
« Für den professionellen Anwender unentbehrlich. 

nur DM 89,- 

T.L.D.U.vl.3 The Last Disc Utility 

♦ DIE komplette Disk-Utility mit wirklich allen Funktionen. 
Von vielen Fachzeitschriften für SEHR GUT befunden 
Arbeitet natürlich auch mit Hard-und Ramdisk 

♦ Voll programmierbar durch ’C* ähnliche Makrosprache 

♦ Echte (Sub)-Directory und Fat-Funktionen mit Grafik 

♦ 10 Buffer. Disassembler. Folgemodus . Suchen . 
Vergleichen. Drucken, große Makro-Bibliothek u s w 

♦ Ein/Ausgabe in ASCII. EBCDIC. HEX oder DEZIMAL 

nur DM 149,- 

Detective vl.O 

♦ Erstellt editierbare Assemblersource-Dateien von 
jedem Atari-ST Programm 

« Verwaltet Text-, Data-, BSS-Bereiche. Symbole. 
Marker und mehr Ein Muß für jeden Programmierer 

nur DM 149,- 

Wichtigü Alle Programme enthalten ein ausführ¬ 
liches Handbuch in Deutsch und keinen Kopierschutz 

Wo? Natürlich bei Ihrem Atari-Händler! 
oder direkt bei 

☆ STARSOFT ☆ 

Peinerstr. 81 D-3000 Hannover 81 
72 05 11 / 8 37 99 77 


T E A C 

Made in Japan by Fanatics 


Massenweise Massenspeicher von Profis 
für Profis und unglaublich Preiswert... 

...und wir liefern auch weiterhin 
schnell und zuverlässig!! 

Anschlußfertige Floppy-Stationen 
für ATARI-ST (Test in „ATARI SPECIAL“ 1/88) 


G3E-ST 3 i/2’ 720 kb . 298,- 

G3S-ST 2-*3 1/2’ 2*720 KB. 598,- 


G5E-ST + 5 1/4’ 720 KB / 360 KB. 398,- 

(umschaltbar ATARI/IBM) 

G35-ST + 3 1/2’+ 5 1/4’-Mixed-Station 2x720 KB, 
umschaltbar ATARI-IBM 

incl. Drive-Swap und Software. 648,- 

Bestellannahme: Mo-Fr 8 00 - 18 00 , Sa 8 00 - 12 00 

Porto und Verpackung: Inland DM 7,50 
Ausland DM 15,00 

Versand Ausland nur Vorauskasse 


Copydata GmbH 

8031 Biburg ★ Kirchstr. 3 ★ 08141-6797 
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BUCHBESPRECHUNG 


WnMedHübnef 

D as TOS-Listi ng 
bios-gemdos-vdi 


□ 


Kramer, Riebt, Hübner 
Das TOS-Listing Band 1 
BIOS-GEMDOS-VDI 
Heise Verlag, 368 Seiten 
DM 68,- 

Das Buch besteht hauptsächlich aus 
dokumentierten Listings von Teilen 
des TOS, sowie aus einer Einführung 
in die Arbeitsweise des GEMDOS. Es 
richtet sich damit an die fortgeschrit¬ 
tenen Programmierer und muß sich 
an deren Ansprüchen messen lassen. 
Zu den Listings ein paar allgemeine 
Bemerkungen: Positiv zu bewerten 
ist, daß sie sich alle auf das Blitter- 
TOS beziehen, was sie gerade für 
MEGA-ST-Besitzer interessant 
macht. Aber auch für Benutzer des 
alten TOS sind sie sicher brauchbar, 
da damit zu rechnen ist, daß sich das 
neue TOS auf lange Sicht durchset¬ 
zen wird. 

Die Kommentare sind zahlreich 
bemessen und die Listings struktu¬ 
riert, d.h. der Beginn von Funktionen 
ist hervorgehoben, oft mit Angaben 
über Register oder Parameter. Ärger¬ 
lich sind nur die vielen Druckfehler, 
angefangen von der Rechtschreibung 
bis zu fehlerhaften Adressen im Dis¬ 
assembling (!) und vertauschten Zei¬ 
chen (wie “$” und was zu großen 
Mißverständnissen führen kann. In 
den ‘C’-Listings finden sich manch¬ 
mal noch direkte Adressen an Stelle 
von Variablennamen. Dies alles deu¬ 
tet darauf hin, daß die Listings nur 
unvollständig ediert wurden. 

Bei der Bezeichnung von Funktionen 
und Variablen wurden schon veröf¬ 
fentliche Namensgebungen über¬ 


nommen, was zu loben ist. Bei den 
Systemvariablen (dokumentierte und 
undokumentierte), von denen eine - 
allerdings unvollständige - Liste vor¬ 
handen ist, wurden oft fantasielose 
Namen wie “L8846” vergeben. 
Ungünstig ist auch, daß oft Adressen 
durch symbolische Bezeichnungen 
ersetzt wurden, aber der Assembler¬ 
code selbst fehlt. So sind Verzwei¬ 
gungen öfters nicht nachvollziehbar. 
Es wäre sicher besser gewesen, direk¬ 
te Adressen und Symbole anzugeben. 
Das BIOS-Listing ist der umfang¬ 
reichste Teil des Buches. Deutliche 
Ähnlichkeiten mit einem anderen 
bekannten BIOS-Listing sind nicht zu 
verleugnen, einige der dort vorhande¬ 
nen falschen Kommentare sind korri¬ 
giert, andere hingegen wortwörtlich 
identisch! 

Praktisch ist, daß die in ‘C’ program¬ 
mierten Routinen des BIOS auch als 
‘C’-Listing vorhanden sind, was das 
Verständnis erleichtert. 

Garniert ist die BIOS-Dokumenta- 
tion mit einigen nützlichen Extras wie 
Listings des RAM-TOS-Boot-Sek- 
tors oder der Desktop-Formatierrou- 
tine. Auch eine Anleitung zur Pro¬ 
grammierung resetresidenter Pro¬ 
gramme wurde ergänzt. 

Die Einführung in GEMDOS umfaßt 
wesentliche, aber knappe Informatio¬ 
nen über dessen innere Struktur. Sie 
ist wohl nur als Ergänzung zum ei¬ 
gentlichen Listing zu verstehen, da¬ 
bei aber sicher hilfreich, da GEM¬ 
DOS im Detail nicht so einfach zu 
durchschauen ist. 

Bei der vorgenommenen Bewertung 
des GEMDOS kann ich Herrn Kra¬ 
mer allerdings nicht folgen. So wer¬ 
den GEMDOS nur wenige konzeptio¬ 
nelle Schwächen attestiert während 
den vielen Fehlem nur eine (!) Seite 
gewidmet wird. Über die dort be¬ 
hauptete Quasi-Fehlerfreiheit kann 
man nur staunen, wenn man seine 
eigenen Programmiererfahrungen 
mit GEMDOS betrachtet. 

Das Listing ist, wie GEMDOS selbst, 
in ‘C’ verfaßt, d.h. es wurde per Hand 
“rekompiliert”. Es ist ausreichend 
kommentiert und hat sogar eine Refe¬ 
renztabelle für die einzelnen Funktio¬ 
nen und Variablen. Es wurden bisher 
keine groben Fehler festgestellt, nur 


wurden bei der Kommentierung oft 
selbst sehr offensichtliche Program¬ 
mierfehler übersehen. Es dürfte ei¬ 
nem große Einblicke in die Funk¬ 
tionsweise von GEMDOS geben. 

Das sogenannte “VDI-Listing” ver¬ 
dient diesen Titel nicht. Auf 40 Seiten 
findet sich nämlich nur das Listing 
(Assembler) einer guten Hälfte der 
“Line A-Routinen” und ganz weniger 
VDI-Funktionen. Darin sind zwar die 
neuen Blitter-Routinen enthalten, 
was sicher für die Blitter-Program- 
mierung nützlich sein dürfte; das ei¬ 
gentliche VDI jedoch fehlt praktisch! 
Wie in jedem in letzter Zeit neu er¬ 
schienenen Buch gibt es eine Doku¬ 
mentation zum Blitter, wie gewohnt 
in Anlehnung an die Atari-Blitter- 
Dokumentation. 

Ferner enthält das Buch auch ein Li¬ 
sting des Atari-Harddisk-Treibers, 
der zwar nicht zum TOS gehört, aber 
dessen Studium doch recht interes¬ 
sant und lehrreich sein kann. Obwohl 
am kürzesten, gefällt mir dieses Li¬ 
sting mit Abstand am besten. Es ist 
englisch, dafür aber sehr schön kom¬ 
mentiert und weist mit Witz auf die 
auch hier unvermeidbaren Program¬ 
mierfehler hin. Es beinhaltet eben¬ 
falls eine leicht verständliche Erläute¬ 
rung der einzelnen Komponenten der 
Harddisk und deren Zusammenwir¬ 
ken. 

Zusammenfassend ist zu sagen, daß 
sich das Buch wohl für jemanden 
lohnen könnte, der noch über kein 
BIOS-Listing verfügt oder besonde¬ 
res Interesse am GEMDOS, dem 
Harddisk-Treiber oder der Blitter- 
Programmierung hat, vorausgesetzt, 
er ist in der Lage, mit den offensicht¬ 
lichen Fehlem zurechtzukommen. 
Aufgrund der zahlreichen Unge¬ 
reimtheiten sollte man jedoch nicht 
sein altes BIOS-Listing wegschmei¬ 
ßen und sich dieses kaufen, besonders 
nicht in Anbetracht des nicht gerade 
geringen Preises. 

Andererseits kann man froh sein, daß 
es überhaupt veröffentlichte Listings 
vom GEMDOS und Harddisk-Trei¬ 
ber gibt, und das sogar für das Blitter- 
TOS. 


Alex Esser 
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Batz/Huechke 

Sortierverfahren 
in Pascal 


Von Unaar- Ja* Buttto Cm Quck-Sort 



Batz, Huschke 
Sortierverfahren in Pascal 
Franzis ’ Verlag, München 
80 Seiten, 1. Auflage 1988 
DM 28,- 

Bei den meisten Programmieraufga¬ 
ben benötigt man sortierte Daten. 
Dies stellt bei kleinen Datenmengen 
kein großes Problem dar, denn jeder 


wird ohne viel Nachdenken den 
B ubble-Sort-Algorithmus einsetzen 
können. Werden die Datenmengen 
jedoch größer, benötigt dieses Ver¬ 
fahren sehr viel Zeit. Abhilfe schaffen 
dann die effizienter arbeitenden Al¬ 
gorithmen wie Shell/Metzner-Sort, 
Heap-Sort oder der bekannte Quick¬ 
sort. Das Buch beginnt mit einer klei¬ 
nen Einführung über Zeiger und Re¬ 
kursion in Pascal. Danach werden die 
einfacheren Sortieralgorithmen vor¬ 
gestellt, von denen jedoch nur der 
Shell-Sort sinnvoll erscheint. Interes¬ 
santer sind natürlich die Versionen 
des Heap- und Quicksort, von denen 
das nächste Kapitel handelt. Leider ist 
jedoch die Erklärung des Quicksorts 
sehr kurz ausgefallen, obwohl dieses 
Verfahren erwiesenermaßen das 
schnellste ist. Apropos Geschwindig¬ 
keit, vergeblich sucht man einen Zeit¬ 
vergleich der vorgestellten Program¬ 
me, und auch die Berechnungsfor¬ 
meln für die Anzahl der Durchläufe 
werden nicht angegeben. Auffallend 
ist auch, daß die einfachen Verfahren 


in fast allen Variationen aufgeführt 
werden, bei den fortgeschrittenen 
jedoch optimierte wie z.B. Supershell 
oder das Shell-Metzner-Verfahren 
unerwähnt bleiben. Ähnliche Schwä¬ 
chen zeigt auch das abschließende 
Kapitel über Suchbäume auf. Die 
Dokumentation ist ziemlich unglück¬ 
lich gewählt, außerdem fehlen hier, 
wie im gesamten Buch, Struktogram- 
me der vorgestellten Routinen. Auch 
auf ein Beispielprogramm hat man 
verzichtet. 

Das Buch kann nur für Einsteiger 
empfohlen werden, die in erster Linie 
einen der vorgestellten Sortier-Algo- 
rithmen in Pascal benutzen wollen, 
aber dafür ist das Buch zu teuer. Für 
Interessierte fehlen Struktogramme, 
Geschwindigkeitsbetrachtungen und 
nähere Erläuterungen zu den Algo¬ 
rithmen. 

Markus Nerding 




... und dann einen Schritt weiter mit 

2nd_Word 


2nd_Word ist ein Textverarbeitungsprogramm, das auf 
ungewöhnliche Art ungewöhnliche Leistungen bringt, denn 
2nd_Word beherrscht Proportionalschrift und Blocksatz unc 
arbeitet voll nach dem WYSI WYG-Prinzip, d.h. alles, was £ 
dem Bildschirm bearbeitet wurde, wird genauso auf dem 
Drucker wiedergegeben. 

2nd_Word macht es möglich, eine komplette DIN A4-Seite 
dem Monitor abzubilden (siehe Bild). 

Natürlich können Sie mit 2nd_Word Ihre Texte auch direkt 
schreiben! 2nd_Word ist ein eigenständiges Textprogramm 
alle ATARI ST-Rechner mit monochromen Bildschirm und 
beinhaltet alle wichtigen Funktionen, die man zum Edieren 
braucht. 


Um Ihnen einen Einblick in die Fähigkeiten von 2nd_Word zu geben, zeigen 
wir hier einen kleinen Textausschnitt. 


Fett Unterstrichen Kursiv Unproportional 


Groß 


Subacrlpt Super.crlpt NA 2 C0 3 Xi««* 2 ) 

Neu an diesem Programm ist vor allem die proportionale Schrift im Blocksatz, 
die jedem Brief oder sonstigem Text ein professionelles Aussehen verleiht und 
auf 8/9- und 24-Nadel-Drucker ausdruckt. Da der Ausdruck im Grafik-Modus 
erfolgt, treten keine Druckerprobleme auf. Die weiche Trennung macht ein sau¬ 
beres Schriftbild möglich. 


Features: 

- Blocksatz und Proportionalschrift auf Bildschirm und Dru< 

- Ganzseitenlayout DIN A4 Hoch 
-WYSIWYG 

- leichtes Umformatieren von Texten per Tastendruck 

- Großbuchstaben in doppelter Höhe und Breite (Bildschirm 
Drucker) 

- lst_Word kompatibles und ASCII-Format 

- variabler Zcilenabstand 

- Tastenprogrammierung (jede Taste) 

- Macrodcfinition 

- weiche Trennung möglich 

- Druck mit 8/9- und 24-Nadel Drucker 

- eigene Zeichensätze 

- Zeichensatzeditor (für Bildschirm- und Druckerzeichensäl 

- Funkiionstastcnbelcgung (Fett, Unterstrichen, Kursiv, Gro 
Unproportional, Sub-/Supcrscript, Zentrieren, Einrücken, 
Reformat) 

Als eigenständiges Textprogramm oder wertvolle Ergänzun 
lst_\#ord. Nur DM 5 

Berlin Computer GmbH 
[austriestr. 26 
“2^236 Eschborn 
Tel.: 06196/481811 








































Leser -> ST 


Betr.: ST Computer 3/88 “Vom 
Quelltext zum Programm” 

Leider hat sich in das Listing des 
neuen Linkers für das GST-Format 
ein kleiner Fehler eingeschlichen. In 
der drittletzten Zeile muß statt 

if(listing_flag) fclose(fp); 

richtigerweise folgendes stehen: 

if(listing_flag) fclose(list_file); 
Ingo Eichenseher, Stadthergen 

Betr.: Zeitmanager PD-Diskette 
113 

Das Programm gefällt mir wirklich 
gut, doch macht es mir einige Sorgen, 
da es schlicht und einfach den 29.Fe- 
bruar 1988 ignoriert. Es wäre nicht 
weiter schlimm, denn alles neu macht 
der März (?!), doch liegen alle Folge¬ 
tage des Jahres um einen Tag falsch. 
Was kann ich tun? 

Bernd Baumann / Wuppertal 

Red.: Bei solch komplexen Program¬ 
men kommt es gerne vor, daß etwas 
nicht korrekt funktioniert. Da auf der 
Diskette der Source-Code des Zeit¬ 
managers enthalten ist, können Sie 
die Probleme durch folgende Ände¬ 
rungen aus der Welt schaffen. Erset¬ 
zen Sie folgende Programmteile 
durch die angegebenen Änderungen. 
Die Stellen im Programm (hier wären 
Zeilennummer nicht schlecht), finden 
Sie mit Hilfe der Such-Funktion. 

1.) Erkennung auf Schaltjahr 

If Jahr% Mod 400=0 

Schaltjahr%=-l 
Endif 

If Jahr% Mod 100=0 
Schalt jahr%=0 
Endif 

durch: 

If Jahr% Mod 1=0 
Schalt jahr%=0 
Endif 

If Jahr% Mod 4=0 
Schalt jahr%=-l 
Endif 


2. ) Kalenderanzeige bis 29.02. 

For I%=1 To Ml%(M%) 

durch: 

For I%=1 To Ml% (M%) - 

(M%=2 And Schaltjahr%) 

(Diese Zeile ist zweimal zu ersetzen) 

3. ) Berechnung der Tage 

If Mo%=2 And Ta%>28 
Ta%=28 
Endif 

durch: 

If Mo%=2 And Ta%>28-Schaltjahr% 
Ta%=28-Schaltjahr% 

Endif 

Wir hoffen, daß damit alle Fälle abge¬ 
deckt sind. Das Jahr 1988 ist nun 
korrekt und der 29. Februar wurde 
zum Leben erweckt. 

Betr.: ST Computer 3/88 “Schrei¬ 
ben mit dem WRITER-ST” 

Zum einen ist es selbstverständlich 
möglich, ohne große Umwege ein 
neues Dokument zu erzeugen. Sie 
können sofort nach dem Aufruf von 
WRITER-ST mit dem Erstellen des 
Textes anfangen. Erst wenn sie den 
Text fertig geschrieben haben, kön¬ 
nen sie diesen unter Angabe eines 
neuen Dateinamens abspeichem. 
Zweitens wird in dem Testbericht der 
Eindruck erweckt, daß es unmöglich 
sei, einen Textblock in die Mitte einer 
Zeile einzufügen. Dies ist selbstver¬ 
ständlich möglich, dabei werden aber 
die Wörter, die nicht mehr in die zu 
bearbeitende Zeile passen, in eine 
neue Zeile geschoben. Sollen gleich 
mehrere Wörter eingefügt werden, so 
kann man sich durch “CTRL/Retum” 
ein wenig Platz schaffen. 

Der Mangel, daß dabei für jedes her¬ 
ausgeschobene Wort eine neue Zeile 
eingefügt wird, ist in der Version 1.2 
behoben. 

Martin Schmitt-Degenhardt, SSD-Software 

Betr.: ST Computer 3/88 “Juri- 
STische Anwendungsprogram¬ 
me” 

Zu Ihrer März-Ausgabe der ST- 
Computer möchte ich Ihnen recht 
herzlich gratulieren. 

Nach dem schleichenden Niveau Ver¬ 
lust der beiden vorherigen Ausgaben 


des Jahres 1988 dachte ich, die ST- 
Computer würde langsam aber sicher 
zu einem Werbeblättchen ohne be¬ 
sondere Ansprüche verkommen. Ins¬ 
besondere das Layout erinnerte mehr 
an das Schinden von Seiten als an die 
Vermittlung sachlicher Informatio¬ 
nen. Teilweise waren die Anzeigen so 
aufgemacht, daß sie wie Teile von 
Artikeln erschienen, teilweise sah ein 
Artikel eher wie eine Werbeanzeige 
aus. 

Gott sei Dank habne Sie nun Ihre 
Layoutversuche eingestellt und zu 
Ihrem ursprünglichen Bild zurückge¬ 
funden. Sachliche Informationen 
werden wieder in einem entsprechen¬ 
den Rahmen vermittelt. 

Insbesondere weckt Ihr Artikel über 
juristische Anwendungen mein Inter¬ 
esse. Wir sind hier mit mehreren Jura- 
studenten zusammen, die einen 
ATARI ST zu Studienzwecken ein- 
setzen. Nachdem wir bereits Hausar¬ 
beiten etc. erstellt haben und dabei 
hinreichende gute als auch schlechte 
Erfahrungen mit diversen Textverar¬ 
beitungsprogrammen sammelten, 
blieb uns als juristische Anwendung 
hauptsächlich noch, den ATARI ST 
als großen, blitzschnellen Karteika¬ 
sten zu nutzen. 

Die Möglichkeit, den ST dann auch 
später weiter einzusetzen, ist deshalb 
für uns alle nicht nur aus finanziellen 
Gründen besonders reizvoll. Nach¬ 
dem sich in der letzten Zeit einiges auf 
dem Sektor der Netzwerktechnik zu 
tun scheint, stellt Ihr Artikel nun wohl 
auch einen Ansatz dar, sich mit an¬ 
waltsgerechter Software öffentlich 
auseinanderzusetzen und nicht auf 
reine Mundpropaganda angewiesen 
zu sein oder sich alles selbst zusam¬ 
menzusuchen. 

Ich hoffe daher ebenso wie meine 
Bekannten, daß Sie den Artikel wie 
angekündigt zu einer kleinen Serie 
ausbauen und verschiedene Program¬ 
me für den juristischen Bereich vor¬ 
stellen. 

Als Anregung könnte man Ihnen viel¬ 
leicht raten, in Zukunft neben einer 
Serie für Juristen auch solche für 
andere nicht naturwissenschaftliche 
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Bereiche herauszubringen. In diesen 
Bereichen ist die Angst vor der Tech¬ 
nik relativ groß und gerade ein preis¬ 
wertes System wie der ATARI ST für 
einen Einstieg geeignet. Oft ist es den 
Betroffenen jedoch nicht möglich, 
sinnvolle Anwendungen für Compu¬ 
ter zu erkennen, oder Ihnen wird eine 
völlig falsche Beratung zuteil. Händ¬ 
lerauskünfte wie “Die Mindestinve¬ 
stition für eine reine Textverarbei¬ 
tung liegt bei ca. 20.000,- DM, alles 
andere ist einreines Telespiel und für 
somit nicht geeignet,” sind üblich und 
schrecken viele potentielle Anwen¬ 
der grundsätzlich ab. Gerade im Be¬ 
reich der voll- oder halbprofessionel¬ 
len nicht naturwissenschaftlich-ma¬ 
thematischen Anwendung des ATA¬ 
RI ST fehlt es noch völlig an einschlä¬ 
giger Literatur und aktuellen Nach¬ 
richten, so daß gerade hier vielleicht 
ein potentieller Käuferkreis wartet, 
den Sie mit dem Niveau Ihrer März- 
Ausgabe sicher erreichen können. 
Thomas Giese, Bonn 

Red.: Erst einmal vielen Dank für Ihr 
Lob, doch bleiben wir auf dem Tep¬ 
pich; bei uns hat sich viel getan. So 
haben die massiven Umstellungen in 
der Layoutgestaltung und der Pro¬ 
duktion doch nicht so reibungslos 
geklappt, wie wir es uns vorgenom¬ 


men hatten. Dies hat sich dann recht 
deutlich auf die Januar- und die Fe¬ 
bruar-Ausgabe und somit leider auch 
auf unsere Leser ausgewirkt. Mit die¬ 
ser April-Ausgabe dürften wir aber 
wieder alles unter Kontrolle haben 
und hoffen, daß die ST-Computer 
auch weiterhin Anklang findet. 

Zum zweiten Teil ist zu sagen, daß wir 
auch in Zukunft über Anwendungen 
des ST in der Praxis berichten wollen. 
Allerdings wird das wohl eher in 
Form von ein- oder zweiteiligen Arti¬ 
keln geschehen. Denkbar wären zum 
Beispiel Berichte über den Einsatz 
des ST in Arztpraxen, in Meßlabors 
oder in der Schule. Die Berichte wer¬ 
den nicht in jeder Ausgabe erschei¬ 
nen, sondern in unregelmäßigen 
Abständen. Wir sind der Meinung, 
daß wir so unseren Lesern auch die 
Möglichkeiten der sinnvollen Nut¬ 
zung von Computern zeigen können, 
und somit ist auch jeder Leser aufge¬ 
rufen uns seine Erfahrungen mitzutei¬ 
len, damit alle davon profitieren kön¬ 
nen. 


Leser -> Leser 


ENDE 


Betr.: Druckertreiber für Brother 
CE-550 

Ich wäre sehr dankbar, wenn mir 
jemand bei meiner Suche nach einem 
Druckertreiber für meine Brother CE- 
550 und den ATARI ST 1040 weiter¬ 
helfen könnte. Ich möchte speziell 
lst_Word einsetzen. Alle Treiber, die 
ich besitze, laufen nicht. Ich hoffe, 
daß mir ein Leser helfen kann. 

WulfD. Richter, Postfach 280426,1000 
Berlin 28 

Betr.: Leserbrief ST-Computer 3/ 
88 “Probleme mit lst_Word Plus 
und Etikettendruck” 

Im oben genannten Leserbrief er¬ 
wähnt Hanno Sekuterski aus Arns¬ 
berg seine Probleme beim Etiketten¬ 
druck mit lst_Word Plus. 

Die Lösung, die angeboten wurde, ist 
zwar auch nicht schlecht, aber es geht 
meiner Meinung nach noch einfach¬ 
er. 

Man stellt im Menü Seitenformat die 
Papierlänge auf die entsprechende 
Etikettenlänge ein und schreibt dann 
ganz einfach seinen gewünschten 
Text für den Aufkleber. Man muß nur 
darauf achten, am Textende keine 
neue Seite anzufangen, also nicht in 
den linken senkrechten Balken zu 
klicken. 

Uwe Ehrhardt, Freiburg 


AB- COMPUTERSYSTEME 

AMIGA ATARI PC kompatibel 

A. BÜDENBENDER • Wildenburgstraße 41 • 5 Köln 41 • Telefon (0221) 4301442 


HARDWARE, SOFTWARE 
KOMPLETTLÖSUNGEN 
EDV-ZUBEHÖR, SERVICE 
BERATUNG 


IHR FACHHÄNDLER IN KÖLN FÜR AMIGA / ATARI / PC. Wir bieten Ihnen noch Beratung und Service für Ihren Computer. 


AB Doppelfloppy 2* 726 KB graues Metallgehäuse o. Schrauben an den Seiten 
eingebaute Stromversorgung Spitzenqualität mit NEC FD1037 NEU modifiz . 598,— 

AB Einzelfloppy 1 *726 KB mit NEC FD 1037 noch kleiner 28 mmh*170 mm T. 
mit externem Steckernetzteil komplett Anschlußfertig die kleinssten z. Zeit — 809,— 

AB Lw. mit Buchse zum Anschluß eines zweiten Laufwerks mit EIN/AUS Schalter 

3.5 Zoll NEC 1037 . 349,- 

AB Einzelfloppy 5.25 Zoll 40/80 Track. Anschlußfertig m. eingeb. Netzteil Tast 2/12 398,— 
NEC FD1037 NEU ohne Gehäuse 28*140 mm H*T einzel Laufwerk 

voll ST kompatibel 5V Vars. 219,— 

ST Floppystecker 6,— Buchse 10,— Monitor St. 6,— Mon.-Buchse. 10,— 

ST Floppykabel fertig für Lw. A 30,— Lw. A+B 25,— 

Steckernetzteil 5V für FD1037 . 20,— 

EIZ0 Multimonitor beste Qualität für St alle drei Aufl. 0.28 Dot. SUPER. 1498,— 

SM 134 Monitor St 440,— Multisync GS schwarzweiß alle Aufl. an ST. 598,— 

Farbmonitor für St 680,— / HF Modulator für St’s steckbar inkl. Netzteil. 189, — 

Monitor Kabel für Multisync 75,— / Scart Kabel fertig 1,5 m 35,— / Scart 3 m fertig 55,— 
Switchplatine 2 Mon. an einem St o. Geh. 90,— / Monitorständer 13 Zoll. 29,— 

SPeichererweiterung Platine für S12/1MB/2MB/4MB ohne Rams komplett. 198, — 

SPeicherervveiterung512KBfür260/520STMComputersteckbar____^reis_auf_Anfrage 

ST Eproms 27256 pro Stück 14,— / Rom Satz St 98,— / U7 2* schneller Laden — 25,* 

Eprommer NEU für Romport mit Software für 27XXX Typen. Anschlußfertig 

zum Knüllerpreis. 149,— 


SH 205 mit 40 MB Superschnell 28 ms komplett anschlußfertig mit Software . . 1998, — 
SH 305 20 MB anschlußfertig 1200- / Vortex HD 20+20 MB anschlußfertig ... 1198,— 
Vortex HD 30+30 MB komplett 1398,- / AB 20 MB Bausatz komplett mit Geh. 798,— 

ST 1040+SM 124+Maus 1549,- / Mega St 2 Mega St 4.auf Anfrage 

ST 520 STM mit Maus inkl. Roms S12KB und AB Lw. 726 KB. Komplett nur 849,— 
ST 520 STM mit Maus+Roms+AB Lw. 726KB+1MB 1098,- mit Monitor SM 124 1528,- 

NEC P6 Drucker Deutscher Version, 12 Mon. Garantie auf ALLE Teile, nur. 1198, — 

NEC P6 Color 4 Farben für Pc/Amiga/St, beide Drucker mit Treiber Disk. 1598,— 

NEC P7 Drucker DIN A3, 24 Nadeln, COLOR 1898,— / NEC P7 normal A3 1548,— 

NEC P2200 Neu, 24 Nadeln, voll PG, kompl. inkl. Traktor/Einzelblatt. 990,— 

STAR NB24-10, 24 Nadeln mit neuen Roms, daher voll P6 kompat. m. Trakt. . . 1398, — 

STAR LC NEU, Drucker 9 Nadeln, deutsches Handb. mit Papier Park Stellung / Endlos 598,— 
STAR LC Color NEU, wie oben jedoch jetzt mit 8 Farben für ST / AMIGA / IBM 749,- 

ATARI Laserdrucker, 8 Seiten pro Minute, komplett anschlußfertig.Preis auf Anfrage 

ACHTUNG: Alle NEC Drucker mit Treiberdisk/9 Nadel, Anpassung, 12 Mon. Garantie. 

Adimens 2.1 Datenbank 180,— / Signum 2 988,— / Stad Grafik 169,— / PC Ditto 185,— 
Aditalk ST Datenb. 180,- / ISt Word+ 195,- / Supercharger 649,- / ISt Adress 143,- 
SY BEX Komplett-Paket Faktura, Fibu, Kundenverwaltung, Lager, Lohn, Gehalt, Manager. 
Vorführung nach Wunsch mit Terminabsprache für Ihre Firma. Kunden+Faktura . 550,— 
Freesoftware alle Progr. aus St Computer pro Stück 8,—. Liste Hard/Softw. anfordern. Disk 
2 DD Fuji 39,— 2 dd No Na. 26,—. Öffnungszeiten: Büro 10-13,14—18 Uhr. Wir liefern für Ihre 
Firma die richtige Soft/Hardware/Beratung nach Wunsch. Händleranfragen erwünscht. Die 
Preise sind unverbindl. Richtpreise. 
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MIRAGE 

eal-tl m e 
multiuser 
m ultitasking 
t z w orkfähig 


Oie Alternative zu UNIX. Seit Jahren hat MIRAGE 
sich auf dem Markt der Workstations fest etabliert. 
Jetzt gibt es die ST-Version. Extrem schnell. 
Extrem vielseitig. Einige Features: 

• Lesen & Schreiben von TOS-Disketten 

• TOS-und MIRAGE-Partitions auf einer Festplatte 

• TOS-Calls von MIRAGE aus möglich (kein GEM) 

• Line-A Grafik zugänglich 

• virtuelle Bildschirme (umschaltbar per Tastatur) 

• bis zu 128 dynamische Tasks pro Job 

• Kommandosprache mit Variablen, Nesting etc. 

• geräteunabhängiges Treiberkonzept 

• schneller, komfortabler Editor 

• Supervolumes: Eine Datei über mehrere Drives 

• echtes Netzwerk ohne zusätzliche Hardware 

• Sprachen: Basic, Pascal, Lisp, Fortran, C, APL 

Der Assembler: 

• Macros (mit lokalen Labels und Konstanten!) 

• bedingte Assemblierung 

• Unterstützung von 68020/68030/68881/68882 

• Fließkomma-Konstanten 

• Linker, Debugger, Profiler, Library-Funktionen 

MIRAGE: Die ideale Lösung für Software-Entwickler, 
die eine preiswerte Workstation-Umgebung brauchen. 
MIRAGE: Für Unis, die z.B. ihre Fortran-Anwendungen 
aus dem Rechenzentrum lösen wollen (Swifte-Fortran 
-77 ist als Error-Frss zertifiziert, die NAG-Biblio- 
theken sind erhältlich - auch auf Disketten!). 
MIRAGE: Für Meßdatenerfassung & Steuerzwecke. 
MIRAGE: Für die Portierung von PC-Software auf 
den ST (z.B. mit Lattice C); für Netzwerke; ... 

MIRAGE-ST (ROM-Pack, Disks, Manuals) 348.- 
MicroGrid (Netztreiber für RS232 u. MIDI) 98.- 
- Bitte fordern Sie Infos und Preislisten an - 


adert IMET.” 0521/875888 



We don’t need no education 


APL/68000 - Das ganz besonders schnelle APL für 
68000er Rechner. Von MicroAPL. Die Sprache der 
Profis für ATARI, MAC und AMIGA - oder darf es 
eine Workstation sein? Bei gdai zum supergünst¬ 
igen Preis: Incl. Support, Update-Service und 
Toolsdiskette (nur ST). Wir lioforn immer di« 
neueste Version. Literatur- und Referenzhinweise 
; sowie ausführliche Infos gratis. 


APL/68000-ST♦ 

Die PLUS-Version wird exklusiv von 
gda-k vertrieben und enthält wert¬ 
volle Erweiterungen und Tools, da¬ 
runter sogar eine kleine Datenbank! 

APL/68000 Language Manual 

Der Kaufpreis wird bei nachfolgendem 
Kauf des APL voll angerechnet. 

APLPRINT 

druckt Text und Grafik unter APL. 

LineAl 

Schnelle Line-A Grafik. 

APL-ASS 

Für Assembler-Routinen in APL. 

APL-EDIT 

Variablen - Editor, Icons, Fonts . . . 
GD_GRAPH 

VDI-Grafiktools. 


298.- 

49.- I 

198.- 1 

164.- I 

I 

164.- ! 
248.- 
48.- 


APL ist eine Hochsprache der vierten Generation, 
die seit Jahren ihre Effizienz erwiesen hat. Und: 
APL ist eine Sprache zum Anfassen - Leicht zu 
lernen, intuitiv, fehlertolerant. Mit APL werden 
Probleme gelöst, nicht geschaffen. Zudem können 
wir uns als zuverlässigen Partner empfehlen: 
gdai arbeitet seit 7 Jahren mit APL/68000. Wir 
wissen, wovon wir reden. Fordern Sie das Info an. 

gdB-t fSTÄtof.” 0521/875 888 


Call Soft 

COMPUTERSYSTEME 

Verkauf und Versand, Beratung, Branchenlösungen 


1040 STF, komplett mit Monitor SM 124 . 1498,- 

ST 520 STM, 512 Kb RAM, Maus, TOS-ROM’s. 579,- 

MEGA ST-2 / MEGA ST-4 .... SUPERPREISE auf Anfrage 

LAUFWERKE 

ST-Doppelfloppy 2x726 Kb, eingeb. Netzteil. 598,- 

ST-Einzelfloppy wie vor, jedoch 1 x726 Kb. 329,- 

40 MB Festplatte HD 40, anschlußf. Bootfähig_2198,- 

20 MB Festplatte SH 205, anschlußfertig.1198,- 

MONITOR 

NEC MULTISCAN GS NEU, alle ST Aufl. 598,- 

SM 124 Monochrom ... 469,- / SC 1224 Color . 869,- 

DRUCKER 

NEC-P2200, NEU, 24 Nadeln, Bi. Traktor, 55z LQ . 995,- 

NEC-P6, 24 Nadeln, 216z Draft / 72z LQ. 1258,- 

NEC-P7, wie P6, jedoch dIN A3 . 1658,- 

Farbdrucker NEC-CP6 .... 1558,- / NEC-CP 7 .... 1958,- 
EPS0N LQ-850, 24 Nadeln. 226z Draft/88z LQ . 1698,- 
STAR LC-10, NEU, 9 Nadeln, 144z Draft/36z NLQ ... 695,- 
SOFTWARE 


fibuMAN Demodisk m. Handbuch, für ST oder PC . 65,- 
fibuMAN Einnahmen-Übersch. Rechn. ST 398,- / PC 898,- 
fibuMAN Finanzbuchhaltung ... ST 768,- / PC ... 1468,- 
fibu MAN Mandantenfähige FIBU . ST 968,- / PC . 1968,- 
Ramdisk C-N, Resetfestes ACC auch f. Harddisk 48.- 


RUF (02 21) 211761 Mo-Fr 10-12 u. 14-18 Uhr 

5000 KÖLN 1 HÄNDELSTRASSE 2—4 


Scanner ST 

Scanner I zum Prg STAD 10 

mit Eingriff in den Rechner 159,- 

Scanner I als Bausatz 99.- 

Scanner II zum Prg STAD 1.2 

ohne Eingriff im Rechner 198.- 

Scanner III 2-16 Graustufen mit Software 278,- 

Flachbett Scanner 2998j 

HAWK CP 14 mit Software 

Handy Scanner 798,- 

Hardware ST 

Drews BTX-Manager V.2.0 mit Interface 428.- 

Logic Analyser 16 Kanäle 600 KHz 5V TTL 448,- 

Rom-Port umschaltbar 

Steckplatzerweiterung 79,- 

NEC P2200 24 Nadel Printer 858.- 


Roland Vodisek 

Tel. 02631/72403 Elektronik 

Kirchstr. 13 

GtX *0 26 31 / 7 24 03# 5458 leutesdorf 




Wir haben die neueste Software 
für Ihren ATARI ST! 


Zum Beispiel: 

DM 

WIZWAL (Dt.) 

69,90 

DIZZY WIZZARD (Dt.) 

69,90 

FOOTBALL MANAGER 

49,90 

SPACE BALLER (Dt.) 

29,90 

SPACE QUEST 2 

69,90 

CHECKMATE (Dt.) 

34,90 

XNON 

34,90 

EYE (Dt.) 

44,90 

KING CUEST 


alle drei Teile zusammen 

79,90 

Und vieles mehr! Fordern Sie unsere kostenlose 


ST-Software-Liste an! 


C0MPY-SH0P 

Gneisenaustraße 29 - 4330 Mülheim Ruhr 
Telefon (0208) 497169 


Public-Domain Softwarepakete 

★ 5 Markendisketten MF 1 DD, doppelseitig forma¬ 
tiert und gefüllt mit guter Public-Domain Software 


Achtung Preisänderung 



Paketpreis nur noch DM 39, — 

inklusive Porto und Verpackung! 


_1 PD01-PD10 

9 

_4- PD11-PD20 

3 PD21 - PD30 

laus 

laus 

aus 

IST-Computer 

IST-Computer 

(ST-Computer 


_4 io PD-Disk 

5 io PD-Disk 

_6 io PD-Disk 

~| aus 

~T aus 

1 aus 

[ Kalifornien 

| Kalifornien 

1 aller Welt 


7 io PD-Disk 

_8 10 PD-Disk 

_9 10 PD-Disk 


1 aus 

aus 

1 aus 


| Kalifornien 

| Kalifornien 

| Kalifornien 



1 0 PD 31-PD 4C 

1_1 PD41-PD51 

12 io PD-Disk 


laus 

laus 

aus 

[aller Welt 


IST-Computer 

IST-Computer 



13 

10 PD-Disk 

14 io PD-Disk 

1.5 10 PD-Disk 

— 1 

aus 

aus 

| aus 


aller Welt 

| aller Welt 

1 Kalifornien 


16pd 52-61 

17 PD 62-71 

1.8 io PD-Disk 

taus 

~|aus 

laus 

JST-Computer 

IST-Computer 

(Kalifornien 


Paket Enthält PD 72-81 aus ST-Computer Z B 
Videoarchiv * Maxidisk * Datebook ★ Pe- 
H Q riode ★ AESLIB * U Boot * Fonts für PD 
I 40 ★ Malprogramm ★ etc 


Paket Enthält PD 82-91 

+ Updates „Ul“ und „U2“ aus ST-Com¬ 
puter. z. B. Skat. Grusel. Masterpamter, Sta- 
rofix. Hypervoc. etc 


H20 


Paket Enthält PD 92-101 aus ST-Computer 

Z. B ST-Speech ★ ST-Klick ★ MACPAN ★ 
OH Andurlin ★ Minigolf * Trash * Sharp ★ 
Lm I Minenfeld * Missile und vieles mehr 


Paket Enthält PD 102-111 aus ST-Computer 
Z. B. Lohnsteuer * Aktie ★ Depot i 
QQ Poster * Napoleon ★ Druckerutilities i 
C-L- Wordplus Utilities ★ Soundcomputer 


Paket Enthält 12 Disks aus Kalifornien. 

Protect schützt vor Viren ★ NeoCalender 
erstelle Kalender aus Ihren Bildern ★ neue 
Borders für Printmaster * ArtDeco Fonts 
QQ für Degas Elite ★ Bannermaker ★ Turtel 
Harddiskbackup ★ Spiele etc 


Paket enthält PD-Service Disk 112-121 + Updates 
Z B. World ★ Zeitmanager ★ Metropol * 
Dallas ★ Sherlock * Scribble ★ Uniterm 
OA 2.0a ★ Lattice * Tape Label ★ Wissen Sie 
L.H es ★ Go Up ♦ Oclimpenum » uvm 


Paket Enthält PD-Service Disk Nr. 122 - 131 

Z. B. PD. Bolo ★ CAD 2 ★ Horrorschloß 
QC * Hyperformat ★ Cube Hack ★ Inversi * 
C.0 Planet ★ Chemlib -i- einige Updates 


Gewünschte Pakete ankreuzen u. Bestellung einsenden an 

IDL-Software 

- Public Domain - 
Alkmaarstraße 3 - 6100 Darmstadt 13 

□ Info-Diskette Nr. 5 DM 5.- 
PD-liste + neue CLIP ART 
+ Belagerung, das Spiel um die Burg 

□ Scheck über DM . . liegt bei. 

Ich erhalte die Pakete verpackungs- u. versandkostenfrei 

□ NACHNAHME 

(Nur Inland, zuzügl DM 5.- NN-Gebühr) 

Ganz Eilige bestellen einfach telefonisch: (06151) 58912 
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ST-COMPUTER 

PUBLIC 

DOMAIN 

SERVICE 


Liebe Leser, 

es gibt viele Leser, die zuerst in die Public- 
Domain-Seiten schauen, wenn Sie die neue ST- 
Computer aufschlagen. Dies zeigt, wie wichtig 
unseren Lesern diese Software ist. Wir bemühen 
uns deshalb sehr. Ihnen aus den Einsendungen 
die besten herauszusuchen. Auch für unsere 
Mitarbeiter, die die Disketten kopieren, gilt 
Sorgfalt als erstes Gebot. 

Leider kommt es oft vor, daß unsere Disketten 
von einigen Händlern unsachgemäß (z.B. ohne 
Verify oder auf schlechte Disketten) weiterko¬ 
pieren oder sogar verändert werden. 

Zu oft müssen wir hören, daß nicht bei uns 
bezogene Disketten Mängel aufweisen oder gar 
nicht laufen. Daß wir dafür nicht geradestehen 
können, dürfte verständlich sein. Wir können 
nur garantieren, daß direkt von uns verschickte 
Disketten fehlerfrei sind. 

Da können Sie sicher sein. 

Ihre ST-Computer Redaktion 


Neu in diesem Monat 



Utilities 

- GFA-Shell: eine Shell für alle GFA-Basic 
Programmierer. Ruft Interpreter und Compiler 
aus der Menüleiste. Ein CLI und ein Sprite- 
Editor sind eingabaut. (s/w) 

- OMIKRON Shell: eine .Shell für das OMI- 
KRON.-Basic System. Attfifaf von Interpreter, 
Compiler, Linker. Generiert PRö, !OS, TTP 
oder ACC. (s/w) 

- Disksave: Speichert rrtk beliebigem Namen 
den kompletten Bildschirm per ‘Alt+Help’ 
anstatt zu drucken auf Diskette. 

- Apple-ST: Datenübertfajtjürtg Apple II—> 
ATARI ST. Enthält Programme für Apple- und 
GFA-Basic. 




1 x*ua 

1 tosaake von Ulfe 


11 di* 

OITEIMTE« 

■ fl kt »raaiate« «rr Diskette ms 

llkt Datejjateo an 

I Wtes/sitar : Sil 

I Sek t«re#/t 1 «ster : 2 

I Htes/Clnter : 1124 

1 SAtarm/Vlr : 7 

1 SAtarea/Fat : 5 

Im 1 MUSCK.ffti 

lamm : W5J4 

•ttrlfcat • 

Startsektor 424 

■ Fat 2 

1 »ata 

I Saite« 

1 Sektor en/Trai 

Dl* alt genügend Saelcherkaaailtlt kitte 5 

la Wadlaofmrk elolefe« ... J 

Datei Mir! aea auf Dieser Diskette angelegt ! 
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FFFFEFKEF«*F12**F14I*F3MWF7»*F5II*FIC« 

F7 M V Fl M * Fl CI IF Fl El V FF N 11 11 21 11 U 41 11 K tl 11 

21 11 « 41 11 « U 11 17 *1 11 IS »1 11 * CI 11 » El 11 * »1 11 11 



Utilities 

- HFORMAT: Formatierprogramm als Acces- 
sory. Arbeitet im Hintergrund, d.h., daß z.B. 
Wordplus beim Formatieren weiterarbeitet. 

- Rescue: Rettet gelöschte Files. Kein Grund 
mehr zum verzweifeln, (s/w) 

- Diskinfo: Gibt das Directory sortiert auf 
Drucker (Liste oder Label) bzw. Datei aus. (s/w) 

- AccLoader: Ermöglich zwischen mehr als 6 
Accessories beim Systemstart auszuwählen, 
(s/w) 



VIP-Macros 

(professionelle Beispiele zum VIP-Kurs im 
Heft) (1MByte Ram) 

- Verein: vollstaendige Vereinsverwaltung mit 
bis zu 212 Mitgliederstammsätzen. Serienbrie¬ 
fe, Lastschrifteinzug, Ueberweisungen Etiket¬ 
tendruck, Listendruck nach Kriterienauswahl. 

- Meister: komplette Verwaltung einer Vereins¬ 
meisterschaft. 




Simulationen 

- Wator: Simulation eines biologischen Sy¬ 
stems, am Zusammenleben von Haien und Fi¬ 
schen. Grafische Darstellung, Auswertung. 

- Life: Ein sehr flexible Life-Version. Angabe 


der Fortpflanzungsregeln, (s/w) 

- Quicklife: Rasend schnelles Life. Viele kom¬ 
plette Bildschirmbeiechnungen pro Sekunde. 
Für Leute in Zeitdruck, (s/w) 




Codewars: Programme kämpfen im Rechner 
gegeneinander (REDCODE). Multipass-Red- 
code-Assembler, Disassembler, grafische An¬ 
zeige. Max. 26 Programme gleichzeitig. Single- 
Step. Incl. ausführlich Einführung in die Theo¬ 
rie. 

- Kerne 2.1: Erweiterte Version der ‘Krieg der 
Kerne’. U.a. Grafische Darstellung des momen¬ 
tanen Spielfeldes. Erweiterte Befehle. 




Spielesammlung 

- Galerie: Wunderschöne Patience Version. 
Gefährlich für Redakteure, da sie damit von der 
Arbeit abgehalten werden. 

- Kreuz As: Umsetzung des Spielautomat. Mut 
zum Risiko ist angesagt, (s/w) 
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- Midi-Musik: Komfortables Midi-Programm 
zur Kopplung eines Keyboards an den ST. Ein¬ 
gebauter Notendruck sorgt für die Ausgabe des 
Gespielten, (s/w) 
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S T-COMPUTER 

PUBLIC DOMAIN 
KLASSIKER 


Der Redaktions¬ 
service für unsere 
Leser. 

Die nicht aufgeführten Disketten sind 
natürlich auch weiterhin erhältlich, 
nur wurde uns der Platz zu klein. 
Schauen sie dazu bitte In einer der vor¬ 
herigen Ausgaben nach oder fordern 
Sie die Liste an (frank. Rückumschlag). 

Diskette 7 

- XLISP 1.71: (die Sprache der 
künstliche Intelligenz) incL 54 KByte 
Dokumentation, Anleitung und 
Beispielen. 

Diskette 11 

- PROLOG 10: Die Sprache der 5. 
Geneition. Unterstützt GEM. 

incl 95 KByte Anleitung und Beispiele. 

Diskette 23 

- Das große deutsche Ballerspiel: 
besonderes Aktionspiel (s/w) 

Diskette 34 

- Assemblerpaket: nach M 68000- 
Standard (2-Pass Assembler, 
Disassembler, Debugger, Editor) 

Diskette 40 

- Del uze Fontmaster ST: Druckpro¬ 
gramm für Karten oder schönen 
Tabellen. Viele Zeichensitze, 

Proportionalschrtft und Blocksatz, 
eigener Zeichensatzeditor. 

Diskette 75 

- Randvoll mit Zeichensitzen für 
Fontmaster (Disk 40). 

Diskette 49, 50, 51 
• Volksforth 83: Die drei Disketten 
beinhalten ein komplettes Forth-System 
für den ST. Alle Diskette werden 
benötigt. 

Diskette 52 

- Molekül: Darstellung chemischer 
Moleküle. In s/w und Farbe wobei in 
Farbe mit 3D-Effeku Atom, Ionen oder 
Van der Waalsradius. Ein Molekül kann 
gedreht und sogar animiert werden. 

Diskette 61 

- Hacominl : Erzeugt Hardcopies in 
Miniaturformat (48mm • 68mm) (s/w). 

- Hdper : Diskmonilor und 
Dmckerutility. 

- Bldipo : Scrollt bis über 100 Bilder 
(4MB) über den Schirm. Für Diashows. 

- Datobest : Grafische Darstellung. 
Linien- und Kuchengrafik, sowie in 
dreidimensionaler Balken- und 
Richengrafik, (s/w) 

- Direct all: Directorydruck. 

- Überweisung: Überweisungsdruck¬ 
programm. 

Diskette 70 

- Orbit: Satellitenbahnberechnung. 
Animation über der Weltkarte (s/w) 

- High End: Programm zum Berechnen 
von Lautsprecherboxen aller Art. 
Lautsprecher und Boxenmaße. Datei für 
Speaker enthalten, (s/w) 

Diskette 77 

Utilitydisk 

- PCOPY 2.0: Schnelles Kopierpro¬ 
gramm. Formatieren, Verify, Multiple 
Copy, Scan und Teilkopie. 

- Speed er: Verdoppelt Schreib- und 
Lesegeschwindigkeit. 

- Fllecopy: Kopieren von Einzeldateien. 
Auch mit einer Floppy. 

- Formaler: Erhöht die Diskkapazitit 

- Fastformat: Formatiert Schnellade- 
disks. 

Diskette 81 

Malprogramm 

- Public Palnter: Superzeichenpro¬ 
gramm. Gepacktes Format, 
SNAPSHOT-Bilder, Lasso, 


Blockmanipulation, Vergrößern, 
Verkleinern, Drehen, Biegen, Verzerren, 
Überschneiden. Drucken von 
Bildausschnitten.(s/w) 

Diskette 86 

- CARPET : Berechnungsprogramm 
von 3D-Funktionen. Hidden-Line Algo¬ 
rithmus und Beleuchtungseffekten. 
Funktiarseingabe und frei einstellbare 
Parameter, (s/w) 

- 3D-PLOT : Ähnliches Programm in 
compiliertem GFA-Basic, mit 
einigen Extra-Funktionen, (s/w) 

- FUNKTIONSPLOT : Funktionsein¬ 
gabe im Programm, verschiebbare 
Achsen, mehrere Darstellungsarten (s/w) 

Diskette 88 

Druckertreiber 

- NEC-EMU : Hardcopytreiber für NEC 
P5/P6/P7. Erzeugt Hardcopies in 12 
verschiedenen Größen und versch. 
Kontrasten. Enthält Druckerspooler. 

- LQ 800 : Hardcopytreiber für EPSON 
24 Nadeldrucker in drei verschiedene 
Größen. 

- NEC CODE : Ein Programm zur 
Einstellung des NEC P6 /P7 uJL. 

- SIMPLE : Komfortables Hardcopy- 
Programm mit vielen Extras. 

- STX-80 : Hardcopytreiber für diesen 
preiswerten Thermodrucker. 

- WORDPLUSTREIBER : 
Druckertreibersammlung für folgende 
Drucker NL10, FX1000. SP1000L 

Diskette 90 

Utilities 

- TOPS : The Other Pascal Shell (für 
PascalPlus), TEMPUSfähig, 
erzeugt Crossreferenz Kopieren, 

Löschen und Umbenennen von Files. 

- SIGNUMSHELL : Eine Shell zu 
Signum. Umschaltung zwischen Signum 
Editor, den verschiedenen Druck Pro¬ 
grammen, den Zeicheneditoren per 
Menüleiste. Automatisches InstalL 

- TEMPELMON 1.8 : DER 
weitverbreitete Monitor. 

- MAXIDISK 4 : Die komprimierende 
Maxidisk mit max. 4MByte Kapazität. 
Läuft auf ALLEN TOS-Versionen. 
Komprimiert automatisch ihren Inhalt. 
RESETFEST. 

- RAMDISK : Gleiches Programm wie 
MAXIDISK, nur ohne Komprimieralgo¬ 
rithmus. 

- COPY : Beide Ramdisk enthalten ein 
Autocopyprogramm zum kopieren 
bestimmter Ries in Ramdisk. 

- RCS.WANDEL : Wandelt *.h Ries 
nach Basic und Assembler. 

Diskette 93 

- ADR 2 : Semiprofessionelles 
Adrcssverwaltungsprogramm mit 
Serienbrieferstellung (mit und ohne Ist 
Word). Editierbare Druckeranpassung 
(Steuerzeichen, Zeichenwandlung), 
erzeugt Adress- Telefon und Geburts¬ 
tagslisten. Druckt Labels, Etiketten nach 
frei definierbarem. Format, (s/w) 

- DATTEXT : A drei »Verwaltung für 
Mehrpersonenzugriff auf eine Datei. 
Datenzugriff nur durch Passwort (s/w) 

Diskette 94 
Spieledisk 

- MACPAN : Eine schnelle Paanan- 
Verrion für den ST. Per Joystick ins 
Labyrinth auf der Suche nach Power- 
pills. Mit Empfehlung der Redaktion. 

- SOLITÄR : Dreidimensionales Solitär 
mit sehr ansprechender Grafik. 

GALAXY + SPRENGMEISTER 
Brettspiele zur Förderung der 
Gehimaktivität (s/w) 

Diskette 100 

- ST-SPEECH : Sprachausgabe auf 
Softwarebasi». Wandelt englischspra¬ 
chige Texte automatisch in verständliche 
Lautschrift (s/w) 

- FORTRAN SHELL : Eine Shell für 
Fortran 77. Bequemes Aufrufen von 
Compiler, Linker, und anderen 
Programmen. 

- LIFE IS LIFE : Life-Simultionspro- 
gramm. Sechs verschiedene Feldgrößen, 


Drehen, Verschieben, Kopieren von 
Blöcken wie im Malprogramm, 

Festlegen der Fortpflanzungsregeln, 
hohe Geschwindigkeit, (s/w) 

- FASTLIFE : Life-Simulation in 
Volksforth. Wahnsinnige Geschwin¬ 
digkeit. (s/w) 

- GEMFRAC : Berechnung fraktaler 
Landschaften in Farbe und s/w. 

- SHARP : Basic Programme für Sharp- 
Basicrechner. Geeignet für 
Direktüberspielung mit Interface. 

Diskette 104 

- ST CALC :Kalkulationsprogramm 
mit vielen Features. 2600 Zellen. 
Variabler Bildaufbau. Formeleingabe. 
FdgendeOperationen: 0. *. +. % A . /, 
SUM, AVE. STA, MIN, MAX, ABS, 
INT, RND, LOG, EXP, CLOG, SQR 

- LOHNSTEUER : Berechnet die 
Lohnsteuer für die Jahre 1977 und 1988 

- ANLAGE : Verwaltungsprogramm 
von Anleihen, Aktien, Investmentan¬ 
teile, u.a. (s/w) 

- DEPOT : Aktiendepot. Nützlichespro- 
gramm für Finanzgenies. 

- AKTIE : Auch dieses Programm dient 
der Aktienverwaltung. 

Diskette 108 

Drockenitilities (P6 u.a.) 

- SIG PIC : Grafikeinbindung in das 
alte SIGNUMI V1.0. Versch. Bild- 
Größen. 

- ZS Editor 24 : Zeichensalzeditor für 
24-Nideldrucker. Down-Load. Für alle 
Programme (z.B. Wordplus). (s/w) 

- MANAGER : Accesoir zum Einstellen 
eines P5/6/7-Dnickers. 

- PRINT OUT : Ausdruck von Source- 
Code (Pascal oder Q mit Zeichenanpas¬ 
sung und beliebige Schriftart Wechsel. 

- POSTER : Druckt Bild in vierfacher 
Größe, (s/w) 

Diskette 109 
Wordplus-Utilities u.a. 

- INHALT : Erzeugt Index-Liste von 
IstWord-Texten. 

-INDEX PLUS : Erzeugt Liste von 
Seitenindex, Zeilenlinealen und allen 
Bildern. 

- BT Konvert : Konvertiert lst_Word- 
Texie nach Beckertext. 

- TYPEWRITER . Schreibmasch¬ 
inenkurs in über 40 Lektionen.(s/w) 

- MORSE : Morsetraimngsprogramm. 

Diskette 110 

Utilities 

- R COPY : Automatischen Backup 
von Ramdisk auf Diskette. Incl. Source 
in Pascal. 

- PASHELP : Crossreferenzprogramm 
für Pascal. 

- UNIDRUCK : Druckprogramm mit 
Sonderzeichenanp., mehrere Drucker. 
Zeilenummerierung. Incl. Source in 
Pascal. 

• FONT : Programm zum Einbinden 
von DEGAS-Fonts in Pascal- 
Programme. Incl. Source in Pascal. 

Diskette 111 

Utilities 

- BASICREF : Crossreferenz für GFA- 
Basic Incl. Source in GFA-Basic. (s/w) 

- MSKEdlt: Maskeneditor für GFA- 
Basic. Generiert Quelltext (Form Inpul). 
Incl. Source in GFA-Basic (s/w) 

- RETTEN: Utilitie für lange Dateien. 
Incl. Source in Fortran. 

- SECO:Bildausschniasbibliothek»Ver¬ 
waltung (für PUT GET von GFA). Incl. 
Source in GFA-Basic. 

Diskette 112 
Erdkunde 

- WORLD: Lemprogramm. Fragt alle 
Linder und Hauptstitte der ganzen 
Weitab. Landkarten von BRD, USA. 
Mittelamerika, Südamerika, Europa, 
Asien, Afrika und Ozeanien, (s/w) 

Diskette 113 

- ZEITMANAGER : Semiprofessionel- 
leTerminpUnverwaltung. Eigener 
Desklop, Terminerinnerung, 

Listendruck, Timing Verwaltung, fixe 
Termine, Kalender. Schaltjahrfest, (s/w) 

Diskette 114 

Spiele 

- METROPOL : Wirtschaftsspiel. 
RettenSie die Wirtschaft ihres Landes. 
‘Auf der Suche nach der Wende'.(s/w) 

- DALLAS : ÖL öl, öl, Geld, Geld, 

Geld, JR, JR, JR (0 


Diskette 115 
Spiele 

- SHERLOCK: Klären Sie als Holmes 
den Mord. 

- EL BOZO CITY: Textadvemure mit 
vielen Gags. 

- SCRIBBLE : Schöne Scrabble- 
Version für den ST. (s/w) 

- KREUZWORT : Generierung eines 

Kreuzworträtsels, (s/w) • 

Diskette 116 

- pEMACS 3.8 : Deutsche Version. 
Eigene Macrosprache, Texlverschlüssc- 
lung, Mailmerge, mehrere Screens, 
u.v.a.m. 

Diskette 117 
Terminalprogramme 

- UNITERM : Exclusives Terminalpro¬ 
gramm. VT200, VT 102, VT 100, 
VT52.4010, u.a. SoftscroU, 
Grafikübertragung, Funktionitaslenbele- 
gung... 

Diskette 118 

Utilities 

- M COPY : Universelles Kopierpro¬ 
gramm bzw. Diskmonitor.- LOADER : 
Aktiviert oder deaktiviert Accesoiries 
bzw. Autostartprogramme. 

- VIEW : Programm zum Anzeigen von 
ASCÜ-Files. Vor- und Rückblättem per 
Tastendruck. 

- SUPERSHELL : Universelle Shell. 
Aufruf beliebiger Programme aus der 
Menüleiste. Source in GFA-Basic 

- LATTICE : diverse Utilities: 
HEXDUMP, Ausdruck mit Zeilen- 
nummern, Symboltabellen, Archivierung 
und Pflege von Modulbibliotheken. 

Diskette 119 
Etiketten Drucker 

- ST LABEL: Eoikettendrucker. 

- LABEL : Komfortabler Disketiketten- 
drucken Übernahme eines Bildes per 
Mausklick. Eigene Bilder integrierbar. 
(s/w) 

- PASTE ADRESS : Adressaufkleber in 
Miniformat (1.5cm*2.5an) 

Disketten 120 

- WISSEN SIE ES? : Quizspiel mit vie¬ 
len Fragen aus verschiedenen Gebieten. 
Ähnlich ‘Trivial Pursuit’. Viele Fragen 
aus verschiedenen Wissensgebieten, 
eigene integrierbar. (s/w) 

Diskette 121 
Spiele 

- GO UP : Loderonner-Ihnliches Spiel. 
Auf vielen Mauern, Leitern und Seilen 
müssen Sie den Verfolgern entkommen. 
Viele Level. Editor zum Entwickeln 
eigener Levels enthalten, (s/w) 

- MAZE EDIT : Editor zu dem Spiel 
‘MIDI MAZEL 

- Fl MANAGER : Verwaltung eines 
Forrael-Eins-RennstalL (s/w) 

- OELIMPERIUM : Managen einer 
Ölfirma, (s/w) 

Diskette 122 
Spiel 

- PD BOLO: Sie kennen Aricanoid, 
dann sollten Sie auch PD_Bolo kennen. 
Interessante Break-Out Variante (mind. 

1 MByte) 

Diskette 123 

Utilities 

- Hyperformat Formatierprogramm 
von Gaus Brod. 

- FSELECT Die neue Rleselector- 
box. Wird fest installiert. Kommt bei 
jedem Aufruf. Warum nicht gleich so 
ATARI? 

- Diskmon Diskettenmonitor, (s/w) 

- PC Ass Assembler für Sharp- 
Taschencompuier. 

Diskette 124 

Chemie 

-CHEMLIB : Datei Verwaltung für 

chemische Elemente (s/w) 

Diskette 125 
Zeichenprogramm 
• CAD 2: Objektorientiertes 
Grafikprogramm. z.B. mit Zoom ohne 
Auflös ungsverlust.(s/w) 

Diskette 126 

- CUBE HACK: Terminalprogramm 
mit integrierter, umfangreicher 
Programmiersprache. Anwendungen: 
z.B. Automatisches Einloggen in 
Mail boxen. 


-OR Spread: Spreadsheetähnliches 
Programm zur Linearoptinmierung, 
Netzplanentwicklung, Kürzeste Wege 
Berechnung, (s/w) 

Diskette 127 

Wissenschaftliche Anwendungen 

- Plane«: Himmelskörperberechnungen. 
(Grafische Darstellung des 
Sternenhimmels, Horizont). Animation. 

- Turing: Realisierung eines Turing- 
Maschinen-Modells (s/w) 

- Zu st: Analyse und Simulation linearer 
Regelkreise (s/w) 

Diskette 128 
Spielesammlung 

- Horrorschloß: Der Weg durch viele 
Gänge verbirgt viele Gefahren. 

- Invers!: Das bekannte Spiel, gegen den 
Rechner oder zu zweit (s/w) 

- InvatJon: Space Invadors mit 3-D 
Vektorgrafik, (s/w) 

- Zarge: Ein 32000K-Bild wird 
gepuzzelt (s/w) 


(s/w) - Nur Monochrom 

(f) - Nur Farbe 

kein Kürzel - Farbe und Monochrom 

Sonderdisks 

Die folgenden Programme sind nicht 
Public-Domain. 

Sie können aber bei uns bezogen 
werden. 

A. ) TOS : Die letzte Disketlen-Versian 
vom 6.2.1986. Ältere Versionen laufen 
nicht problemlos. 

Unkostenbeilrag samt Diskette DM 15.- 

B. ) RCS : Das Resource-Construction 
Set aus dem ATARI-Entwicklung- 
spakets. Unverzichtbar bei der GEM- 
Programmierung. 

Unkostenbeitrag samt Diskette DM 15.- 
Bis auf die Höhe des Unkosten bei träges 
gelten die gleichen Versandbedingungen 
wie bei der Public-Domain Software. 


VERSANDBEDINGUNGEN 

Sämtliche Disketten können ab dem 
Erstverkaufstag der ST-Computer 
direkt bei der Redaktion bezogen 
werden. Wir haben für Sie den 
schnellstmöglichen Versandservice 
eingerichtet Lieferung innerhalb 

einer Woche. 

1. Schriftliche Bestellung 

- Der Unkostenbeitrag für eine 
Diskette beträgt DM 10.- 

- Bezahlung nur per Scheck oder 
Nachnahme (Im Ausland nur 
Vorrauskasse möglich) 

- zuzüglich DM 5,00 Versandkosten 
(Ausland DM 10.-) 

- bei Nachnahme zuzüglich DM 3,70 
Nachnahmegebühr 

• Legen Sie bitte, falls zur Hand, 
einen Aufkleber mit Ihrer Adresse 
bei. 

- Bitte fügen Sie keine anderen 
Bestellungen oder Anfragen bei 
Die Bezugsadresse lautet: 

‘MERLIN’-Computer GmbH 
ST-Computer Redaktion 
‘PD-Service’ 

Postfach 5969 
D-6236 Eschborn 


2. Anruf genügt 

‘MERLIN’-Computer GmbH 
ST-Computer Redaktion 
TeL: 0 61 96 / 48 18 11 
Von Mo-Fr 9.00 bis 17.00 Uhr 
Die Bezugsadresse lautet: 
‘MERLIN’-Computer GmbH 
ST-Computer Redaktion 
‘PD-Service’ 

Postfach 5969 
D-6236 Eschborn 


Bei Fragen bezüglich 
der Programme stehen 
wir Ihnen gerne zur 
Verfügung. 
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Immer up to date 


Mit dieser Sparte wollen wir allen unseren Lesern die Möglichkeit geben, sich über die neuesten Programm-Versionen zu 
informieren. Angegeben werden die aktuelle Versionsnummer, ein eventueller Kopierschutz, die Bildschirmauflösungen 
und der Speicherbedarf. Softwarefirmen ist es somit möglich, die ST-Computer-Leser über ihre Updates zu informieren. 


Programmname 

Version 

Daten 

Programmname 

Version 

Daten 

AnsiTerm 

1.1 

N 

lst_Lektor 

1.2 

H 

Binlook 

1.0 

N HML 

Lisp Complete 

1.01 

N HM 

BTX für ST 

1.0 

NH IM 

Lock_it 

1.0 

J ML 

Crypt it 

1.0 

J HML 

Megamax C 

1.1 

N HML 

Flash-Cache/Flash-Bak 

1.0 

N HM 

Mega Paint 

1.0 

N H IM 

Flexdisk 

1.1 

N HM 

Megamax Modula 2 

1.0 

N HM 

lst_Freezer 

1.0 

N HML IM 

Micro C-Shell 

2.70 

N HM 

GFA-Artist 

1.0 

N L 

MT C-Shell 

1.10 

N HM IM 

GFA-BASIC 68881 

1.3 

N HML 

Multi ST 

1.0 

N HML IM 

GFA-Compiler 

2.02 

N HML 

Musix32 

1.01 

J H 

GFA-Draft 

2.1 

N 

Omikron BASIC Compiler 

2.0 

N HML 

GFA-Draft plus 

1.5 

N 

Omikron BASIC Interpreter 

2.0b 

N HML 

GFA-Interpreter 

2.02 

N HML 

PC ditto Euroversion 

3.64 

N HML 

GFA-Objekt 

1.1 

N HM 

Pro Sound Designer 

1.2 

• L 

GFA-Starter 

1.1 # 

N HML 

Pro Sprite Designer 

1.0 

L 

GFA-Vektor 

1.0 

N 

Search! 

1.31 

N HM 

Hard Disk Accelerator 

1.0 

N HML 

Signum! zwei 

2.0 

N H 

Hard Disk Toolkit 

1.04 

N HM 

lst_Speeder 

1.01 

N HML 

Harddisk Utility 

1.04 

N HM 

lst_Speeder 2 

1.0 

N HML IM 

Imagic 

1.0 

N HML 

STAD 

1.2 

N H 

Intelligent Spooler 

1.01 

N HML 

ST Pascal plus 

2.02 

N HM 

K-Resource 

1.1 

N HM 

Tempus 

2.0 

N HM 

Laser Deluxe 

1.0 

N HML IM 

VSH Manager 

1.11 

N HML IM 

Irrtum Vorbehalten 






Daten-Legende : N = kein Kopierschutz, J = 

Kopierschutz, H = hohe Auflösung, M = mittlere Auflösung, L = 

niedrige Auflösung, 

IM = 

mindestens 1 Megabyte Speicher notwendig 




INSERENTEN-VERZEICHNIS 


AB-COMPUTER 180 

ACTIVE SOFT 93 

ALPHATRON 185 

APPLIKATION SYSTEMS 2 

ADVANCED APPLICATION 117 

AS DATENTECHNIK 93 

BAVARIA SOFT 57 

BIELING 98 

BSB 26 

BEERS 103 

CALL-SOFT 181 

CASH 21,61,65,66 

CO PY DATA 176 

CSH 80 

CWGT 169 

COMPY-SHOP 181 

CSF 179 

COMPTEC 167 

COCO 49 

COMPUTER-PHOTO 103 

DATA-BECKER 67, 73, 91 

DELO 174 

DREWS-EDV 24 

EICKMANN 32 

ECO-SOFT 57 

FISCHER, MICHAEL 26, 169 

FSE 21 

GDAT 181 

GFA 180 

GRUBER 103 

GDATA 103, 120, 121, 179 

GENGTEC 61 


GALACTIC 

57 

GRATECH 

155 

HARO-SOFT 

57 

HC-SOFT 

41 

HEIM 19,25,37,145 

, 157, 168, 176 

HSS 

130 

HÜTHIG 

93 

HERBERG 

21 

HAASE 

31, 111 

IDL 

181 

IDE-SOFT 

98 

IKS 

93 

IFA KÖLN 

61 

KAROSOFT 

111 

KELLERT + MÜLLER 

49 

KFC 

24 

KNUPE 

111 

KÖHLER 

32 

KIECKBUSCH 

59 

LAZARIDIS 

116 

LECHNER 

115 

LOGICOMP 

167 

MARKERT 

116 

MAYER-GÜRR 

166 

MAXI-SOFT 

24 

MELCHART 

155 

MERLIN 27, 47, 163, 164, 178 

MSM 

24 

MULTICOMP 

169 

MPK 

93 

NEC 

9, 11, 12, 13 

OHST 

26 


OMIKRON 

37 

PADERCOMP 

117, 125 

PORADA 

103 

PRALL 

49 

PRODATA 

172 

PROFISOFT 

116 

RAAB 

55 

RHOTHRON 

49 

RUFF+LOCHER 

174 

SAUER 

155 

SCHUSTER ’ 

59 

SCHLEGEL 

26 

SCHÖNAICH 

103 

SENDER 

109 

SEXTON 

114 

STARCK 

79 

STARSOFT 

176 

SYBEX 

89 

TAOS 

167, 155 

TK-COMPUTER 

24 

TRUMPP 

61 

TRY-SOFT 

26 

VEIGEL 

41 

VICTOR 

130 

VODISEK 

49 

VORTEX 

95 

WALLER 

80 

WEESKE 

158, 159 

WEIDE 

183 

WISCHOLEK 

169 

WITTICH 

181 

YELLOW 

80 
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ELEKTRONIK 


Weide Elektronik GmbH, Regerstraße 34, D-4010 Hilden 
Ladenlokal: Gustav-Mahler Straße im Einkaufszentrum 
Ladenlokal: Tel. 0 2103/31880 

Tel. 02103/41226 


Schweiz 

SENN Computer AG 
Langstr. 31 
CH-8021 Zürich 
Tel.: 01/241 73 73 


Niederlande 
COMMEDIA 
1e Looiersdwarsstr. 12 
1016 VM Amsterdam 
Tel.: 020/231740 


ATARI ST 


LAUFWERKE 


für ATARI ST 


EPROMKARTE 


64 KB 


12,90 


steckbar steckbar 

SPEICHERKARTEN 

auf 1 MByte für 260/520 STM 259,- 

auf 2 MByte 520ST + /1040 ST 598,- 
(6 Lötpunkte) oder (lötfrei) 648,- 
auf 2,5 MB/ 4 MB 

für ATARI 260 ST, 520 STM, 1040 STF 
Speicherpreise auf Anfrage 

Jede Erweiterung einzeln im Rechner 
getestet! Sehr einfacher Einbau ohne Löten. 
Gut bebilderte Einbauanleitung. Vergoldete 
Mikro-Steckkontakte - dadurch optimale 
Schonung des MMU-Sockels. 

Achten Sie auf Mikro-Steckkontakte!! 

Kein Bildschirmflimmern. Keine zus. Software. 
Ohne zus. Stromversorgung. Test ST 4/86. 

ECHTZEITUHR 129,- 

Jede Uhr im Rechner getestet und gestellt. 
Interner Einbau ohne Löten. Dadurch freier 
ROM-PORT. Immer aktuelle Zeit und aktuelles 
Datum. Dank Lithium-Batterie ca. 10 Jahre 
Laufzeit. 

Hohe Genauigkeit, Schaltjahrerkennung. 

MONITORUMSCHALTER 59,- 
TRAKBALL statt Maus 99,- 


3,5” Einzellaufwerk 

398,- 

3,5” Doppellaufwerk 

598,- 

51/4” Einzellaufwerk 

498,- 

40 MB Harddisk 

2.548, 


3,5” 40 ms Winchesterlaufwerke 
mit Bootrom 

Floppystecker 8,90 Monitorstecker 8,90 

Monitorbuchse 8,90 Floppykabel 19,90 

VIDEO SOUND 
BOX 248,- 

Ihr ST am Fernseher. Klangkräftige 
3-wege Box mit integriertem HF-Modulator 
zum Direktanschluß aller ATARI ST an den 
Fernseher. Unübertroffene Bildqualität. 
Super Sound! 

COPROZESSOR 
68881 890,- 

in Ihrem ATARI ST. Mit Software für Megamax 
C, Mark Wiliams C, DRIC, Lattice C, Prospero 
Fortran 77, Modula II, CCD Pascal + erhöht die 
Rechengeschwindigkeit z.T. um Faktor 900. 
Einfachster Einbau, rein steckbar - ohne Löten. 
Unbedingt ausführliches INFO anfordern! 


mit vergoldeter Kontaktleiste für alle ATARI ST 

SCANNER HAWKCP14ST 

für ATARI ST, AMIGA u. PC 

Flachbettscanner mit CCD Sensor, 16 Graustufen. 
Auflösung 200 DPI, (32 Graustufen. 400 DPI a. A.) 
DIN A4 Seite wird in ca. 10 Sekunden gescannt, 
ist auch als Kopierer und Drucker einsetzbar. 

Für DTP einsetzbar. Bildformat f. Calamus, Timeworks, 
Monostar plus, Stad. Word + Degas, Profi Painter. 
Druckertreiber für NEC P6/7, STAR NL 10. Canon LPB 8. 
Telefax wird demnächst möglich sein! 

Software zur Schriftenerkennung ist fertig. 
Unbedingt INFO anfordern. 

Preis inkl. Software 2.990,- DM 
Preis mit Schrifterkennung 4.390.- DM 

DRUCKER 

NEC P6, PZ EPSON LX 800, LQ 500, LQ 800, STAR LC 
10 a.a. auf Lager a.A. u.v.m. 

*NLQ NLQ NLQ NLQ* 

- Aufrüstsatz für alle EPSON MX, RX, FX, JX Drucker 

- Apple Macintosh Drucker Emulation (FX & JX) 

- Viele Features! INFO anfordern. 

FX 199,- MX 179.- RX 149,- 

AMIGA 500 

512 KByte a. A. i 
Speichererweiterung r 

für Amiga 500 ohne Uhr (nachrüstbar), mit Uhr und - 
Lithium-Batterie (mehrere Jahre betriebsbereit). > 
Über alle Produkte auch INFO’s erhältlich. ^ 
Alle Preise zuzüglich Verpackung und Versand. 

Händleranfragen erwünscht. n 



COMPUTERVERSAND WITTICH 

Tulpenstraße 16 ■ 8423 Abensberg • Tel. (09443) 453 


ATARI 520 STM. 498,— 

ATARI 1040 STF. 998,- 

MEGA ST.auf Anfrage 

ATARI SH 205 . 1198,- 

V0RTEX HDPLUS 30 .... 1298,- 

M0NIT0R SM 124 . 398 - 

0RIGINAL MAUS.98,- 


SIGNUM. 369, 

NEC P2200 . 979, 

STAR LC 10 . 559, 

DISK.-STATION SF 314 .... 359, 

NEC 1036A-STATION . 349,- 

SCART-KABEL . 38, 


NEU: MODERN SAMPLING 128,— 

Der Sampler der Soundsampling preiswert macht. Incl. Software und deutscher Anleitung auf Diskette. 



für 


ATARI ST 

• HAMLET II ist schneller durch einen neuen, selektiven Algorithmus 

• HAMLET II beherrscht alle Remis-Regeln und Unterverwandlungen 

• HAMLET II ist voll GEM + Maus gesteuert 

• HAMLET II speichert komplette Partieen mit Kommentartext in einer Biblio¬ 
thek 

• Leckerbissen:— beliebige Spielstufenwahl durch Zeitvorgabe 

— integrierte Eröffnungsbibliothek 

— der Rechenvorgang kann auf dem Brett dargestellt werden 





COMPUTERSYSTEME & 
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In der nächsten ST-Computer Impressum 

JL ST Computer 

lesen Sie unter anderem Uwe Bärtels (UB) 


Was gibt’s Neues von ATARI? 

Alle warten gespannt auf die CeBIT ’88 in Hannover, um zu erfahren, was an neuen Produkten aus dem 
Hause ATARI zu erwarten ist. Zu sehen sein, wird sicherlich der Transputer-Rechner sein und wahr¬ 
scheinlich ist das CD-ROM da. Doch was ist mit einem neuen 32-Bit-Rechner mit einem 68020- oder 
68030-Prozessor? ATARI Deutschland Chef Alwin Stumpf meinte nur: “Wir sind immer für Überra¬ 
schungen gut !” Was nun wirklich zu sehen war, berichten wir in der nächsten Ausgabe. 

... doch nicht nur ATARI ist auf der CeBIT! 

Natürlich konzentrieren sich die meisten ST-Besitzer auf ATARI, doch was wäre ein Rechner ohne 
Software, Drucker und andere Peripheriegeräte. Allein auf dem ATARI-Stand werden an 50 Tischen 
Produkte aus deutschen und anderen Landen frisch auf den Tisch angeboten. Wir berichten ausführlich 

von der CeBIT ’88, was am ATARI-Stand und sonst noch auf dieser wichtigen Messe zu finden war. 


Laservisionen 

Wer bis jetzt mit dem ATARI Laserdrucker SLM 804 gearbeitet hat, mußte leider sehr schnell gewisse 
Mängel an der Treibersoftware feststellen. Um dieses Manko zu beheben, veröffentlichen wir in zwei 
Teilen ab der nächsten Ausgabe einen neuen Laserdruckertreiber, mit dem sowohl Grafik- als auch Text 
problemlos auszudrucken sind. Alles über die Programmierung des Lasers und einen Grafiktreiber kann 

man in der Mai-Ausgabe finden. 

Megamax Modula-2 

Lange schon ist es angekündigt, doch jetzt ist es endlich fertig. Nach Megamax C kommt jetzt mit 
Megamax Modula-2 eine zweite Sprache aus der Softwareschmiede Application Systems /// Heidelberg. 

Was bringt dieses Modula-2 gegenüber den bereits auf dem Markt erhältlichen Konkurrenzprodukten. 
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Video und ST 

Wer es bis jetzt vergeblich probiert hat, seinen ATARI ST zum Erstellen von Videovorspännen, Trickfil¬ 
men etc. zu benutzen, dem kann jetzt geholfen werden. Unser Hardwareprojekt FBAS-Wandler ermög¬ 
licht es, das FARBBILD des STs auf jedem Videorecorder aufzunehmen bzw. auf Fernsehern mit 

Videoeingang darzustellen. 


Änderungen Vorbehalten ! 

Die ST-Computer Ausgabe 5/88 
erscheint am 29.4.1988 


Fragen an die Redaktion 

Ein Magazin wie die ST-Computer zu erstellen kostet sehr viel Zeit und Mühe. Da wir ja weiterhin 
Vorhaben, die Qualität zu steigern (ja, auch wenn das manchmal danebengeht), haben wir Redakteure ein 
großes Anliegen an Sie, liebe Leserinnen und Lesen 

Bitte haben Sie Verständnis dafür, daß Fragen an die Redaktion in Zukunft nur noch zu bestimmten Zeiten 
beantwortet werden können. Wir stehen Ihnen zu folgenden Terminen telefonisch zur Verfügung: 

Donnerstag von 14 - 17 Uhr 

Vielen Dank für Ihr Verständnis 
Ihre Redaktion 


Grafische Gestaltung: 

Fabian & Mayer 

Fotografie: 

R.Spirandclli, Archiv 

Produktion: 

K.H.Hoffmann, B.Failer, S.Failer 
Druck: 
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Lektorat: 
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Bezugsmöglichkeiten: 

ATARI-Fachhandel, Zeitschriftenhandel, Kauf- und Warenhäuser 
oder direkt beim Verlag 

ST Computer erscheint 11 x im Jahr 
Einzelpreis: DM 7,-, ÖS 56,-, SFr 7,- 

Jahresabonnement: DM 70,- Europ. Ausland : DM 90,- Luftpost 
: DM 120,- 


Manuskripteinsendungen: 

Programmlistings, Bauanleitungen und Manuskripte 

werden von der Redaktion gerne angenommen. Sie 

müssen frei von Rechten Dritter sein. Mit seiner Einsendung gibt 

der Verfasser die Zustimmung zum Abdruck 

und der Vervielfältigung auf Datenträgern dem Heim Verlag. 

Honorare nach Vereinbarung. Für unverlangt eingesandte 

Manuskripte wird keine Haftung übernommen. 

Urheberrecht: 

Alle in der ST-Computer erschienenen Beiträge sind urheberrecht¬ 
lich geschützt. Reproduktionen gleich welcher Art, ob 
Übersetzung, Nachdruck, Vervielfältigung oder 
Erfassung in Datenverarbeitungsanlagen sind nur mit 
schriftlicher Genehmigung der “Merlin" Computer GmbH 
oder des Heim Verlags erlaubt. 

Veröffentlichungen: 

Sämtliche Veröffentlichungen in der ST-Computer erfolgen 
ohne Berücksichtigung eines eventuellen Patentschutzes, 
auch werden Warennamen ohne Gewährleistung einer freien 
Verwendung benutzt. 

Haftungsausschluß: 

Für Fehler in Text, in Schaltbildern, Aufbauskizzen. 

Stücklisten usw., die zum Nichtfunktionieren oder evtl, 
zum Schadhaftwerden von Bauelementen führen, wird keine 
Haftung übernommen. 

(c) Copyright 1988 by Heim Verlag 


186 


4/88 




DM 

149 


Heeper Str. 106-108, 4800 Bielefeld 1, 05 21/616 63 

Kein Kabelsalat mehr mit dem 
Gehäuse für ATARI ST 

• Zentrale Stromversorgung für alle Geräte einschl. 2 Drucker 

• Einbaumöglichkeit von 2 Diskettenlaufwerken 

• Rechner (Tastatur) kann komplett unter das Gehäuse 
geschoben werden (Staubschutz) 

• Massives Blechgehäuse 
ATARI ST-Gehäuse erhalten Sie bei den 
autorisierten Fachhändlern 
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NEUES VON CSF 

• Speichererweiterungen auf 1 MB, 

steckbar oder zu Löten 

für ATARI 520 ST, 260 ST, 520 STM 




['diese <j"äiSH' .Q!h. :fp. 



SHIFTER 


1 


- steckbar 

(ohne jegliche Lötarbeiten) 

- läuft auch auf dem 520 STM 

- enorme Zeitersparnis durch 
einfache, bebilderte Einbau¬ 
anleitung 

- kein Flimmern nach der Erweiterung 

(durch separate, geglättete Spannung an der zweiten RAM-Bank) 

- sensationeller Preis 


?§ 


225,- DM 


- Bei Bestellungen bitte angeben: □ Speichererweiterung steckbar 
nur für 260 und 520 ST □ Speichererweiterung zum Löten 


Zu beziehen: 

In der Schweiz: 

In Österreich: 

Direkt bei CSF, Bielefeld 

SENN 

Institut für Datenverarbeitung 

Tel. 05 21/61663 

Computer AG 

und Organ. Ges.mbH 


Langstr. 31 • CH-8021 Zürich 

Rehberger Hauptstr. 95 • A-3503 Krems 

Bei allen ATARI-Händlern 

Tel. 01-241 73 73 

Tel. 0 27 32-7 05 81 Alle Preise sind unverb empl Verkaufspreise 


Börsenspekulanten fordern: 

1. Aktienanalyse für den privaten und professionellen Aktienanleger auf der Basis der Relati¬ 
ven Stärke und Volatilität von Aktienkursen. 

2. Charts wahlweise über Bildschirm und Drucker. 

3. Mischen von Charts einer Aktie und Branche zum Vergleich. 

4. Kurseingabe nur einmal wöchentlich (!). Als Basis dienen die letzten 27 Wochenschlußkurse. 

5. Umfangreiche Bereinigungsfunktion bei Kapitalveränderungen von Aktien. 

6. Listen der Relativen Stärke mit Mittelwert von Kursen und Analyse der Veränderung der 
Rangfolge der Relativen Stärke über 3 Wochen (wahlweise Bildschirm oder Drucker). 

7. Zu jeder Aktie können Höchst- und Tiefstkurse sowie eigene Notizen eingegeben werden. 

OcifcOmilnSMlllistt Kur * c Dcbo» _ 




8. Depotverwaltung für den privaten und semiprofessionellen Aktienanleger über ein bedie¬ 
nungsfreundliches Karteikartensystem auf dem Bildschirm mit Gewinn- und Verlustrech¬ 
nung Brutto. 

9. Depotübersicht wahlweise auf Bildschirm oder Drucker aufgeschlüsselt nach Einzelgattung 
oder als Gesamtübersicht. 

10. Umfangreiche Lösch- und Änderungsfunktion für die Daten und weitere Extras, z.B. Bild¬ 
schirmverdunkeln bei Arbeitspausen. 

11. Je nach Arbeitsspeicher können bis zu 20 Branchen und 500 Aktien erfaßt werden (War¬ 
nung bei Speicherproblemen). 


GDATA 



REL AS 

Aktienanalyse und Depotverwaltung 


DM 398,— 

unverbindliche Preisempfehlung 
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GFA Systemtechnik GmbH 


Heerdter Sandberg 30 
D-4000 Düsseldorf 11 
Telefon 0211/588011 


GFA 


















